fact: Definition Interp_dom R1 R2 t := forall p f l, subterm_at_pos t p = Some (Term f l) -> defined R2 f -> Acc (one_step (@union _ R1 R2)) (Term f l).
imports: Coq(List Relations Wellfounded Arith Recdef Setoid) CoLoR(closure more_list weaved_relation term equational_theory_spec dp)