File: query_mathsat.gold

package info (click to toggle)
haskell-sbv 7.12-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 4,276 kB
  • sloc: haskell: 17,943; makefile: 4
file content (55 lines) | stat: -rw-r--r-- 2,116 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
** Calling: mathsat -input=smt2 -theory.fp.minmax_zero_mode=4
[GOOD] ; Automatically generated by SBV. Do not edit.
[GOOD] (set-option :print-success true)
** Backend solver MathSAT does not support global decls.
** Some incremental calls, such as pop, will be limited.
[GOOD] (set-option :diagnostic-output-channel "stdout")
[GOOD] (set-option :produce-models true)
[GOOD] (set-logic QF_BV)
[GOOD] ; --- uninterpreted sorts ---
[GOOD] ; --- literal constants ---
[GOOD] (define-fun s_2 () Bool false)
[GOOD] (define-fun s_1 () Bool true)
[GOOD] (define-fun s2 () (_ BitVec 32) #x00000000)
[GOOD] ; --- skolem constants ---
[GOOD] (declare-fun s0 () (_ BitVec 32)) ; tracks user variable "a"
[GOOD] (declare-fun s1 () (_ BitVec 32)) ; tracks user variable "b"
[GOOD] ; --- constant tables ---
[GOOD] ; --- skolemized tables ---
[GOOD] ; --- arrays ---
[GOOD] ; --- uninterpreted constants ---
[GOOD] ; --- user given axioms ---
[GOOD] ; --- formula ---
[GOOD] (define-fun s3 () Bool (bvsgt s0 s2))
[GOOD] (define-fun s4 () Bool (bvsgt s1 s2))
[GOOD] (assert (! s3 :named |a > 0|))
[GOOD] (assert s4)
[GOOD] (define-fun s5 () (_ BitVec 32) #x00000002)
[GOOD] (define-fun s7 () (_ BitVec 32) #x0000000f)
[GOOD] (define-fun s6 () (_ BitVec 32) (bvadd s0 s5))
[GOOD] (define-fun s8 () Bool (bvsle s6 s7))
[GOOD] (assert s8)
[GOOD] (define-fun s9 () (_ BitVec 32) #x00000003)
[GOOD] (define-fun s10 () Bool (bvslt s0 s9))
[GOOD] (assert s10)
[GOOD] (define-fun s11 () Bool (bvslt s1 s5))
[GOOD] (assert s11)
[GOOD] (define-fun s13 () (_ BitVec 32) #x0000000c)
[GOOD] (define-fun s12 () (_ BitVec 32) (bvadd s0 s1))
[GOOD] (define-fun s14 () Bool (bvslt s12 s13))
[GOOD] (assert (! s14 :named |a+b_<_12|))
[GOOD] (define-fun s15 () Bool (bvslt s0 s5))
[GOOD] (assert s15)
[SEND] (check-sat)
[RECV] sat
[GOOD] (define-fun s16 () (_ BitVec 32) #x00000001)
[GOOD] (define-fun s17 () Bool (bvsge s0 s16))
[GOOD] (assert (! s17 :named |extra|))
[SEND] (check-sat)
[RECV] sat
[SEND] (get-value (s0))
[RECV] ( (s0 (_ bv1 32)) )
[SEND] (get-value (s1))
[RECV] ( (s1 (_ bv1 32)) )
*** Solver   : MathSAT
*** Exit code: ExitSuccess