From 0b4e811e4ad4eb7ff67b48e983d967c7b03c764e Mon Sep 17 00:00:00 2001
From: Tej Chajed
Date: Wed, 15 Nov 2017 12:50:53 -0500
Subject: Fix regression in treating Defined as defined

Fixes #6165.
---
 stm/stm.ml                      | 1 +
 test-suite/bugs/closed/gh6165.v | 5 +++++
 2 files changed, 6 insertions(+)
 create mode 100644 test-suite/bugs/closed/gh6165.v

diff --git a/stm/stm.ml b/stm/stm.ml
index 6c22d3771d..1127a0a356 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 0000000000..b87a7caaf2
--- /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.
-- 
cgit v1.2.3