diff options
| author | coqbot-app[bot] | 2020-10-02 11:04:53 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-02 11:04:53 +0000 |
| commit | bb2d0d56df08ca54764be5a3eb5c09ce00009d6c (patch) | |
| tree | 2f10c490ef22db87d8b8c8c8929c17466bec298f /plugins/ltac | |
| parent | 42a5e337c7a33bf0ec9530b6ce161a3053362b3d (diff) | |
| parent | f16290030b48dedf3091334af4cd21a7df157381 (diff) | |
Merge PR #13106: Remove the forward class hint feature.
Reviewed-by: SkySkimmer
Diffstat (limited to 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index a1dbf9a439..8de6cbc0a6 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -181,7 +181,7 @@ end) = struct fun env sigma -> class_info env sigma (Lazy.force r) let proper_proj env sigma = - mkConst (Option.get (pi3 (List.hd (proper_class env sigma).cl_projs))) + mkConst (Option.get (List.hd (proper_class env sigma).cl_projs).meth_const) let proper_type env (sigma,cstrs) = let l = (proper_class env sigma).cl_impl in |