intros.
elim EXPH4.
elim Lmers6.
elim LmerK.
elim LmerTnd.
elim LmerRn.
elim CommTn_dK.
elim (SC3 (seq (Rn e0) (R i)) (K i)).
elim CommKRn.
elim (SC3 (seq (Rn e0) (R i)) (seq (Tn_d d e1) (S i))).
elim CommTn_dRn.
elim CommKs6.
elim CommRns6.
pattern e0 at 1 2 in |- *.
elimtype (toggle e1 = e0).
elim CommTn_ds6_b.
repeat elim A6.
repeat elim A6'.
elim Toggle2.
unfold Y1 in |- *.
elim
(SC6 (mer (seq (Sn_d d e1) (S i)) (mer (seq (Rn e0) (R i)) (K i))) (L i)).
elim SC7.
elim SC7.
elim (SC6 (mer (K i) (L i)) (seq (Rn e0) (R i))).
elim SC7.
apply refl_equal.
elim Toggle2.
apply refl_equal.
Qed.

(* Specifications: *)
Theorem Lem21 :
forall d : D,
seq (ia frame c6 sce) (Y1 d) =
enc H
(mer (seq (ia frame s6 sce) (L i))
(mer (seq (Rn e0) (R i)) (mer (K i) (seq (Tn_d d e1) (S i))))).