fact: Fixpoint FormulasToFuncs (n m : nat) (vs : Vector.t (Formula * naryFunc n) m) {struct vs} : Vector.t (naryFunc n) m := match vs in (Vector.t _ m) return (Vector.t (naryFunc n) m) with | Vector.nil => Vector.nil _ | Vector.cons v m' vs' => Vector.cons _ (snd v) m' (FormulasToFuncs n 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)