diff options
| author | Gaëtan Gilbert | 2019-05-05 17:11:06 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-05-24 16:23:32 +0200 |
| commit | 46056cbe56f9c39fe3f8f5175aff9fd6427684b6 (patch) | |
| tree | 9c70ee243a2f5025bea4f7c8306d7cbd25f5d66f /tactics | |
| parent | 831639deec0ce88fca4ede4756815cf434088ac3 (diff) | |
Stop using pstate in global print queries
Using pstate makes no sense for printing global stuff
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/autorewrite.ml | 4 | ||||
| -rw-r--r-- | tactics/autorewrite.mli | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml index 51708670f5..4b1b473b33 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -75,7 +75,9 @@ let find_matches bas pat = let res = HintDN.search_pattern base pat in List.map snd res -let print_rewrite_hintdb env sigma bas = +let print_rewrite_hintdb bas = + let env = Global.env () in + let sigma = Evd.from_env env in (str "Database " ++ str bas ++ fnl () ++ prlist_with_sep fnl (fun h -> diff --git a/tactics/autorewrite.mli b/tactics/autorewrite.mli index 03e9414e0f..4c6146d745 100644 --- a/tactics/autorewrite.mli +++ b/tactics/autorewrite.mli @@ -42,7 +42,7 @@ val auto_multi_rewrite : ?conds:conditions -> string list -> Locus.clause -> uni val auto_multi_rewrite_with : ?conds:conditions -> unit Proofview.tactic -> string list -> Locus.clause -> unit Proofview.tactic -val print_rewrite_hintdb : Environ.env -> Evd.evar_map -> string -> Pp.t +val print_rewrite_hintdb : string -> Pp.t open Clenv |