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 compose2_4IsPR : forall f1 : nat -> nat -> nat, isPR 2 f1 -> forall f2 : nat -> nat -> nat, isPR 2 f2 -> forall f3 : nat -> nat -> nat, isPR 2 f3 -> forall f4 : nat -> nat -> nat, isPR 2 f4 -> forall g : nat -> nat -> nat -> nat -> nat, isPR 4 g -> isPR 2 (fun x y : nat => g (f1 x y) (f2 x y) (f3 x y) (f4 x y)).