intro.
unfold Y1 at 1 in |- *.
elim (EXPH4 (seq (Sn_d d e1) (S i))).
elim LmerSnd.
elim LmerK.
elim LmerL.
pattern (R i) at 2 3 5 8 in |- *.
elim ProcR.
elim LmerRn.
elim CommLRn.
elim CommKL.
elim CommKRn.
elim ProcSn_d.
elim A5.
elim Comms2K.
elim Comms2Rn.
elim Comms2L.
repeat elim A6.
repeat elim A6'.
elim SC7.
apply refl_equal.
Qed.

(* Specifications: *)
Theorem Lem14 :
forall d : D,
alt
(seq (ia one int i)
(enc H
(mer (seq (ia Frame s3 (Tuple e1 d)) (K i))
(mer (seq (Tn_d d e1) (S i)) (mer (L i) (seq (Rn e0) (R i)))))))
(seq (ia one int i)
(enc H
(mer (seq (ia Frame s3 lce) (K i))
(mer (seq (Tn_d d e1) (S i)) (mer (L i) (seq (Rn e0) (R i))))))) =
enc H
(mer (seq (Tn_d d e1) (S i))
(mer
(seq
(alt (seq (ia one int i) (ia Frame s3 (Tuple e1 d)))
(seq (ia one int i) (ia Frame s3 lce)))
(K i)) (mer (L i) (seq (Rn e0) (R i))))).