diff options
| author | Emilio Jesus Gallego Arias | 2019-12-07 13:45:43 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-12-07 13:45:43 +0100 |
| commit | 756d2f4db5eae51c8c01a40550b8c4553bd30f53 (patch) | |
| tree | c6564c232e5067c2acb48e8c7a4d7ee3ab6ff01a /tactics | |
| parent | 28c4f57e0614523879201d1c59816cde188e5b22 (diff) | |
| parent | f87ce66b88b74f090c316c8a3c33828a970b2108 (diff) | |
Merge PR #11141: Moving the diversity of constr printers to a label style
Ack-by: SkySkimmer
Reviewed-by: ejgallego
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 33c9c11350..c44082cd88 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -934,7 +934,7 @@ let is_local_unfold env flags = let reduce redexp cl = let trace env sigma = let open Printer in - let pr = (pr_econstr_env, pr_leconstr_env, pr_evaluable_reference, pr_constr_pattern_env) in + let pr = ((fun e -> pr_econstr_env e), (fun e -> pr_leconstr_env e), pr_evaluable_reference, pr_constr_pattern_env) in Pp.(hov 2 (Ppred.pr_red_expr_env env sigma pr str redexp)) in Proofview.Trace.name_tactic trace begin |