Definition SF_inf_r (f : R -> R) (a b : R) (n : nat) : StepFun a b.

(* Specifications: *)
Lemma SF_inf_subdiv_val (f : R -> R) (a b : R) (n : nat) :
subdivision_val (SF_inf_r f a b n) =
match (Rle_dec a b) with
| left _ => (seq2Rlist (behead (pairmap (fun x y => real (Inf_fct f x y)) 0 (unif_part a b n))))
| right _ => (seq2Rlist (behead (pairmap (fun x y => real (Inf_fct f x y)) 0 (unif_part b a n))))
end.
Lemma SF_inf_r_bound (f : R -> R) (a b : R) (n : nat) :
forall x, SF_inf_r f a b n x = SF_inf_r f b a n x.