fact: Definition connect_approx u v : bool := match u, v with | Var _, _ => false | _, Var _ => false | Term f l, Term g k => if F.Symb.eq_bool f g then rough_unif_list l k else false end.
imports: Coq(List Relations Wellfounded Arith Recdef Setoid) CoLoR(closure more_list weaved_relation term equational_theory_spec) CoLoR(NatCompat)