intros.
elim
(EXPH4 (seq (Tn_d d e0) (seq (Sn e1) (S i)))
(seq
(alt (seq (ia one int i) (ia Frame s3 (Tuple e0 d)))
(seq (ia one int i) (ia Frame s3 lce))) (K i))
(L i) (R i)).
elim LmerTnd.
elim LmerL.
elim A4.
elim A5.
elim A5.
elim Lmeri.
pattern (R i) at 5 6 8 11 in |- *.
elim ProcR.
elim LmerRn.
elim CommLRn.
elim CommiL.
elim CommiRn.
elim CommTn_dL.
elim CommTn_di.
elim CommTn_dRn.
repeat elim A6.
repeat elim A6'.
apply refl_equal.
Qed.

(* Specifications: *)
Theorem Lem5 :
forall d : D,
seq (ia Frame c3 lce)
(enc H
(mer (K i)
(mer (seq (ia frame s5 (tuple e1)) (R i))
(mer (seq (Tn_d d e0) (seq (Sn e1) (S i))) (L i))))) =
enc H
(mer (seq (ia Frame s3 lce) (K i))
(mer (seq (Tn_d d e0) (seq (Sn e1) (S i))) (mer (L i) (R i)))).