fact: Definition checkPrfGEN (p recs : nat) := switchPR (charFunction 2 Nat.eqb (cPair 3 (cPair (car (cdr (cdr p))) (car (cdr (cdr (cdr p)))))) (car p) * (codeNth (p - S (cdr (cdr (cdr p)))) recs * (1 - codeIn (car (cdr (cdr p))) (codeFreeVarListFormula (pred (codeNth (p - S (cdr (cdr (cdr p)))) recs)))))) (codeNth (p - S (cdr (cdr (cdr p)))) recs) 0.
imports: Coq(Arith Lia) hydras.Ackermann(primRec codeFreeVar codeSubFormula cPair code folProp extEqualNat wellFormed folProof prLogic) hydras(Compat815)