diff options
| author | Emilio Jesus Gallego Arias | 2020-04-02 02:30:37 -0400 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-04-15 11:12:24 -0400 |
| commit | 2b46da3e7b5c6bcfd7c32b95248df6d1dfa43185 (patch) | |
| tree | dca8cbb4a1325ec798d53f688ad464bc15cb6fcb /tactics/declare.ml | |
| parent | b87b27011a061ead6eca7d8630ad3f59c45877e2 (diff) | |
[declare] Mark APIs as scheduled for removal; remove a couple.
We mark all the stuff scheduled to disappear in `Declare`, and remove
a couple of non-needed APIs.
Diffstat (limited to 'tactics/declare.ml')
| -rw-r--r-- | tactics/declare.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/declare.ml b/tactics/declare.ml index fb8d4e3470..adcf3e247d 100644 --- a/tactics/declare.ml +++ b/tactics/declare.ml @@ -404,14 +404,14 @@ let pure_definition_entry ?fix_exn ?(opaque=false) ?(inline=false) ?types proof_entry_feedback = None; proof_entry_inline_code = inline} -let delayed_definition_entry ?(opaque=false) ?(inline=false) ?feedback_id ?section_vars ?(univs=default_univ_entry) ?types body = +let delayed_definition_entry ~opaque ?feedback_id ~section_vars ~univs ?types body = { proof_entry_body = body ; proof_entry_secctx = section_vars ; proof_entry_type = types ; proof_entry_universes = univs ; proof_entry_opaque = opaque ; proof_entry_feedback = feedback_id - ; proof_entry_inline_code = inline + ; proof_entry_inline_code = false } let cast_proof_entry e = @@ -749,7 +749,7 @@ let close_proof_delayed ~feedback_id ps (fpl : closed_proof_output Future.comput let univs = UState.restrict uctx used_univs in let univs = UState.check_mono_univ_decl univs udecl in (pt,univs),eff) - |> delayed_definition_entry ~opaque ~feedback_id ?section_vars ~univs ~types + |> delayed_definition_entry ~opaque ~feedback_id ~section_vars ~univs ~types in let entries = Future.map2 make_entry fpl (Proofview.initial_goals entry) in { name; entries; uctx = initial_euctx } |
