intros.
elim
(EXPH4 (seq (ia Frame s3 (Tuple e0 d)) (K i))
(seq (Tn_d d e0) (seq (Sn e1) (S i))) (L i) (R i)).
elim Lmers3.
elim LmerTnd.
elim LmerL.
pattern (R i) at 1 2 3 5 8 in |- *.
elim ProcR.
elim LmerRn.
elim CommLRn.
elim CommTn_dL.
elim CommTn_dRn.
elim Comms3Tn_d.
elim Comms3L.
pattern e0 at 6 in |- *.
elimtype (toggle e1 = e0).
elim Comms3Rn_b.
repeat elim A6'.
elim Toggle2.
pattern (R i) at 2 in |- *.
elim ProcR.
apply refl_equal.
elim Toggle2.
apply refl_equal.
Qed.

(* Specifications: *)
Theorem Lem7 :
forall d : D,
seq (ia D s4 d) (X2 d) =
enc H
(mer (K i)
(mer
(seq (ia D s4 d) (seq (ia frame s5 (tuple e0)) (seq (Rn e0) (R i))))
(mer (seq (Tn_d d e0) (seq (Sn e1) (S i))) (L i)))).