fact: Fixpoint FormulasToFormula (n w m : nat) (vs : Vector.t (Formula * naryFunc n) m) {struct vs} : Formula := match vs with | Vector.nil => equal (var 0) (var 0) | Vector.cons v m' vs' => andH (substF (fst v) 0 (var (S m' + w))) (FormulasToFormula n w m' vs') 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)