fact: Parameter length_flatten_ter : forall f sigma, arity f = AC -> well_formed_cf_subst sigma -> forall l, (forall t, In t l -> well_formed_cf t) -> length l <= length (flatten f (map (apply_cf_subst sigma) l)).
imports: Coq(Relations List Arith Morphisms) CoLoR(more_list list_permut list_sort term_spec term_o equational_theory_spec equational_theory)