diff options
| author | Hugo Herbelin | 2018-10-09 21:30:55 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-10-30 13:34:11 +0100 |
| commit | b3748d72cec999467250216a002d6403093622d0 (patch) | |
| tree | 873425079f93ba42b64debb9714262e595d99faa /proofs/tacmach.ml | |
| parent | 0ac673e562c34245e4e48efc428d808e917be79b (diff) | |
Generalizing the various evar_map printers in Termops over an environment.
This is a step towards limiting calls to the global environment.
Incidentally unify naming evd -> sigma in Termops.
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 388bf8efb5..231a8fe266 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -130,10 +130,10 @@ let db_pr_goal sigma g = str" " ++ pc) ++ fnl () let pr_gls gls = - hov 0 (pr_evar_map (Some 2) (sig_sig gls) ++ fnl () ++ db_pr_goal (project gls) (sig_it gls)) + hov 0 (pr_evar_map (Some 2) (pf_env gls) (sig_sig gls) ++ fnl () ++ db_pr_goal (project gls) (sig_it gls)) let pr_glls glls = - hov 0 (pr_evar_map (Some 2) (sig_sig glls) ++ fnl () ++ + hov 0 (pr_evar_map (Some 2) (Global.env()) (sig_sig glls) ++ fnl () ++ prlist_with_sep fnl (db_pr_goal (project glls)) (sig_it glls)) (* Variants of [Tacmach] functions built with the new proof engine *) |