X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fgrafite%2FgrafiteAstPp.ml;h=c20a5d8c388430e2966dd9d25035599f8a07dcd8;hb=2e72565d67fee9207f4b08448a71d7b3ef815c20;hp=bd846248b848f0d2162038de0c5b627fa010bead;hpb=70aa6dc959dc1d49f751c183367c3b73393c938b;p=helm.git

diff --git a/matita/components/grafite/grafiteAstPp.ml b/matita/components/grafite/grafiteAstPp.ml
index bd846248b..c20a5d8c3 100644
--- a/matita/components/grafite/grafiteAstPp.ml
+++ b/matita/components/grafite/grafiteAstPp.ml
@@ -75,6 +75,7 @@ let rec pp_ntactic ~map_unicode_to_tex =
   | NCut (_,t) -> "ncut " ^ NotationPp.pp_term t
 (*| NDiscriminate (_,t) -> "ndiscriminate " ^ NotationPp.pp_term t
   | NSubst (_,t) -> "nsubst " ^ NotationPp.pp_term t *)
+  | NClear (_,l) -> "nclear " ^ String.concat " " l
   | NDestruct (_,dom,skip) -> "ndestruct ..." 
   | NElim (_,what,where) -> "nelim " ^ NotationPp.pp_term what ^
       "...to be implemented..." ^ " " ^ "...to be implemented..."