Record SF_seq := mkSF_seq {SF_h : R ; SF_t : seq (R * T)}.Record SF_seq := mkSF_seq {SF_h : R ; SF_t : seq (R * T)}.Record SF_seq := mkSF_seq {SF_h : R ; SF_t : seq (R * T)}.Record SF_seq := mkSF_seq {SF_h : R ; SF_t : seq (R * T)}.Definition SF_lx (s : SF_seq) : seq R := (SF_h s)::(unzip1 (SF_t s)).Definition SF_ly (s : SF_seq) : seq T := unzip2 (SF_t s).Definition SF_make (lx : seq R) (ly : seq T) (Hs : size lx = S (size ly)) : SF_seq :=
  mkSF_seq (head 0 lx) (zip (behead lx) ly).

(* Specifications: *)
Lemma SF_size_lx_ly (s : SF_seq) : size (SF_lx s) = S (size (SF_ly s)).
Lemma SF_seq_bij (s : SF_seq) : SF_make (SF_lx s) (SF_ly s) (SF_size_lx_ly s) = s.
Lemma SF_seq_bij_lx (lx : seq R) (ly : seq T) (Hs : size lx = S (size ly)) : SF_lx (SF_make lx ly Hs) = lx.
Lemma SF_seq_bij_ly (lx : seq R) (ly : seq T) (Hs : size lx = S (size ly)) : SF_ly (SF_make lx ly Hs) = ly.