diff options
author | Andrew Reynolds <andrew.j.reynolds@gmail.com> | 2018-04-04 16:17:35 -0500 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-04-04 16:17:35 -0500 |
commit | 0811ba46a8a8818231e7f4e931b99d654c12a348 (patch) | |
tree | 02007a6dfc68675c804babff4a35a7cf271c44f8 /test/regress/regress0/ho | |
parent | 541b880047374f3748fbf9fa93214bae1308b1aa (diff) |
Fix for corner case of higher-order matching (#1708)
Diffstat (limited to 'test/regress/regress0/ho')
-rw-r--r-- | test/regress/regress0/ho/ho-match-fun-suffix.smt2 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/regress/regress0/ho/ho-match-fun-suffix.smt2 b/test/regress/regress0/ho/ho-match-fun-suffix.smt2 new file mode 100644 index 000000000..1e4ad243c --- /dev/null +++ b/test/regress/regress0/ho/ho-match-fun-suffix.smt2 @@ -0,0 +1,13 @@ +; COMMAND-LINE: --uf-ho +; EXPECT: unsat +(set-logic ALL) +(set-info :status unsat) +(declare-fun f (Int Int) Int) +(declare-fun a () Int) +(declare-fun b () Int) + +(assert (forall ((x (-> Int Int)) (y Int)) (not (= (x y) 0)))) + +(assert (= (f a b) 0)) + +(check-sat)
\ No newline at end of file |