summaryrefslogtreecommitdiff
path: root/test/regress/regress0/fmf/quant_real_univ.cvc.smt2
diff options
context:
space:
mode:
Diffstat (limited to 'test/regress/regress0/fmf/quant_real_univ.cvc.smt2')
-rw-r--r--test/regress/regress0/fmf/quant_real_univ.cvc.smt213
1 files changed, 13 insertions, 0 deletions
diff --git a/test/regress/regress0/fmf/quant_real_univ.cvc.smt2 b/test/regress/regress0/fmf/quant_real_univ.cvc.smt2
new file mode 100644
index 000000000..f4724355b
--- /dev/null
+++ b/test/regress/regress0/fmf/quant_real_univ.cvc.smt2
@@ -0,0 +1,13 @@
+; EXPECT: sat
+(set-logic ALL)
+(set-option :incremental false)
+(set-option :fmf-bound true)
+(set-option :sets-ext true)
+(declare-sort Atom 0)
+(declare-fun REAL_UNIVERSE () (Set (Tuple Real)))
+(declare-fun ATOM_UNIVERSE () (Set (Tuple Atom)))
+(assert (= REAL_UNIVERSE (as univset (Set (Tuple Real)))))
+(assert (= ATOM_UNIVERSE (as univset (Set (Tuple Atom)))))
+(declare-fun levelVal () (Set (Tuple Atom Real)))
+(assert (forall ((s Atom) (v1 Real) (v2 Real)) (=> (and (and (member (mkTuple s) ATOM_UNIVERSE) (member (mkTuple v1) REAL_UNIVERSE)) (member (mkTuple v2) REAL_UNIVERSE)) (=> (and (member (mkTuple s v1) levelVal) (member (mkTuple s v2) levelVal)) (= v1 v2)))))
+(check-sat)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback