fact: Hypothesis Hcns : forall t nt (ts : terms nt) u nu (us : terms nu) θ θ' Ω, matches_r t u Ω = Some θ' -> P t u Ω θ' -> Vfold2 θ matches_r ts us = Some Ω -> Ps ts us θ Ω -> Ps (Vcons t ts) (Vcons u us) θ θ'.
imports: Coq(Peano_dec Bool) CoLoR(LogicUtil EqUtil NatUtil VecUtil ATerm ASubstitution FSetUtil FMapUtil ListUtil)