diff options
| author | Pierre-Marie Pédrot | 2019-05-30 14:17:53 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-30 14:17:53 +0200 |
| commit | 7032085c809993d6a173e51aec447c02828ae070 (patch) | |
| tree | c0d1bf310c529bf74bcfbdd5cc1cd11f7b9b276c /checker/mod_checking.ml | |
| parent | 04398c5fa519b742ff5b97b61bbfa0c9f9d1549c (diff) | |
| parent | 19da31e8e92bb9990e90af162ce1652c6ac71977 (diff) | |
Merge PR #10269: Checker: don't use monomorphic universes attached to a constant
Reviewed-by: ppedrot
Diffstat (limited to 'checker/mod_checking.ml')
| -rw-r--r-- | checker/mod_checking.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/mod_checking.ml b/checker/mod_checking.ml index dedbddfee0..ccce0bd9a7 100644 --- a/checker/mod_checking.ml +++ b/checker/mod_checking.ml @@ -23,7 +23,7 @@ let check_constant_declaration env kn cb = (* [env'] contains De Bruijn universe variables *) let poly, env' = match cb.const_universes with - | Monomorphic ctx -> false, push_context_set ~strict:true ctx env + | Monomorphic ctx -> false, env | Polymorphic auctx -> let ctx = Univ.AUContext.repr auctx in let env = push_context ~strict:false ctx env in |