fact: Fixpoint subc (s : substitution) (c : context) : context := match c with | Hole => Hole | Cont f H v1 c' v2 => Cont f H (Vmap (sub s) v1) (subc s c') (Vmap (sub s) v2) end.
imports: CoLoR(AInterpretation AContext VecUtil NatUtil LogicUtil ListUtil EqUtil)