diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 17:02:12 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 17:02:12 +0200 |
commit | dc6e8ccbc2f2596d832db44a322703575e0146c7 (patch) | |
tree | b68a45b537c7d8b7d1e4d5d61105535e6b261359 /src/zchaff/zchaff.ml | |
parent | 9f9699c8134ed0ded42aad64e00cfb9f0a60c914 (diff) | |
download | smtcoq-dc6e8ccbc2f2596d832db44a322703575e0146c7.tar.gz smtcoq-dc6e8ccbc2f2596d832db44a322703575e0146c7.zip |
Make the tactic available for 8.5
Diffstat (limited to 'src/zchaff/zchaff.ml')
-rw-r--r-- | src/zchaff/zchaff.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/zchaff/zchaff.ml b/src/zchaff/zchaff.ml index d0737eb..9cde196 100644 --- a/src/zchaff/zchaff.ml +++ b/src/zchaff/zchaff.ml @@ -390,7 +390,7 @@ let get_arguments concl = match args with | [ty;a;b] when f = Lazy.force ceq && ty = Lazy.force cbool -> a, b | [a] when f = Lazy.force cis_true -> a, Lazy.force ctrue - | _ -> failwith ("Zchaff.tactic :can only deal with equality over bool") + | _ -> failwith ("Zchaff.get_arguments :can only deal with equality over bool") (* Check that the result is Unsat, otherwise raise a model *) |