fact: Parameter flatten_apply_cf_subst : forall sigma f l, arity f = AC -> permut (flatten f (map (apply_cf_subst sigma) l)) (flatten f (apply_cf_subst sigma (build f l) :: nil)).
imports: Coq(Relations List Arith Morphisms) CoLoR(more_list list_permut list_sort term_spec term_o equational_theory_spec equational_theory)