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