(* [Run] Initial state to run *)
Definition init_state : state := l \\-> init_dstatelet.

(* Specifications: *)
Lemma getCnLoc : getLocal cn init_dstatelet = init_heap_c.
Lemma getPLoc p : p \in pts -> getLocal p init_dstatelet = init_heap_p.
Notation W := (mkWorld (TwoPhaseCoordinator.tpc l cn pts others Hnin)).