fact: Definition strict_mono (f: nat -> nat) := forall n p, (n< p)%N -> (f n < f p)%N.
imports: mathcomp(all_ssreflect zify) Coq(Logic.Eqdep_dec) hydras(DecPreOrder ON_Generic T1 E0) Coq(Relations Basics Wellfounded.Inverse_Image Wellfounded.Inclusion)