mirror of
https://github.com/AdaCore/why3.git
synced 2026-02-12 12:34:55 -08:00
9 lines
118 B
Plaintext
9 lines
118 B
Plaintext
module M
|
|
|
|
let f (x:'a) ensures { result=x } = x
|
|
|
|
let p () ensures { result = 1 }
|
|
= if f True then f 1 else f 2
|
|
|
|
end
|