Notation getS s l := (getStatelet s l).Notation getP l := (getProtocol W l).Definition skip_safe s := Coh W s.

(* Specifications: *)
Lemma safe_local s : skip_safe s -> coh p (getS s l).
Lemma skip_step_total s (S : skip_safe s) : exists s' r, skip_step S s' r.
Lemma skip_safe_coh s1 : skip_safe s1 -> Coh W s1.
Lemma skip_step_sem s1 (S : skip_safe s1) s2 r: skip_step S s2 r -> network_step W this s1 s2.