fact: Hypothesis Hfun : forall f g ts us θ θ', Vfold2 θ matches_r ts us = Some θ' -> Ps ts us θ θ' -> f = g -> P (Fun f ts) (Fun g us) θ θ'.
imports: Coq(Peano_dec Bool) CoLoR(LogicUtil EqUtil NatUtil VecUtil ATerm ASubstitution FSetUtil FMapUtil ListUtil)