fact: Definition plot2 (f : R -> R) (ox dx oy dy : R) (h : Z) (l : list (Z * Z)) := forall i x, (ox + dx * INR i <= x <= ox + dx * INR (S i))%R -> (oy <= f x <= oy + dy * IZR h)%R -> let r := nth i l (0%Z, h) in (oy + dy * IZR (fst r) <= f x <= oy + dy * IZR (snd r))%R.
imports: Coq(Reals List) Sig Generic_proof Interval_helper Xreal Interval Tree Reify Prog