(** SF_sup and SF_inf *)
Definition SF_sup_seq (f : R -> R) (a b : R) (n : nat) : SF_seq :=
SF_seq_f2 (Sup_fct f) (unif_part a b n).

Lemma SF_sup_lx (f : R -> R) (a b : R) (n : nat) :
SF_lx (SF_sup_seq f a b n) = unif_part a b n.