diff options
| author |  Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-05-30 12:10:35 +0200 |
|---|---|---|
| committer | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-05-30 12:11:04 +0200 |
| commit | e6c41b96a5ea9f8559acf176cdf997b05ccfb317 (patch) | |
| tree | d0b596966abb0d69a37448c481d68140edc63bd7 /tactics/class_tactics.ml | |
| parent | eefda76f6f42674fb342e1aa5f1dcf29569a4806 (diff) | |
Fix bug 5550: "typeclasses eauto with" does not work with section variables.
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index d1ae85e7b..2c911addf 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 *) |