fact: Definition goes_wrong (s: store) (c: com) : Prop := exists c', exists s', star red (c, s) (c', s') /\ irred red (c', s') /\ c' <> SKIP.
imports: Coq(Arith ZArith Psatz Bool String List Program.Equality) CDF(Sequences Simulation)