diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/global.ml b/library/global.ml index 44e4a9b7e1..d28ca0acc1 100644 --- a/library/global.ml +++ b/library/global.ml @@ -141,7 +141,7 @@ let body_of_constant_body access env cb = | Def c -> let u = match cb.const_universes with | Monomorphic _ -> Opaqueproof.PrivateMonomorphic () - | Polymorphic _ -> Opaqueproof.PrivatePolymorphic Univ.ContextSet.empty + | Polymorphic auctx -> Opaqueproof.PrivatePolymorphic (Univ.AUContext.size auctx, Univ.ContextSet.empty) in Some (Mod_subst.force_constr c, u, Declareops.constant_polymorphic_context cb) | OpaqueDef o -> |