Notation getl := (getLocal).Notation gets := (getStatelet).Notation getp := (@getProtocol w).(* Getters for transitions *)

Definition get_coh l := @coh (getp l).Definition get_st l := @snd_trans (getp l).Definition get_rt l := @rcv_trans (getp l).

(* Specifications: *)
Lemma coh_s l s: Coh w s -> coh (getp l) (gets s l).
Lemma step_coh s1 s2: network_step s1 s2 -> Coh w s1 /\ Coh w s2.
Lemma step_preserves_labels s1 s2 : network_step s1 s2 -> dom s1 =i dom s2.
Lemma stepV1 s1 s2: network_step s1 s2 -> valid s1.
Lemma stepV2 s1 s2: network_step s1 s2 -> valid s2.