diff options
| author | Matthieu Sozeau | 2014-08-03 20:02:49 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-08-03 23:39:01 +0200 |
| commit | 7002b3daca6da29eadf80019847630b8583c3daf (patch) | |
| tree | 9dcc3b618d33dd416805f70e878d71d007ddf4ff /kernel/safe_typing.ml | |
| parent | 5de89439d459edd402328a1e437be4d8cd2e4f46 (diff) | |
Move to a representation of universe polymorphic constants using indices for variables.
Simplifies instantiation of constants/inductives, requiring less allocation and Map.find's.
Abstraction by variables is handled mostly inside the kernel but could be moved outside.
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 0578d35fc9..71a6b7a399 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -363,15 +363,6 @@ let constraints_of_sfb sfb = | SFBmodtype mtb -> [Now mtb.typ_constraints] | SFBmodule mb -> [Now mb.mod_constraints] -(* let add_constraints cst senv = *) -(* { senv with *) -(* env = Environ.add_constraints cst senv.env; *) -(* univ = Univ.Constraint.union cst senv.univ } *) - -(* let next_universe senv = *) -(* let univ = senv.max_univ in *) -(* univ + 1, { senv with max_univ = univ + 1 } *) - (** A generic function for adding a new field in a same environment. It also performs the corresponding [add_constraints]. *) |