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