diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-26 15:56:28 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-26 15:56:28 +0200 |
commit | b98ae49d282f73343c1950e960f4b3bc7c28de70 (patch) | |
tree | 53114d948cc278ca0a98e0a19e0ca9282ee891cd /proofs | |
parent | 0b8c1aa84dc7200b055d45cf528a83163dfd21f8 (diff) | |
parent | 40114382c04aafa1c8e1c156ca24a5ad1aa4b9fb (diff) |
Merge PR #7906: universes_of_constr don't include universes of monomorphic constants
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/proof_global.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 3120c97b5..47c9c51ee 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -348,9 +348,8 @@ let close_proof ~keep_body_ucst_separate ?feedback_id ~now not (Safe_typing.empty_private_constants = eff)) in let typ = if allow_deferred then t else nf t in - let env = Global.env () in - let used_univs_body = Univops.universes_of_constr env body in - let used_univs_typ = Univops.universes_of_constr env typ in + let used_univs_body = Univops.universes_of_constr body in + let used_univs_typ = Univops.universes_of_constr typ in if allow_deferred then let initunivs = UState.const_univ_entry ~poly initial_euctx in let ctx = constrain_variables universes in |