Notation coherent := (Coh W).Definition always A s (p : proc A) P := forall scs, always_sc s p scs P.

Lemma alw_envsq A s1 (p1 : proc A) (P : _ -> _ -> Prop) : always s1 p1 P -> always s1 p1 (fun s2 p2 => forall s3, network_rely W this s2 s3 -> P s3 p2).