fact: Variable Gdef' : forall f, G f <-> defined (fun r l => R r l /\ ~ UsableRules R P r l) f.
imports: Coq(List Relations Wellfounded Arith Recdef Setoid) CoLoR(closure more_list weaved_relation term_spec equational_theory_spec dp graph_dp terminaison interp)