X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fgrafite%2FgrafiteAstPp.ml;h=eb1a18e5ad00d365ba23e3db088b620ece02ceab;hb=ef870606391fff198f215127eb022eb3e41ab1d4;hp=de7af826370d8c87acd36762cf9ac19c4475130c;hpb=040b70279b9bf0f576f00a9b1ad28df3c8bf6024;p=helm.git

diff --git a/components/grafite/grafiteAstPp.ml b/components/grafite/grafiteAstPp.ml
index de7af8263..eb1a18e5a 100644
--- a/components/grafite/grafiteAstPp.ml
+++ b/components/grafite/grafiteAstPp.ml
@@ -126,7 +126,8 @@ let rec pp_tactic ~map_unicode_to_tex ~term_pp ~lazy_term_pp =
       Printf.sprintf "decompose%s" 
       (pp_intros_specs "names " (None, names)) 
   | Demodulate _ -> "demodulate"
-  | Destruct (_, term) -> "destruct " ^ term_pp term
+  | Destruct (_, None) -> "destruct" 
+  | Destruct (_, Some term) -> "destruct " ^ term_pp term
   | Elim (_, what, using, pattern, specs) ->
       Printf.sprintf "elim %s%s %s%s" 
       (term_pp what)
@@ -177,7 +178,6 @@ let rec pp_tactic ~map_unicode_to_tex ~term_pp ~lazy_term_pp =
   | Right _ -> "right"
   | Ring _ -> "ring"
   | Split _ -> "split"
-  | Subst _ -> "subst"
   | Symmetry _ -> "symmetry"
   | Transitivity (_, term) -> "transitivity " ^ term_pp term
   (* Tattiche Aggiunte *)