Let listValues (f : naryFunc 2) (n : nat) : list nat.
intros.
induction n as [| n Hrecn].
exact nil.
exact (evalStrongRec _ f n :: Hrecn).
Defined.

Lemma evalStrongRecHelpParam :
forall (a n c : nat) (f : naryFunc (S (S (S a)))),
extEqual a (evalStrongRecHelp (S a) f n c)
(evalStrongRecHelp a (fun x y : nat => f x y c) n).