diff options
| author | Pierre-Marie Pédrot | 2019-06-10 12:27:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-17 15:20:03 +0200 |
| commit | a69bb15b1d76b71628b61bc42eb8d79c098074a8 (patch) | |
| tree | 942ea34a92f2eebf7a442288546233b25065856a /library | |
| parent | 5316d205993bb3fe3f69e8984fe53d4d50aa8d2a (diff) | |
Merge universe quantification and delayed constraints in opaque proofs.
This enforces more invariants statically.
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 -> |