fact: Parameter r_assoc : forall f t1 t2 t3, arity f = AC -> ac (Term f (t1 :: (Term f (t2 :: t3 :: nil)) :: nil)) (Term f (Term f (t1 :: t2 :: nil) :: t3 :: nil)).
imports: Coq(Relations List Arith Morphisms) CoLoR(more_list list_permut list_sort term_spec term_o equational_theory_spec equational_theory)