fact: Hypothesis Hlr : match l,r with | None, _ => True | _, None => True | Some l', Some r' => (l'<r')%Q end.
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.reals.Q_in_CReals CoRN.reals.fast.CRIR CoRN.ftc.Rolle CoRN.tactics.CornTac CoRN.model.metric2.Qmetric CoRN.model.totalorder.QposMinMax CoRN.model.totalorder.QMinMax