diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-11-20 10:42:15 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-20 10:42:15 +0100 |
commit | 921ee76930bf84b9b3e413cc9c8f5f519c0b06ad (patch) | |
tree | 68838de7714503e169e0e3fdd98f465c6db7c3aa | |
parent | 85aa370f6bcc043a2e9db14551228d0cb1f66106 (diff) | |
parent | 0b4e811e4ad4eb7ff67b48e983d967c7b03c764e (diff) |
Merge PR #6166: Fix regression in treating Defined as defined
-rw-r--r-- | stm/stm.ml | 1 | ||||
-rw-r--r-- | test-suite/bugs/closed/gh6165.v | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index b394c3a13..6c696ebb8 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 diff --git a/test-suite/bugs/closed/gh6165.v b/test-suite/bugs/closed/gh6165.v new file mode 100644 index 000000000..b87a7caaf --- /dev/null +++ b/test-suite/bugs/closed/gh6165.v @@ -0,0 +1,5 @@ +(* -*- mode: coq; coq-prog-args: ("-quick") -*- *) + +Goal True. + abstract exact I. +Timeout 1 Defined. |