fact: Parameter permut_cons_inside : forall e1 e2 l l1 l2, eq_A e1 e2 -> (permut l (l1 ++ l2) <-> permut (e1 :: l) (l1 ++ e2 :: l2)).
imports: Coq(List Relations Arith Setoid Morphisms FunInd) CoLoR(decidable_set more_list equiv_list)