diff options
| author |  Tej Chajed <tchajed@mit.edu> | 2017-11-15 12:50:53 -0500 |
|---|---|---|
| committer | Tej Chajed <tchajed@mit.edu> | 2017-11-15 12:53:03 -0500 |
| commit | 0b4e811e4ad4eb7ff67b48e983d967c7b03c764e (patch) | |
| tree | 6d5b0069904701c58f082c5ee32809967fb060ee /stm/stm.ml | |
| parent | a2b02cb9142984b912bf01cea09449d767326f19 (diff) | |
Fix regression in treating Defined as defined
Fixes #6165.
Diffstat (limited to 'stm/stm.ml')
| -rw-r--r-- | stm/stm.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 6c22d3771..1127a0a35 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2065,6 +2065,7 @@ let collect_proof keep cur hd brkind id = | id :: _ -> Names.Id.to_string id in let loc = (snd cur).loc in let rec is_defined_expr = function + | VernacEndProof (Proved (Transparent,_)) -> true | VernacTime (_, e) -> is_defined_expr e | VernacRedirect (_, (_, e)) -> is_defined_expr e | VernacTimeout (_, e) -> is_defined_expr e |