fact: Definition codeNewVar (l : nat) : nat := evalStrongRec 0 (fun n Hrecs : nat => switchPR n (Nat.max (S (car (pred n))) (codeNth (n - S (cdr (pred n))) Hrecs)) 0) l.
imports: Coq(Arith Vector Lia) hydras.Ackermann(primRec cPair folProp code extEqualNat codeSubTerm codeFreeVar)