diff options
| author |  Enrico Tassi <gareuselesinge@debian.org> | 2015-11-13 11:43:34 +0100 |
|---|---|---|
| committer | Enrico Tassi <gareuselesinge@debian.org> | 2015-11-13 11:43:34 +0100 |
| commit | 4e76c4f01b69b77f40686e06c4544aa156efaa5a (patch) | |
| tree | aefad2e3de35f75c46729f9310d33b56d3821961 /tactics/tauto.ml4 | |
| parent | 64fa31c7ee53e79b112507fb2eea27dc7648328d (diff) | |
| parent | 91dbeab8eef959c3f64960909ca69d4e68c8198d (diff) | |
Imported Upstream version 8.5~beta3+dfsg
Diffstat (limited to 'tactics/tauto.ml4')
| -rw-r--r-- | tactics/tauto.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index 4b03ff24..b4c7bffa 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -316,7 +316,7 @@ let tauto_intuitionistic flags = (intuition_gen (default_ist ()) flags <:tactic<fail>>) begin function (e, info) -> match e with | Refiner.FailError _ | UserError _ -> - Proofview.tclZERO (UserError ("tauto" , str "tauto failed.")) + Tacticals.New.tclZEROMSG (str "tauto failed.") | e -> Proofview.tclZERO ~info e end @@ -328,7 +328,7 @@ let tauto_classical flags nnpp = Proofview.tclORELSE (Tacticals.New.tclTHEN (apply nnpp) (tauto_intuitionistic flags)) begin function (e, info) -> match e with - | UserError _ -> Proofview.tclZERO (UserError ("tauto" , str "Classical tauto failed.")) + | UserError _ -> Tacticals.New.tclZEROMSG (str "Classical tauto failed.") | e -> Proofview.tclZERO ~info e end |