diff options
| -rw-r--r-- | dev/base_include | 1 | ||||
| -rw-r--r-- | dev/printers.mllib | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 4 | ||||
| -rw-r--r-- | proofs/clenv.ml | 2 |
4 files changed, 5 insertions, 3 deletions
diff --git a/dev/base_include b/dev/base_include index debc074de9..23cc38fb47 100644 --- a/dev/base_include +++ b/dev/base_include @@ -78,6 +78,7 @@ open Pretyping.Default.Cases open Cbv open Classops open Clenv +open Clenvtac open Rawterm open Coercion open Coercion.Default diff --git a/dev/printers.mllib b/dev/printers.mllib index d060440b30..3f489a95bf 100644 --- a/dev/printers.mllib +++ b/dev/printers.mllib @@ -112,6 +112,7 @@ Proof_type Goal Logic Refiner +Clenv Evar_refiner Proofview Proof diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 286f596e45..1a1d03a611 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -26,7 +26,7 @@ open Evd open Goptions open Genarg open Mod_subst - +open Clenv let _ = Constrextern.print_evar_arguments := true let _ = set_bool_option_value ["Printing";"Matching"] false @@ -113,8 +113,8 @@ let pp_transparent_state s = pp (pr_transparent_state s) (* proof printers *) let ppmetas metas = pp(pr_metaset metas) let ppevm evd = pp(pr_evar_map evd) -(* spiwack: deactivated until a replacement is found let ppclenv clenv = pp(pr_clenv clenv) +(* spiwack: deactivated until a replacement is found let ppgoal g = pp(db_pr_goal g) let pppftreestate p = pp(print_pftreestate p) *) diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 8b4b41219b..a36fae8924 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -32,7 +32,7 @@ open Coercion.Default let pf_env = Refiner.pf_env let pf_hyps = Refiner.pf_hyps let pf_type_of gls c = Typing.type_of (pf_env gls) gls.sigma c -let pf_concl = Tacmach.pf_concl +let pf_concl gls = Goal.V82.concl (Refiner.project gls) (sig_it gls) (******************************************************************) (* Clausal environments *) |