aboutsummaryrefslogtreecommitdiff
path: root/tactics/declare.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2020-04-02 02:30:37 -0400
committerEmilio Jesus Gallego Arias2020-04-15 11:12:24 -0400
commit2b46da3e7b5c6bcfd7c32b95248df6d1dfa43185 (patch)
treedca8cbb4a1325ec798d53f688ad464bc15cb6fcb /tactics/declare.ml
parentb87b27011a061ead6eca7d8630ad3f59c45877e2 (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.ml6
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 }