mirror of
https://github.com/AdaCore/why3.git
synced 2026-02-12 12:34:55 -08:00
13 lines
197 B
Plaintext
13 lines
197 B
Plaintext
module T
|
|
use int.Int
|
|
|
|
type t = { x : int }
|
|
invariant { 0 < x }
|
|
by { x = 1 }
|
|
|
|
|
|
let f b =
|
|
if b then let y = { x = 1 } in y
|
|
else { x = 2 }
|
|
end
|