summaryrefslogtreecommitdiff
path: root/test/regress/regress0/bug484.smt2
diff options
context:
space:
mode:
Diffstat (limited to 'test/regress/regress0/bug484.smt2')
-rw-r--r--test/regress/regress0/bug484.smt2107
1 files changed, 53 insertions, 54 deletions
diff --git a/test/regress/regress0/bug484.smt2 b/test/regress/regress0/bug484.smt2
index 87a8696b6..3b84b7aff 100644
--- a/test/regress/regress0/bug484.smt2
+++ b/test/regress/regress0/bug484.smt2
@@ -1,64 +1,63 @@
-; COMMAND-LINE: --lang=smt2.5
; EXPECT: sat
; Preamble --------------
(set-logic ALL)
(set-info :status sat)
-(declare-datatypes () ((UNIT (Unit))))
-(declare-datatypes () ((BOOL (Truth) (Falsity))))
+(declare-datatypes ((UNIT 0)) (((Unit))))
+(declare-datatypes ((BOOL 0)) (((Truth) (Falsity))))
; Decls --------------
(declare-sort A 0)
(declare-sort B 0)
(declare-sort C 0)
(declare-sort D 0)
-(declare-datatypes () ((E (one) (two) (three))))
-(declare-datatypes () ((F (four) (five) (six))))
-(declare-datatypes () ((G (c_G (seven BOOL)))))
+(declare-datatypes ((E 0)) (((one) (two) (three))))
+(declare-datatypes ((F 0)) (((four) (five) (six))))
+(declare-datatypes ((G 0)) (((c_G (seven BOOL)))))
-(declare-datatypes ()
- ((H
- (c_H
- (foo1 BOOL)
- (foo2 A)
- (foo3 B)
- (foo4 B)
+(declare-datatypes ((H 0))
+ ((
+ (c_H
+ (foo1 BOOL)
+ (foo2 A)
+ (foo3 B)
+ (foo4 B)
(foo5 Int)
)
))
)
-(declare-datatypes ()
- ((I
- (c_I
- (bar1 E)
- (bar2 Int)
- (bar3 Int)
+(declare-datatypes ((I 0))
+ ((
+ (c_I
+ (bar1 E)
+ (bar2 Int)
+ (bar3 Int)
(bar4 A)
)
))
)
-(declare-datatypes ()
- ((J
- (c_J
- (f1 BOOL)
- (f2 Int)
- (f3 Int)
- (f4 Int)
- (f5 I)
- (f6 B)
+(declare-datatypes ((J 0))
+ ((
+ (c_J
+ (f1 BOOL)
+ (f2 Int)
+ (f3 Int)
+ (f4 Int)
+ (f5 I)
+ (f6 B)
(f7 C)
)
))
)
-(declare-datatypes ()
- ((K
- (c_K
- (g1 BOOL)
- (g2 F)
- (g3 A)
+(declare-datatypes ((K 0))
+ ((
+ (c_K
+ (g1 BOOL)
+ (g2 F)
+ (g3 A)
(g4 BOOL)
)
))
@@ -76,39 +75,39 @@
; Asserts --------------
-(assert
- (not
- (=
- (ite
- (=>
+(assert
+ (not
+ (=
+ (ite
+ (=>
(= y (g3 (select e1 x)))
- (=>
- (= s2
- (store
- s1
- y
+ (=>
+ (= s2
+ (store
+ s1
+ y
(let ((z (select s1 y)))
- (c_J
- (f1 z)
- (f2 z)
- (- (f3 (select s1 y)) 1)
+ (c_J
+ (f1 z)
+ (f2 z)
+ (- (f3 (select s1 y)) 1)
(f4 z)
- (f5 z)
- (f6 z)
+ (f5 z)
+ (f6 z)
(f7 z)
)
)
)
- )
+ )
(forall ((s A)) (= (g3 (select e2 s)) s))
)
)
- Truth
+ Truth
Falsity
- )
+ )
Truth
)
)
)
-
+
(check-sat)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback