diff options
| author | Maxime Dénès | 2017-05-31 11:03:54 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-31 11:03:54 +0200 |
| commit | ab19d271f91007cc76ed95d973bd9b95701c6b2e (patch) | |
| tree | 85ef6783b7d27dd06e43a5ece0028f602ca85917 | |
| parent | 0129c6d5481205dd7de82f52acde57bd4cbd4a26 (diff) | |
| parent | e6c41b96a5ea9f8559acf176cdf997b05ccfb317 (diff) | |
Merge PR#699: Fix bug 5550: "typeclasses eauto with" does not work with section variables.
| -rw-r--r-- | tactics/class_tactics.ml | 1 | ||||
| -rw-r--r-- | test-suite/bugs/closed/5550.v | 10 |
2 files changed, 11 insertions, 0 deletions
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. |