aboutsummaryrefslogtreecommitdiff
path: root/plugins/funind/functional_principles_proofs.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2019-07-11 12:18:18 +0200
committerGaëtan Gilbert2019-07-11 12:18:18 +0200
commitb424691372a61de64b8b9a8c94ef0c9cb61c7274 (patch)
tree60c2cc24ad7550f07cb06aedfb2a3c5402f016ce /plugins/funind/functional_principles_proofs.ml
parent195772efccbac6663501bd5fff63c318d22ee191 (diff)
parentc51fb2fae0e196012de47203b8a71c61720d6c5c (diff)
Merge PR #10498: [api] Deprecate GlobRef constructors.
Reviewed-by: SkySkimmer Ack-by: ppedrot
Diffstat (limited to 'plugins/funind/functional_principles_proofs.ml')
-rw-r--r--plugins/funind/functional_principles_proofs.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml
index 0efb27e3f0..08298bf02c 100644
--- a/plugins/funind/functional_principles_proofs.ml
+++ b/plugins/funind/functional_principles_proofs.ml
@@ -14,7 +14,6 @@ open Tacticals
open Tactics
open Indfun_common
open Libnames
-open Globnames
open Context.Rel.Declaration
module RelDecl = Context.Rel.Declaration
@@ -1027,7 +1026,7 @@ let do_replace (evd:Evd.evar_map ref) params rec_arg_num rev_args_id f fun_num a
update_Function
{finfos with
equation_lemma = Some (match Nametab.locate (qualid_of_ident equation_lemma_id) with
- ConstRef c -> c
+ GlobRef.ConstRef c -> c
| _ -> CErrors.anomaly (Pp.str "Not a constant.")
)
}