fact: Definition lt {a:A} : relation (t a) := fun alpha beta => ON_lt (proj1_sig alpha) (proj1_sig beta).
imports: Coq(Arith Relations Lia Logic.Eqdep_dec Ensembles Wellfounded.Inverse_Image Wellfounded.Inclusion RelationClasses) hydras(ON_Generic)