fact: CoInductive PAlways : Stream B -> ACProcess -> Discourse -> Prop := palways : forall (s : Stream B) (ss : Discourse) (p : ACProcess), Evt (Q (hd s)) p ss -> (forall (q : ACProcess) (ss1 : Discourse), Wittness (hd s) q ss1 p ss -> PAlways (tl s) q ss1) -> PAlways s p ss.
imports: Streams