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_labE pr I (ii : InductiveInv pr I): plab (ProtocolWithIndInv ii) = plab pr.