fact: Hypothesis (Hlimder : forall m, m > 0 -> exists alp, alp > 0 /\ (forall x (Hopen : open_interval a b x), R_dist x b < alp -> (derive_pt f x (Df x Hopen) / derive_pt g x (Dg x Hopen) > m))).
imports: Reals Lra Rfunction_classes_def Cauchy_lipschitz Rextensionality