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

Lemma evalStrongRecHelp1 :
forall (f : naryFunc 2) (n m : nat),
m < n -> codeNth (n - S m) (evalStrongRecHelp _ f n) = evalStrongRec _ f m.