summaryrefslogtreecommitdiff
path: root/test/regress/regress1/sygus/issue3461.sy
blob: 08b5738c15d43cab0bab96906946778410095574 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; EXPECT: unsat
; COMMAND-LINE: --lang=sygus2 --sygus-out=status

(set-logic ALL_SUPPORTED)

(declare-datatype Doc ((D (owner Int) (body Int))))

(declare-datatype Policy
  ((p (principal Int))
   (por (left Policy) (right Policy))))

(synth-fun mkPolicy ((d Doc)) Policy
  ((Start Policy) (Q Policy))
  ((Start Policy (Q))
   (Q Policy ((p 0) (p 1) (por Q Q))))
)

(check-synth)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback