diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-12-12 04:34:45 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-12-13 00:51:37 +0100 |
commit | 7799626c67c39c6bd2c5faf247456efb2c26ae82 (patch) | |
tree | 0281c86ab79000d09ea0aa4706f2461f732e2ac0 /engine/eConstr.ml | |
parent | 2c2a08083bc535397359299690d0bfb3523a9ee1 (diff) |
[econstr] Cleanup in `vernac/classes.ml`.
We fix quite a few types, and perform some cleanup wrt to the
evar_map, in particular we prefer to thread it now as otherwise
it may become trickier to check when we are using the correct one.
Thanks to @SkySkimmer for lots of comments and bug-finding.
Diffstat (limited to 'engine/eConstr.ml')
-rw-r--r-- | engine/eConstr.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index d303038c5..53123c933 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -150,6 +150,8 @@ type rel_declaration = (constr, types) Context.Rel.Declaration.pt type named_context = (constr, types) Context.Named.pt type rel_context = (constr, types) Context.Rel.pt +type 'a puniverses = 'a * EInstance.t + let in_punivs a = (a, EInstance.empty) let mkProp = of_kind (Sort (ESorts.make Sorts.prop)) |