diff options
-rw-r--r-- | plugins/omega/coq_omega.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index a2016cb03..7780de712 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -1884,6 +1884,7 @@ let destructure_goal = (mkApp (Lazy.force coq_dec_not_not, [| t; dec; mkNewMeta () |])))) intro with Undecidable -> Tactics.elim_type (Lazy.force coq_False) + | e when Proofview.V82.catchable_exception e -> Proofview.tclZERO e in Tacticals.New.tclTHEN goal_tac destructure_hyps in |