diff options
| author | herbelin | 2013-01-29 18:15:21 +0000 |
|---|---|---|
| committer | herbelin | 2013-01-29 18:15:21 +0000 |
| commit | ea1d98ba6e64572cb9469c76bd6a51d74fb08ce1 (patch) | |
| tree | 2fc6ec64fa659c432d6496c35775080b1539d505 | |
| parent | 95a75639355c20cb39528f4a9b68f3060a659f88 (diff) | |
No reason a priori for using unfiltered env for printing
goal. Filtered env is intended to be type-safe.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16177 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |