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

Lemma SF_sup_subdiv (f : R -> R) (a b : R) (n : nat) : subdivision (SF_sup_r f a b n) = match (Rle_dec a b) with | left _ => seq2Rlist (unif_part a b n) | right _ => seq2Rlist (unif_part b a n) end.