fact: Fixpoint pBndngVars {G} (vc : VarSym G) {gs} (p : Pattern gs) : (list (vType vc)) := match p with | ptleaf _ _ => [] | embed _ _ => [] | pvleaf vcc var => match (DeqVarSym vcc vc) with | left eqq => [transport eqq var] | right _ => [] end | pnode _ mix => mBndngVars vc mix end with mBndngVars {G} (vc: VarSym G) {lgs} (pts : Mixture lgs) : (list (vType vc)) := match pts with | mnil => [] | mtcons _ _ _ tl => mBndngVars vc tl | mpcons _ _ h tl => (pBndngVars vc h) ++ mBndngVars vc tl end.
imports: CFGV Omega