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.

(* Specifications: *)
Lemma with_inv_nodes pr I (ii : InductiveInv pr I) l : nodes (getProtocol (mkWorld (ProtocolWithIndInv ii)) l) = nodes (getProtocol (mkWorld pr) l).
Lemma with_inv_labE pr I (ii : InductiveInv pr I): plab (ProtocolWithIndInv ii) = plab pr.
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.
Lemma with_inv_rely' pr I (ii : InductiveInv pr I) z s1 s2: network_rely (mkWorld (ProtocolWithIndInv ii)) z s1 s2 -> network_rely (mkWorld pr) z s1 s2.