fact: Definition adapted_couple (f:R -> R) (a b:R) (l lf:list R) : Prop := ordered_Rlist l /\ pos_Rl l 0 = Rmin a b /\ pos_Rl l (pred (length l)) = Rmax a b /\ length l = S (length lf) /\ (forall i:nat, (i < pred (length l))%nat -> constant_D_eq f (open_interval (pos_Rl l i) (pos_Rl l (S i))) (pos_Rl lf i)).
imports: Rbase Rfunctions Ranalysis_reg Classical_Prop List RList Lia Lra