fact: CoInductive isTrace_T : Stream (S * Instant) -> Prop := | isTraceTick_T : forall (x : Stream (S * Instant)) (s : S) (t : Instant), inv (inc s tick) -> isTrace_T ((inc s tick, Inc t) ^ x) -> isTrace_T ((s, t) ^ (inc s tick, Inc t) ^ x) | isTraceDisc_T : forall (x : Stream (S * Instant)) (s1 s2 : S) (t : Instant) (l : Label), tr s1 l s2 -> inv s2 -> isTrace_T ((s2, t) ^ x) -> isTrace_T ((s1, t) ^ (s2, t) ^ x).
imports: time_clocks ctl