fact: Definition is_sol pb sigma := exists sigma', is_rough_sol pb sigma' /\ (forall v, In v (existential_vars pb) \/ apply_cf_subst sigma (Var v) = apply_cf_subst sigma' (Var v)).
imports: Coq(Arith List) CoLoR(more_list list_sort term_spec ac cf_eq_ac)