fact: Definition R1' := compose_rel Rdp0 (refl_trans_clos Rdp').
imports: Coq(List Relations Wellfounded Arith Recdef Setoid) CoLoR(closure more_list weaved_relation term_spec equational_theory_spec dp) CoLoR(NatCompat)