blob: e9fca17164cb541438754c044148c6da24f6d43d (
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
|
(set-logic ALL_SUPPORTED)
(set-info :status unsat)
; conjecture set nonempty(~b & ~c)
(declare-fun n () Int)
(declare-fun f () Int)
(declare-fun m () Int)
(declare-fun b () (Set Int))
(declare-fun c () (Set Int))
(declare-fun UNIVERALSET () (Set Int))
(assert (subset b UNIVERALSET))
(assert (subset c UNIVERALSET))
(assert (> n 0))
(assert (= (card UNIVERALSET) n))
(assert (= (card b) m))
(assert (= (card c) (- f m)))
(assert (>= m 0))
(assert (>= f m))
(assert (> n (+ (* 2 f) m)))
(assert (>= (card (setminus UNIVERALSET (intersection (setminus UNIVERALSET b) (setminus UNIVERALSET c)))) n))
(check-sat)
|