2014-08-20 04:11:43 +04:00
|
|
|
let f x = (x : [4]) == x
|
|
|
|
:prove f
|
|
|
|
:t it
|
|
|
|
it
|
2014-08-22 02:02:35 +04:00
|
|
|
it.result
|
2014-08-20 04:11:43 +04:00
|
|
|
let f x = (x : [4]) == 3
|
|
|
|
:prove f
|
|
|
|
:t it
|
|
|
|
it
|
2014-08-22 02:02:35 +04:00
|
|
|
it.result
|
2014-08-20 04:11:43 +04:00
|
|
|
:sat f
|
|
|
|
:t it
|
|
|
|
it
|
2014-08-22 02:02:35 +04:00
|
|
|
it.result
|
2016-08-19 02:02:56 +03:00
|
|
|
let f x = (x : [4]) == 3 /\ x == 2
|
2014-08-20 04:11:43 +04:00
|
|
|
:sat f
|
|
|
|
:t it
|
|
|
|
it
|
|
|
|
let g p = (p : { x : [32], y : [32]}).x == p.y
|
|
|
|
:prove g
|
|
|
|
:t it
|
|
|
|
it
|
|
|
|
:sat g
|
|
|
|
:t it
|
2014-08-21 04:10:40 +04:00
|
|
|
it
|
|
|
|
let h x y = (x : [8]) < y
|
|
|
|
:prove h
|
|
|
|
:t it
|
|
|
|
it
|
2014-08-22 02:02:35 +04:00
|
|
|
let result = it
|
|
|
|
result.arg1
|
|
|
|
result.arg2
|
2014-08-21 04:10:40 +04:00
|
|
|
:sat h
|
|
|
|
:t it
|
2014-08-20 04:11:43 +04:00
|
|
|
it
|