summaryrefslogtreecommitdiff
path: root/test/regress/regress0/quantifiers/ext-ex-deq-trigger.smt2
diff options
context:
space:
mode:
Diffstat (limited to 'test/regress/regress0/quantifiers/ext-ex-deq-trigger.smt2')
-rw-r--r--test/regress/regress0/quantifiers/ext-ex-deq-trigger.smt226
1 files changed, 26 insertions, 0 deletions
diff --git a/test/regress/regress0/quantifiers/ext-ex-deq-trigger.smt2 b/test/regress/regress0/quantifiers/ext-ex-deq-trigger.smt2
new file mode 100644
index 000000000..f6f96fe02
--- /dev/null
+++ b/test/regress/regress0/quantifiers/ext-ex-deq-trigger.smt2
@@ -0,0 +1,26 @@
+; COMMAND-LINE: --relational-triggers
+; EXPECT: unsat
+(set-logic ALL_SUPPORTED)
+(set-info :status unsat)
+
+(declare-sort U 0)
+
+(declare-const k U)
+(declare-const ff U)
+(declare-const ffk U)
+(declare-fun fun1 (Int) Int)
+(declare-fun fun2 (Int) Int)
+(declare-fun c (U U) U)
+(declare-fun app (U Int) Int)
+
+(assert (forall ((f U) (g U)) (=> (forall ((x Int)) (= (app f x) (app g x))) (= f g)) ))
+
+(assert (forall ((x Int)) (= (app ff x) (+ (fun1 x) (fun2 x)))))
+(assert (forall ((x Int)) (= (app ffk x) (+ (fun1 (app k x)) (fun2 (app k x))))))
+
+(assert (forall ((f U) (g U) (x Int)) (= (app (c f g) x) (app f (app g x)))))
+
+(assert (not (= (c ff k) ffk)))
+
+(check-sat)
+
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback