diff options
| author | Hugo Herbelin | 2018-02-17 23:57:47 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-03-08 21:58:32 +0100 |
| commit | 00191b7dea128e21abcde02cc45b02d23c205595 (patch) | |
| tree | 4216c8b4d40f489d23e427f5a285426af48d96f0 | |
| parent | 6f30f76def8f6cf1abe7859f482b68c91b4c8709 (diff) | |
Add an invariant on given up goals in class_tactics.
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 031f0bc0e2..0260460e64 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -973,6 +973,8 @@ module Search = struct let (), pv', (unsafe, shelved, gaveup), _ = Proofview.apply env tac pv in + if not (List.is_empty gaveup) then + CErrors.anomaly (Pp.str "run_on_evars not assumed to apply tactics generating given up goals."); if Proofview.finished pv' then let evm' = Proofview.return pv' in assert(Evd.fold_undefined (fun ev _ acc -> |