Section SkipActionWrapper.
Variable W : world.
Notation getP l := (getProtocol W l).
Notation getS s l := (getStatelet s l).
Variable this : nid.
Variable l : Label.
Variable p : protocol.
Variable pf : getP l = p.
Definition skip_safe s := Coh W s.
Variable V : Type.
(* Skip-like actions allow for reading from the state *)
Variable f : forall s, coh p (getS s l) -> V.

Lemma tryrecv_act_step_safe s1 s2 r:
tryrecv_act_step s1 s2 r -> tryrecv_act_safe s1.