diff options
| author | Maxime Dénès | 2019-10-23 10:01:20 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-10-23 10:01:20 +0200 |
| commit | a88dec59499afa7fbe01e4bd0e8400aebd5ffbcf (patch) | |
| tree | b2d64405d7fbfde84ada7ec7012260be1dd3c51c /kernel/entries.ml | |
| parent | 1f25366ac049dad2f4fa255f47acf84c3ccb4b02 (diff) | |
| parent | 593e784250eca0f38479109395a5fbc605f2c3c4 (diff) | |
Merge PR #10884: Last stop before CEP 40
Reviewed-by: SkySkimmer
Reviewed-by: ejgallego
Reviewed-by: gares
Diffstat (limited to 'kernel/entries.ml')
| -rw-r--r-- | kernel/entries.ml | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/kernel/entries.ml b/kernel/entries.ml index 1e6bc14935..046ea86872 100644 --- a/kernel/entries.ml +++ b/kernel/entries.ml @@ -99,14 +99,10 @@ type primitive_entry = { type 'a proof_output = constr Univ.in_universe_context_set * 'a type 'a const_entry_body = 'a proof_output Future.computation -(** Dummy wrapper type discriminable from unit *) -type 'a seff_wrap = { seff_wrap : 'a } - -type _ constant_entry = - | DefinitionEntry : definition_entry -> unit constant_entry - | OpaqueEntry : 'a const_entry_body opaque_entry -> 'a seff_wrap constant_entry - | ParameterEntry : parameter_entry -> unit constant_entry - | PrimitiveEntry : primitive_entry -> unit constant_entry +type constant_entry = + | DefinitionEntry : definition_entry -> constant_entry + | ParameterEntry : parameter_entry -> constant_entry + | PrimitiveEntry : primitive_entry -> constant_entry (** {6 Modules } *) |