fact: Definition betaFormula : Formula := (exH 3, v#3 < Succ v#2 /\ exH 4, (v#4 < Succ v#2 /\ (v#3 + v#4) * Succ (v#3 + v#4) + 2 * v#3 = n2t 2 * v#2 /\ v#0 < Succ (v#3 * Succ v#1) /\ exH 5, (v#5 < Succ v#4 /\ v#0 + v#5 * Succ (v#3 * Succ v#1) = v#4)) )%fol.
imports: Coq(Arith) hydras.Ackermann(extEqualNat subAll folProp subProp folReplace folLogic3 NN NNtheory primRec expressible) Coqprime(ChineseRem) Coq(Vector List Lia) hydras(ListExt cPair MoreDecidable) hydras(Compat815 ssrnat_extracts) Coq(Utf8)