diff options
| author | Pierre-Marie Pédrot | 2018-10-02 08:21:35 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-02 08:21:35 +0200 |
| commit | 8789ab4accda2ce623d788bb7827186ad59c0486 (patch) | |
| tree | 575c992dc6da4f20aa762023fa4a072c8110c551 | |
| parent | 05786b23cf0d031c93998c59f6f2f94d6049b027 (diff) | |
| parent | db4a847ba29c1f12c0583a93df911c9014c767c0 (diff) | |
Merge PR #8595: Replacing Refine.pr_constr by Termops.Internal.print_constr.
| -rw-r--r-- | printing/printer.ml | 1 | ||||
| -rw-r--r-- | proofs/refine.ml | 5 | ||||
| -rw-r--r-- | proofs/refine.mli | 4 |
3 files changed, 1 insertions, 9 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 6cd4daa374..cfa3e8b6e9 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -87,7 +87,6 @@ let pr_leconstr_core = Proof_diffs.pr_leconstr_core let pr_constr_n_env env sigma n c = pr_econstr_n_core false env sigma n (EConstr.of_constr c) let pr_lconstr_env = Proof_diffs.pr_lconstr_env let pr_constr_env env sigma c = pr_econstr_core false env sigma (EConstr.of_constr c) -let _ = Hook.set Refine.pr_constr pr_constr_env let pr_lconstr_goal_style_env env sigma c = pr_leconstr_core true env sigma (EConstr.of_constr c) let pr_constr_goal_style_env env sigma c = pr_econstr_core true env sigma (EConstr.of_constr c) diff --git a/proofs/refine.ml b/proofs/refine.ml index 198e057ebc..05474d5f84 100644 --- a/proofs/refine.ml +++ b/proofs/refine.ml @@ -44,9 +44,6 @@ let typecheck_evar ev env sigma = let sigma, _ = Typing.sort_of env sigma (Evd.evar_concl info) in sigma -let (pr_constrv,pr_constr) = - Hook.make ~default:(fun _env _sigma _c -> Pp.str"<constr>") () - (* Get the side-effect's constant declarations to update the monad's * environmnent *) let add_if_undefined env eff = @@ -111,7 +108,7 @@ let generic_refine ~typecheck f gl = let sigma = CList.fold_left Proofview.Unsafe.mark_as_goal sigma comb in let comb = CList.map (fun x -> Proofview.goal_with_state x state) comb in let trace () = Pp.(hov 2 (str"simple refine"++spc()++ - Hook.get pr_constrv env sigma (EConstr.Unsafe.to_constr c))) in + Termops.Internal.print_constr_env env sigma c)) in Proofview.Trace.name_tactic trace (Proofview.tclUNIT v) >>= fun v -> Proofview.Unsafe.tclSETENV (Environ.reset_context env) <*> Proofview.Unsafe.tclEVARS sigma <*> diff --git a/proofs/refine.mli b/proofs/refine.mli index 70a23a9fba..1af6463a02 100644 --- a/proofs/refine.mli +++ b/proofs/refine.mli @@ -17,10 +17,6 @@ open Proofview (** {6 The refine tactic} *) -(** Printer used to print the constr which refine refines. *) -val pr_constr : - (Environ.env -> Evd.evar_map -> Constr.constr -> Pp.t) Hook.t - (** {7 Refinement primitives} *) val refine : typecheck:bool -> (Evd.evar_map -> Evd.evar_map * EConstr.t) -> unit tactic |