Hint Resolve EQFf (*EQfF*).
Goal forall d e : Frame, d = e -> true = eqF d e.
intros.
elim H.
apply eqF7.
Save eqF_elim.
Goal forall d e : Frame, true = eqF d e -> d = e.
intros.
elim (eqF8 d e).
elim H.
elim eqF5.
apply refl_equal.
Save eqF_intro.
Goal forall d e : Frame, false = eqF d e -> d <> e.
intros.
red in |- *; intro.
cut (forall P : bool -> Prop, P true -> P false); intro L.
apply
(L
(fun P : bool =>
match P return Prop with
| true => True
| false => False
end)).
exact I.
intros.
elimtype (eqF d e = false).
elim H0.
elim eqF7.
assumption.
apply sym_equal.
assumption.
Save eqF_intro'.
(* Below the processes used in the alternating bit protocol are defined *)
Parameter K : one -> proc.
Parameter L : one -> proc.
Parameter S : one -> proc.
Parameter Sn : bit -> proc.
Parameter Sn_d : D -> bit -> proc.
Parameter Tn_d : D -> bit -> proc.
Parameter R : one -> proc.
Parameter Rn : bit -> proc.
Section PROC.
Variable b : bit.
Variable j : one.
Variable d : D.
Axiom
ChanK :
Frame +
(fun x : Frame =>
seq (ia Frame r2 x)
(seq
(alt (seq (ia one int i) (ia Frame s3 x))
(seq (ia one int i) (ia Frame s3 lce)))
(K i))) = K j.
Axiom
ChanL :
frame +
(fun n : frame =>
seq (ia frame r5 n)
(seq
(alt (seq (ia one int i) (ia frame s6 n))
(seq (ia one int i) (ia frame s6 sce)))
(L i))) = L j.

Axiom ProcS : seq (Sn e0) (seq (Sn e1) (S i)) = S j.