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 +
 1 file changed, 1 insertion(+)

(limited to 'stm')

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
-- 
cgit v1.2.3