12 lines
306 B
Text
12 lines
306 B
Text
(set-option :verbose true)
|
|
(set-option :use_locals)
|
|
(assert (= 0 0.0))
|
|
(assert (= 1.0 (+ 0 1.0)))
|
|
(assert (= 1.0 (+ 0 1)))
|
|
(assert (= 1.0 (+ 1.0 0)))
|
|
(assert (= 1 (/ 2.2 4)))
|
|
(assert (< 1 (/ 2 4)))
|
|
|
|
(assert (= 0 (ite true 0 0.0)))
|
|
(assert (distinct 0 0.0 1 1.0))
|
|
(assert (= 1.0 (let ((x 1)) (+ 1 x 1.0))))
|