Definition st_helper := st_helper.Definition cohSt := cohSt.Definition S_inv := ProtocolWithInvariant.S_inv.Definition R_inv := ProtocolWithInvariant.R_inv.Definition SendInv := SendInv.Definition SI := SI.Definition ReceiveInv := ReceiveInv.Definition RI := RI.Definition InductiveInv := InductiveInv.

Lemma with_inv_step' pr I (ii : InductiveInv pr I) z s1 s2: network_step (mkWorld (ProtocolWithIndInv ii)) z s1 s2 -> network_step (mkWorld pr) z s1 s2.