fact: Fixpoint mSwapTermPat {G : CFGV} {vc : VarSym G} {lgs : list (bool * GSym G)} (pts : Mixture lgs) (swPat swTerm : list (Swapping vc)) {struct pts} : Mixture lgs := match pts with | mnil => mnil | mtcons _ _ th ttl => mtcons (tSwap th (lhead swTerm)) (mSwapTermPat ttl (tail swPat) (tail swTerm)) | mpcons _ _ ph ptl => mpcons (pSwapBindEmbed ph (lhead swPat) (lhead swTerm)) (mSwapTermPat ptl (tail swPat) (tail swTerm)) end.
imports: SubstAux AlphaEqProps