mirror of
https://github.com/AdaCore/why3.git
synced 2026-02-12 12:34:55 -08:00
21 lines
290 B
Plaintext
21 lines
290 B
Plaintext
|
|
use int.Int
|
|
use bool.Bool
|
|
|
|
val ref x : int
|
|
val ref a : bool
|
|
val ref b : bool
|
|
|
|
let main [@bddinfer] () diverges
|
|
=
|
|
x <- 0;
|
|
a <- True;
|
|
b <- True;
|
|
while x <= 100 do
|
|
x <- x + 1;
|
|
a <- notb a;
|
|
b <- notb b;
|
|
done;
|
|
[@bddinfer:A1] assert { x = 101 };
|
|
[@bddinfer:A2] assert { a = b }
|