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 /proofs | |
| 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 'proofs')
| -rw-r--r-- | proofs/proof_global.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 89939b864d..7c44f1500d 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -327,7 +327,7 @@ let close_proof ?feedback_id ~now fpl = const_entry_opaque = true; const_entry_universes = univs; const_entry_polymorphic = poly; - const_entry_proj = None}) + const_entry_proj = false}) fpl initial_goals in { id = pid; entries = entries; persistence = strength; universes = univsubst }, Ephemeron.get terminator |