(** ** SF_seq and seq *)

(* Specifications: *)
Lemma SF_lx_nil (x0 : R) :
SF_lx (SF_nil x0) = [:: x0].
Lemma SF_ly_nil (x0 : R) :
SF_ly (SF_nil x0) = [::].
Lemma SF_lx_cons (h : R*T) (s : SF_seq) :
SF_lx (SF_cons h s) = (fst h) :: (SF_lx s).
Lemma SF_ly_cons (h : R*T) (s : SF_seq) :
SF_ly (SF_cons h s) = (snd h) :: (SF_ly s).
Lemma SF_lx_rcons (s : SF_seq) (h : R*T) :
SF_lx (SF_rcons s h) = rcons (SF_lx s) (fst h).
Lemma SF_ly_rcons (s : SF_seq) (h : R*T) :
SF_ly (SF_rcons s h) = rcons (SF_ly s) (snd h).
Lemma SF_lx_surj (s s0 : SF_seq) :
s = s0 -> SF_lx s = SF_lx s0.
Lemma SF_ly_surj (s s0 : SF_seq) :
s = s0 -> SF_ly s = SF_ly s0.
Lemma SF_lx_ly_inj (s s0 : SF_seq) :
SF_lx s = SF_lx s0 -> SF_ly s = SF_ly s0 -> s = s0.