From 0aec9033a0b78ee1629f7aabce1c8a2e3cfbe619 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 12 Oct 2016 16:18:02 +0200
Subject: sections/hints: prevent Not_found in get_type_of

due to cleared/reverted section variables.
This fixes the get_type_of but requires keeping information
around about the section hyps available in goals during resolution.
It's optimized for the non-section case (should incur no cost there),
and the case where no section variables are cleared.
---
 test-suite/success/clear.v | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/success/clear.v b/test-suite/success/clear.v
index 976bec7371..e25510cf09 100644
--- a/test-suite/success/clear.v
+++ b/test-suite/success/clear.v
@@ -13,3 +13,21 @@ Goal forall y z, (forall x:nat, x=y -> True) -> y=z -> True.
   reflexivity.
 Qed.
 
+Class A.
+
+Section Foo.
+
+  Variable a : A.
+
+  Goal A.
+    solve [typeclasses eauto].
+    Undo 1.
+    clear a.
+    try typeclasses eauto.
+    assert(a:=Build_A).
+    solve [ typeclasses eauto ].
+    Undo 2.
+    assert(b:=Build_A).
+    solve [ typeclasses eauto ].
+  Qed.
+End Foo.
\ No newline at end of file
-- 
cgit v1.2.3