X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita.ml;h=ce9280dcdc229b6ceda080a4af4e55b12dca7858;hb=909cdbb5ddf942e75558149c9f11819c6c84bc3a;hp=5717b710aa9925f48312e160b1c589884d22c13a;hpb=68d46ac40a575f3fce5958fb2776b38739703951;p=helm.git

diff --git a/matita/matita.ml b/matita/matita.ml
index 5717b710a..ce9280dcd 100644
--- a/matita/matita.ml
+++ b/matita/matita.ml
@@ -213,6 +213,12 @@ let _ =
         carr))) meets
     );
     addDebugSeparator ();
+*)
+(* ZACK: moved to a check box menu item in the View menu
+    addDebugItem "disable high level pretty printer"
+      (fun _ -> CicMetaSubst.use_low_level_ppterm_in_context := true);
+    addDebugItem "enable high level pretty printer"
+      (fun _ -> CicMetaSubst.use_low_level_ppterm_in_context := false);
 *)
     addDebugItem "disable all (pretty printing) notations"
       (fun _ -> CicNotation.set_active_notations []);