fact: Fixpoint csymbs (c : context) : list Sig := match c with | Hole => List.nil | @Cont f _ _ _ v1 c' v2 => f :: (symbs_vec v1 ++ csymbs c' ++ symbs_vec v2) end.
imports: Coq(Setoid) CoLoR(LogicUtil VecUtil ListUtil BoolUtil NatUtil RelUtil)