summaryrefslogtreecommitdiff
path: root/test/regress/regress1/sygus/tester.sy
blob: bf1cd15766b14ace1359222992c89f7020728b50 (plain)
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
; EXPECT: unsat
; COMMAND-LINE: --sygus-out=status

(set-logic SLIA)
(declare-datatype DT ((A (a Int)) (B (b String)) (JSBool (jsBool Bool))))

(define-fun isA ((i DT)) Bool ((_ is A) i) )
(define-fun isB ((i DT)) Bool ((_ is B) i) )

(synth-fun add ((x1 DT)) DT
	(
		(Start DT (ntDT))
		(ntDT DT
			( x1
				(JSBool ntBool)
				(A ntInt)
				(ite ntBool ntDT ntDT)
			)
		)
		(ntBool Bool
			(
				(isA ntDT)
				(isB ntDT)
				(jsBool ntDT)
			)
		)
		(ntInt Int
			(1
				(a ntDT)
				(+ ntInt ntInt)
			)
		)
	)
)
(constraint (= (add (A 6)) (A 7)))
(constraint (= (add (B "j")) (B "j")))
(check-synth)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback