fact: CoInductive bisim: nat -> delay A -> delay A -> Prop := | bisim_now: forall n v, bisim n (now v) (now v) | bisim_both: forall m n x y, bisim m x y -> bisim n (later x) (later y) | bisim_left: forall n x y, bisim n x y -> bisim (S n) (later x) y | bisim_right: forall n x y, bisim n x y -> bisim (S n) x (later y).
imports: Coq(Arith ZArith Psatz Bool String List) CDF(Sequences IMP)