fact: Definition is_subst_canonical_form sigma sigma_cf := forall v, match find X.eq_bool v sigma with | None => find X.eq_bool v sigma_cf = None | Some v_sigma => find X.eq_bool v sigma_cf = Some (canonical_form v_sigma) end.
imports: Coq(Relations List Arith Morphisms) CoLoR(more_list list_permut list_sort term_spec term_o equational_theory_spec equational_theory)