fact: CoInductive equi: delay A -> delay A -> Prop := | equi_terminates: forall x y v, terminates x v -> terminates y v -> equi x y | equi_later: forall x y, equi x y -> equi (later x) (later y).
imports: Coq(Arith ZArith Psatz Bool String List) CDF(Sequences IMP)