(* Final Safety Facts *)

Lemma hook_complete_unit (c : context) : hook_complete (c, Unit).
Program Definition run_coordinator :
DHT [cn, _] (
fun i => network_rely W cn init_state i,
fun _ m => exists (chs : seq bool),
let: r := size data_stream in
let: lg := seq.zip chs data_stream in
getLocal cn (getStatelet m l) =
st :-> (r, CInit) \+ log :-> lg /\
forall pt, pt \in pts ->
getLocal pt (getStatelet m l) =
st :-> (r, PInit) \+ log :-> lg)
:= Do (with_inv (TwoPhaseInductiveProof.ii _ _ _) coordinator).