File: 101_eprover_eliminate_range_literal.mlw

package info (click to toggle)
why3 1.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 26,592 kB
  • sloc: xml: 129,496; ml: 77,153; ansic: 2,518; makefile: 2,220; sh: 1,600; lisp: 193; python: 29
file content (30 lines) | stat: -rw-r--r-- 412 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
module A

use int.Int
use mach.int.Int63

let test (x:int63) : int63
  requires { x < 100 }
= x+1

end


(*

module A

use import int.Int
use import mach.int.Int63

val add (x y:int63) : int63
  requires { int63'minInt <= int63'int x + int63'int y <= int63'maxInt }
  ensures { int63'int result = int63'int x + int63'int y }

let test (x:int63) : int63
  requires { int63'int x < 100 }
= add x (1:int63)

end

*)