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 /library | |
| 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 'library')
| -rw-r--r-- | library/declare.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/declare.ml b/library/declare.ml index dce346782c..7a80d103d0 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -199,7 +199,7 @@ let definition_entry ?(opaque=false) ?(inline=false) ?types { const_entry_body = Future.from_val ((body,Univ.ContextSet.empty), eff); const_entry_secctx = None; const_entry_type = types; - const_entry_proj = None; + const_entry_proj = false; const_entry_polymorphic = poly; const_entry_universes = univs; const_entry_opaque = opaque; @@ -237,7 +237,7 @@ let declare_sideff env fix_exn se = const_entry_feedback = None; const_entry_polymorphic = cb.const_polymorphic; const_entry_universes = cb.const_universes; - const_entry_proj = None; + const_entry_proj = false; }); cst_hyps = [] ; cst_kind = Decl_kinds.IsDefinition Decl_kinds.Definition; |