diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-12-17 15:50:10 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:44 +0100 |
| commit | 63ae87d51456add79652b42b972d6be93b6119bc (patch) | |
| tree | aacaa9dff5c8dab345beb2027dd4b45f0b51c15d /plugins/omega/coq_omega.ml | |
| parent | d629ec7cd920b19a063b7198d4e5b92d91a5656b (diff) | |
Fix a mishandled exception in Omega.
Due to the introduction of the monadic layer, an exception was raised at
a later time and not caught properly.
Diffstat (limited to 'plugins/omega/coq_omega.ml')
| -rw-r--r-- | plugins/omega/coq_omega.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index 8c2f0f53f..72aeb9066 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -1859,7 +1859,9 @@ let destructure_goal = let decidability = Tacmach.New.of_old decidability gl in let rec loop t = Proofview.tclEVARMAP >>= fun sigma -> - match destructurate_prop sigma t with + let prop () = Proofview.tclUNIT (destructurate_prop sigma t) in + Proofview.V82.wrap_exceptions prop >>= fun prop -> + match prop with | Kapp(Not,[t]) -> (Tacticals.New.tclTHEN (Tacticals.New.tclTHEN (unfold sp_not) intro) |