aboutsummaryrefslogtreecommitdiff
path: root/interp/modintern.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-11-12 13:33:21 +0100
committerPierre-Marie Pédrot2020-11-12 13:33:21 +0100
commitc53abd9bf4517ba66c732034fb5f9aedef6d0930 (patch)
treeb31f4b01a1e30edc1045c118c1f285b57583ea5e /interp/modintern.ml
parent0245aa233e671372e9d3fb34f3b34706fd9f4bf7 (diff)
parente7b39c73f48279980f8ea2238632bfbf6e3d4178 (diff)
Merge PR #13289: Cosmetic cleaning of uState.ml: a bit of doc, more unity in naming
Ack-by: gares Reviewed-by: ppedrot
Diffstat (limited to 'interp/modintern.ml')
-rw-r--r--interp/modintern.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/modintern.ml b/interp/modintern.ml
index 50f90ebea7..5f17d3e284 100644
--- a/interp/modintern.ml
+++ b/interp/modintern.ml
@@ -106,7 +106,7 @@ let transl_with_decl env base kind = function
| CWith_Module ({CAst.v=fqid},qid) ->
WithMod (fqid,lookup_module qid), Univ.ContextSet.empty
| CWith_Definition ({CAst.v=fqid},udecl,c) ->
- let sigma, udecl = Constrexpr_ops.interp_univ_decl_opt env udecl in
+ let sigma, udecl = interp_univ_decl_opt env udecl in
let c, ectx = interp_constr env sigma c in
let poly = lookup_polymorphism env base kind fqid in
begin match UState.check_univ_decl ~poly ectx udecl with