diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-03-23 19:30:59 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-03-23 19:30:59 +0100 |
commit | ca7adf2ee2106667f6de91b3a1ee755f69087e54 (patch) | |
tree | 847bec7a9ba836ca2688acead5e3f000cf29faf2 /src/versions/standard/structures.ml | |
parent | fa38b7c9d97efe4fed2da75b7c217788d1500eeb (diff) | |
download | smtcoq-ca7adf2ee2106667f6de91b3a1ee755f69087e54.tar.gz smtcoq-ca7adf2ee2106667f6de91b3a1ee755f69087e54.zip |
Port to 8.5: how to deal with universe constraints
Diffstat (limited to 'src/versions/standard/structures.ml')
-rw-r--r-- | src/versions/standard/structures.ml | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/versions/standard/structures.ml b/src/versions/standard/structures.ml index caf2844..bd9e4f4 100644 --- a/src/versions/standard/structures.ml +++ b/src/versions/standard/structures.ml @@ -67,12 +67,16 @@ let mkArray : Term.types * Term.constr array -> Term.constr = let dummy_loc = Loc.ghost let mkConst c = - { const_entry_body = Future.from_val ((c, Univ.ContextSet.empty), Safe_typing.empty_private_constants); + let env = Global.env () in + let evd = Evd.from_env env in + let evd, ty = Typing.type_of env evd c in + { const_entry_body = Future.from_val ((c, Univ.ContextSet.empty), + Safe_typing.empty_private_constants); const_entry_secctx = None; const_entry_feedback = None; - const_entry_type = None; + const_entry_type = Some ty; const_entry_polymorphic = false; - const_entry_universes = Univ.UContext.empty; + const_entry_universes = snd (Evd.universe_context evd); const_entry_opaque = false; const_entry_inline_code = false } |