intros.
elim
(EXPH4 (K i) (seq (ia frame s5 (tuple e1)) (R i))
(seq (Tn_d d e0) (seq (Sn e1) (S i))) (L i)).
elim LmerK.
elim LmerL.
elim Lmers5.
elim LmerTnd.
elim CommTn_dL.
elim CommTn_ds5.
elim CommLs5.
elim CommKs5.
elim CommKL.
elim CommTn_dK.
repeat elim A6.
repeat elim A6'.
apply refl_equal.
Qed.

(* Specifications: *)
Theorem Lem9 :
forall d : D,
alt
(seq (ia one int i)
(enc H
(mer (seq (ia frame s6 (tuple e1)) (L i))
(mer (R i) (mer (K i) (seq (Tn_d d e0) (seq (Sn e1) (S i))))))))
(seq (ia one int i)
(enc H
(mer (seq (ia frame s6 sce) (L i))
(mer (R i) (mer (K i) (seq (Tn_d d e0) (seq (Sn e1) (S i)))))))) =
enc H
(mer (R i)
(mer
(alt (seq (ia one int i) (seq (ia frame s6 (tuple e1)) (L i)))
(seq (ia one int i) (seq (ia frame s6 sce) (L i))))
(mer (K i) (seq (Tn_d d e0) (seq (Sn e1) (S i)))))).