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 compose4_3IsPR :
forall f1 : nat -> nat -> nat -> nat -> nat,
isPR 4 f1 ->
forall f2 : nat -> nat -> nat -> nat -> nat,
isPR 4 f2 ->
forall f3 : nat -> nat -> nat -> nat -> nat,
isPR 4 f3 ->
forall g : nat -> nat -> nat -> nat,
isPR 3 g ->
isPR 4 (fun w x y z : nat => g (f1 w x y z) (f2 w x y z) (f3 w x y z)).