mirror of
https://github.com/AdaCore/why3.git
synced 2026-02-12 12:34:55 -08:00
e6a11b4b11
support for unary -, div and mod in logic support for <-> in logic support for calls inside conditions of if and while support for `check` fixed compilation warnings
15 lines
183 B
Plaintext
15 lines
183 B
Plaintext
|
|
use int.Int
|
|
use ref.Ref
|
|
|
|
val x : ref int
|
|
|
|
let main [@bddinfer] () diverges
|
|
=
|
|
x := 0;
|
|
while !x <= 100 do
|
|
(* invariant {100 >= x } *)
|
|
x := !x + 1;
|
|
done;
|
|
assert { !x = 101 }
|