proposition: Theorem infinite_loop : forall (s s':state)(b:bExp), exec s (WhileDo b Skip) s' -> evalB s b = Some true -> False.
proof: Proof. intros s s' b Hexec Heval. apply (infinite_loop_aux s s' (WhileDo b Skip) Hexec b); trivial. Qed.
imports: ZArith