fact: Variable comp_ok : forall uv uv', are_connected cdp R uv uv' -> forall n n', comp uv n -> comp uv' n' -> n <= n'.
imports: Coq(List Relations Wellfounded Arith Recdef Setoid) CoLoR(closure more_list weaved_relation term_spec equational_theory_spec dp)