diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-16 16:06:17 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-16 16:06:17 +0100 |
| commit | 0786ae361cb5f134e91d790d6c096f84535b19ec (patch) | |
| tree | c4aeb3ac1a9c750ecb8e5d79abf218fecab2f774 /plugins | |
| parent | 11d895262e49b4c9f371e38c9e4436cead7001f4 (diff) | |
| parent | ed0c434a05a929a659e43aed80ab7c8179a7daa3 (diff) | |
Merge PR #6148: [api] Another large deprecation, `Nameops` and friends.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index 705a51edd..c63492d1b 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -6,10 +6,10 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -open Names open Pp open CErrors open Util +open Names open Nameops open Namegen open Constr @@ -1143,7 +1143,7 @@ let subterm all flags (s : 'a pure_strategy) : 'a pure_strategy = (* | _ -> b') *) | Lambda (n, t, b) when flags.under_lambdas -> - let n' = name_app (fun id -> Tactics.fresh_id_in_env unfresh id env) n in + let n' = Nameops.Name.map (fun id -> Tactics.fresh_id_in_env unfresh id env) n in let open Context.Rel.Declaration in let env' = EConstr.push_rel (LocalAssum (n', t)) env in let bty = Retyping.get_type_of env' (goalevars evars) b in |