fact: Fixpoint addExists (m n : nat) (f : Formula) {struct n} : Formula := match n with | O => f | S n' => existH (n' + m) (addExists m n' f) end.
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)