diff options
| author | Hugo Herbelin | 2018-09-29 09:17:29 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-09-29 13:42:28 +0200 |
| commit | db4a847ba29c1f12c0583a93df911c9014c767c0 (patch) | |
| tree | 30f63d05f4348c053163336d28830f2698741d2b /proofs | |
| parent | 0bcbc990dcebce2e66f10aba462c9fed2c2eda06 (diff) | |
Replacing Refine.pr_constr by Termops.Internal.print_constr.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/refine.ml | 5 | ||||
| -rw-r--r-- | proofs/refine.mli | 4 |
2 files changed, 1 insertions, 8 deletions
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 |