diff options
| author | Matthieu Sozeau | 2014-06-17 14:15:08 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-17 15:42:14 +0200 |
| commit | d104b50b9c9a589d9fd8e44bdf56794c8aea4e53 (patch) | |
| tree | d68e8fc7f40dc25d075923b3df635c25e650d2a0 /kernel/entries.mli | |
| parent | b8834d66013b38cef247507f312bb081de04da27 (diff) | |
Safer entry point of primitive projections in the kernel, now it does recognize
a projection constant only of the form
λ params (r : I params), match r with BuildR args => args_i end, without any
other user input and relies on it being typable (no more primitive projections
escaping this).
Diffstat (limited to 'kernel/entries.mli')
| -rw-r--r-- | kernel/entries.mli | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/kernel/entries.mli b/kernel/entries.mli index 07c18d5e36..c672ba731f 100644 --- a/kernel/entries.mli +++ b/kernel/entries.mli @@ -53,8 +53,6 @@ type mutual_inductive_entry = { type proof_output = constr Univ.in_universe_context_set * Declareops.side_effects type const_entry_body = proof_output Future.computation -type projection = mutual_inductive * int * int * types - type definition_entry = { const_entry_body : const_entry_body; (* List of sectoin variables *) @@ -64,7 +62,7 @@ type definition_entry = { const_entry_type : types option; const_entry_polymorphic : bool; const_entry_universes : Univ.universe_context; - const_entry_proj : projection option; + const_entry_proj : bool; const_entry_opaque : bool; const_entry_inline_code : bool } |