(** Build StepFun using SF_seq *)

(* Specifications: *)
Lemma ad_SF_compat z0 (s : SF_seq) (pr : SF_sorted Rle s) :
adapted_couple (SF_fun s z0) (head 0 (SF_lx s)) (last 0 (SF_lx s))
(seq2Rlist (SF_lx s)) (seq2Rlist (SF_ly s)).