Notation getl := (getLocal).Notation gets := getStatelet.Notation getp := (@getProtocol _ w).Definition network_rely s1 s2 := exists n, network_rely' n s1 s2.

Lemma rely_send_other' l s s' m tm to b: network_rely s s' -> find m (dsoup (gets s l)) = Some (Msg tm this to b) -> exists b', find m (dsoup (gets s' l)) = Some (Msg tm this to b') /\ (b' -> b).