Definition SF_fun (s : SF_seq) (y0 : T) (x : R) :=
  SF_fun_aux (SF_h s,y0) (SF_t s) y0 x.

Lemma SF_fun_map {T T0 : Type} (f : T -> T0) (s : SF_seq) y0 : forall x, SF_fun (SF_map f s) (f y0) x = f (SF_fun s y0 x).