(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(****************************************************************************)
(* This contribution was updated for Coq V5.10 by the COQ workgroup.        *)
(* January 1995                                                             *)
(****************************************************************************)
(*                                                                          *)
(*      Coq V5.8                                                            *)
(*                                                                          *)
(*                                                                          *)
(*      Alternating Bit Protocol                                            *)
(*                                                                          *)
(*      Jan Friso Groote                                                    *)
(*      Utrecht University                                                  *)
(*                                                                          *)
(*      November 1992                                                       *)
(*                                                                          *)
(* From bezem@phil.ruu.nl Fri Apr  2 13:14:31 1993                          *)
(*                                                                          *)
(****************************************************************************)
(*                                abp_lem3.v                                *)
(****************************************************************************)

Theorem Lem20 :
forall d : D,
seq (ia frame c6 (tuple e0)) (Y1 d) =
enc H
(mer (seq (ia frame s6 (tuple e0)) (L i))
(mer (seq (Rn e0) (R i)) (mer (K i) (seq (Tn_d d e1) (S i))))) :>proc.