fact: Fixpoint mLSwapTermEmbed {G : CFGV} {vc : VarSym G} {lgs : list (bool * GSym G)} (pts : Mixture lgs) (llbvOld llbvNew : list (lVars vc)) {struct pts} : Mixture lgs := match pts with | mnil => mnil | mtcons _ _ th ttl => mtcons (tSwap th (combine (lhead llbvOld) (lhead llbvNew))) (mLSwapTermEmbed ttl (tail llbvOld) (tail llbvNew)) | mpcons _ _ ph ptl => mpcons (pSwapEmbed ph (combine (lhead llbvOld) (lhead llbvNew))) (mLSwapTermEmbed ptl (tail llbvOld) (tail llbvNew)) end.
imports: AlphaEqProps Omega