test/regress/regress0/ho/ho-matching-enum-2.smt2


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

; EXPECT: unsat
(set-logic HO_ALL)
(set-info :status unsat)

(declare-sort U 0)

(declare-fun p (Int) Bool)
(declare-fun q (Int) Bool)
(declare-fun k (Int Int) Int)

(assert (q (k 0 1)))
(assert (not (p (k 0 0))))

(assert (forall ((f (-> Int Int Int)) (y Int) (z Int)) (or (p (f y z)) (not (q (f z y))))))

(check-sat)
(exit)