proposition: Theorem Always_stable : forall (p : ACProcess) (ss : Discourse) (c : Chnl) (w : Signal c) (q : ACProcess), Trans c p (Transmit c w) q -> Always p (Disc c w ss) -> Always q ss.
proof: Proof. intros. inversion H0. apply H6. change ((fun cw1 : sigS Signal => let (c, w1) return Prop := cw1 in Trans c p (Transmit c w1) q) (existS _ c w1)) in |- *. dependent rewrite H2. assumption. Defined.
imports: Streams