From e6c41b96a5ea9f8559acf176cdf997b05ccfb317 Mon Sep 17 00:00:00 2001
From: Théo Zimmermann
Date: Tue, 30 May 2017 12:10:35 +0200
Subject: Fix bug 5550: "typeclasses eauto with" does not work with section
 variables.

---
 tactics/class_tactics.ml      |  1 +
 test-suite/bugs/closed/5550.v | 10 ++++++++++
 2 files changed, 11 insertions(+)
 create mode 100644 test-suite/bugs/closed/5550.v

diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index d1ae85e7be..2c911addf5 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -593,6 +593,7 @@ let make_hints g st only_classes sign =
     List.fold_left
       (fun hints hyp ->
         let consider =
+          not only_classes ||
           let open Context.Named.Declaration in
           try let t = Global.lookup_named (get_id hyp) |> get_type in
               (* Section variable, reindex only if the type changed *)
diff --git a/test-suite/bugs/closed/5550.v b/test-suite/bugs/closed/5550.v
new file mode 100644
index 0000000000..bb1222489a
--- /dev/null
+++ b/test-suite/bugs/closed/5550.v
@@ -0,0 +1,10 @@
+Section foo.
+
+  Variable bar : Prop.
+  Variable H : bar.
+
+  Goal bar.
+    typeclasses eauto with foobar.
+  Qed.
+
+End foo.
-- 
cgit v1.2.3