diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/base_include | 1 | ||||
| -rw-r--r-- | dev/printers.mllib | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 4 |
3 files changed, 4 insertions, 2 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) *) |