proposition: Lemma lt_wf : well_founded lt.
proof: Proof. split; intros [t Ht] H. eapply Acc_incl with (fun x y => LT (@vnf x) (@vnf y)). intros x y H0; apply lt_LT_incl; auto. apply (Acc_inverse_image _ _ LT (@vnf) {| vnf := t; vnf_ok := Ht |} ), Lt_wf. 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)