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

Lemma evalStrongRecHelp2 :
forall (a : nat) (f : naryFunc (S (S a))) (n m : nat),
m < n ->
extEqual _
(evalComposeFunc _ 1 (Vector.cons _ (evalStrongRecHelp _ f n) 0 (Vector.nil _))
(fun b : nat => codeNth (n - S m) b)) (evalStrongRec _ f m).