diff options
author | Andrew Reynolds <andrew.j.reynolds@gmail.com> | 2017-11-23 20:07:19 -0600 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-11-23 20:07:19 -0600 |
commit | 612509379a1417f8d4a5e001ff143ba819f5516f (patch) | |
tree | 764c379a42fa29ec36d9c83d448901c975e2fa29 /test/regress/regress0/ho/ho-matching-enum.smt2 | |
parent | c9ae6b9812e737ae7932df91fa5f334d6d2588d4 (diff) |
Ho parsing and regressions (#1350)
Diffstat (limited to 'test/regress/regress0/ho/ho-matching-enum.smt2')
-rw-r--r-- | test/regress/regress0/ho/ho-matching-enum.smt2 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/regress/regress0/ho/ho-matching-enum.smt2 b/test/regress/regress0/ho/ho-matching-enum.smt2 new file mode 100644 index 000000000..bd1d2837f --- /dev/null +++ b/test/regress/regress0/ho/ho-matching-enum.smt2 @@ -0,0 +1,19 @@ +; COMMAND-LINE: --uf-ho +; EXPECT: unsat +(set-logic 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 1 y)))))) +;solved by instantiating with {f->\lambda w1w2. (k 0 w1), y-> 0, z-> _ } + +(check-sat) +(exit) |