diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-15 21:32:33 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-23 09:44:55 +0200 |
commit | b4e1a902910cfab698fd5bdd2e9a18a28944c95e (patch) | |
tree | f37472131788c59a61dfe73f65988aab768638fa /engine/proofview.ml | |
parent | d30ed5fe0694466f70eed51bc689cd0fa8c00da5 (diff) |
In enter_one, not having exactly one goal is a fatal error of the monad.
Pointed out by PMP.
Diffstat (limited to 'engine/proofview.ml')
-rw-r--r-- | engine/proofview.ml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index 39ef65dab..03148d619 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -1072,13 +1072,6 @@ module Goal = struct end end - exception NotExactlyOneSubgoal - let _ = CErrors.register_handler begin function - | NotExactlyOneSubgoal -> - CErrors.user_err (Pp.str"Not exactly one subgoal.") - | _ -> raise CErrors.Unhandled - end - let enter_one f = let open Proof in Comb.get >>= function @@ -1090,7 +1083,7 @@ module Goal = struct let (e, info) = CErrors.push e in tclZERO ~info e end - | _ -> tclZERO NotExactlyOneSubgoal + | _ -> assert false (* unsatisfied not-exactly-one-goal precondition *) let goals = Pv.get >>= fun step -> |