Definition isPR (n : nat) (f : naryFunc n) : Set :=
{p : PrimRec n | extEqual n (evalPrimRec _ p) f}.
Definition isPRrel (n : nat) (R : naryRel n) : Set :=
isPR n (charFunction n R).

Lemma compose1_2IsPR :
forall f : nat -> nat,
isPR 1 f ->
forall f' : nat -> nat,
isPR 1 f' ->
forall g : nat -> nat -> nat,
isPR 2 g -> isPR 1 (fun x : nat => g (f x) (f' x)).