fact: Definition eq_bool := fun vt1 vt2 => match vt1, vt2 with (v1,t1), (v2,t2) => andb (X.eq_bool v1 v2) (T.eq_bool t1 t2) end.
imports: Coq(List Relations Wellfounded Arith Setoid) CoLoR(closure more_list weaved_relation dickson term_spec equational_theory_spec)