diff options
| -rw-r--r-- | plugins/decl_mode/g_decl_mode.ml4 | 2 | ||||
| -rw-r--r-- | printing/printer.ml | 2 | ||||
| -rw-r--r-- | proofs/goal.ml | 5 | ||||
| -rw-r--r-- | proofs/goal.mli | 3 |
4 files changed, 2 insertions, 10 deletions
diff --git a/plugins/decl_mode/g_decl_mode.ml4 b/plugins/decl_mode/g_decl_mode.ml4 index 0b7e94fa0b..70338c52b5 100644 --- a/plugins/decl_mode/g_decl_mode.ml4 +++ b/plugins/decl_mode/g_decl_mode.ml4 @@ -22,7 +22,7 @@ open Pcoq.Tactic let pr_goal gs = let (g,sigma) = Goal.V82.nf_evar (Tacmach.project gs) (Evd.sig_it gs) in - let env = Goal.V82.unfiltered_env sigma g in + let env = Goal.V82.env sigma g in let preamb,thesis,penv,pc = (str " *** Declarative Mode ***" ++ fnl ()++fnl ()), (str "thesis := " ++ fnl ()), diff --git a/printing/printer.ml b/printing/printer.ml index 90ddf83847..7a9dcb03cd 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -266,7 +266,7 @@ let pr_transparent_state (ids, csts) = (* display complete goal *) let default_pr_goal gs = let (g,sigma) = Goal.V82.nf_evar (project gs) (sig_it gs) in - let env = Goal.V82.unfiltered_env sigma g in + let env = Goal.V82.env sigma g in let preamb,thesis,penv,pc = mt (), mt (), pr_context_of env, diff --git a/proofs/goal.ml b/proofs/goal.ml index a2efc10f02..6cd00c3188 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -466,11 +466,6 @@ module V82 = struct let evi = content evars gl in Evd.evar_filtered_env evi - (* For printing *) - let unfiltered_env evars gl = - let evi = content evars gl in - Evd.evar_env evi - (* Old style hyps primitive *) let hyps evars gl = let evi = content evars gl in diff --git a/proofs/goal.mli b/proofs/goal.mli index 72f1b16a46..49667879b4 100644 --- a/proofs/goal.mli +++ b/proofs/goal.mli @@ -182,9 +182,6 @@ module V82 : sig (* Old style env primitive *) val env : Evd.evar_map -> goal -> Environ.env - (* For printing *) - val unfiltered_env : Evd.evar_map -> goal -> Environ.env - (* Old style hyps primitive *) val hyps : Evd.evar_map -> goal -> Environ.named_context_val |