proposition: Lemma nf_Wf : well_founded_restriction _ nf lt.
proof: Proof. intros a H; assert(H0 := Acc_inverse_image _ _ rpo T2_2_term a (well_founded_rpo (T2_2_term a))). eapply Acc_incl with (fun x y : T2 => rpo (T2_2_term x) (T2_2_term y)). - red; apply R_inc_rpo. - auto with T2. Qed.
imports: Coq(Arith List Lia Compare_dec Relations Wellfounded RelationClasses) hydras(Epsilon0) hydras(More_Arith Restriction) hydras(ON_Generic) hydras(rpo.term rpo.rpo) hydras(T2) hydras(Compat815)