fact: Variable Rlist_ok : forall l r, R r l <-> In (l,r) Rlist.
imports: Coq(List Relations Wellfounded Arith Recdef Setoid) CoLoR(closure more_list weaved_relation term_spec equational_theory_spec dp graph_dp terminaison interp)