fact: Definition Pi_as_list pi v1 v2 := ((Term pi (Var v1 :: Var v2 :: nil)),Var v1):: ((Term pi (Var v1 :: Var v2 :: nil)),Var v2)::nil.
imports: Coq(Relations List Setoid) CoLoR(weaved_relation closure equational_theory_spec dp modular_dp terminaison)