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 ind1ParamIsPR : forall f : nat -> nat -> nat -> nat, isPR 3 f -> forall g : nat -> nat, isPR 1 g -> isPR 2 (fun a b : nat => nat_rec (fun n : nat => nat) (g b) (fun x y : nat => f x y b) a).