fact: Definition ddp_rule is_def (lhs rhs:term) := map (fun r => (lhs,r)) (defined_subterms is_def lhs (@nil term) rhs).
imports: Coq(List Relations Wellfounded Arith Recdef Setoid) CoLoR(closure more_list weaved_relation term equational_theory_spec) CoLoR(NatCompat)