X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaMathView.ml;h=746ef8ffa67c74c7bdc455ca7e23d25e0d976d4e;hb=48d3d5ead565d18734ebcc497e8e91fe2a77ce76;hp=1d636ef8b88e7e63865f9b7cb45d59a7b5273cd7;hpb=396c57fd76a6a3386c7c0fce37787fc188e006bf;p=helm.git

diff --git a/matita/matitaMathView.ml b/matita/matitaMathView.ml
index 1d636ef8b..746ef8ffa 100644
--- a/matita/matitaMathView.ml
+++ b/matita/matitaMathView.ml
@@ -268,9 +268,13 @@ object (self)
       GMenu.image_menu_item ?stock ?label ~packing:menu#append () in
     let check = add_menu_item ~label:"Check" () in
     let reductions_menu_item = GMenu.menu_item ~label:"βδιζ-reduce" () in
+    let tactics_menu_item = GMenu.menu_item ~label:"Apply tactic" () in
     menu#append reductions_menu_item;
+    menu#append tactics_menu_item;
     let reductions = GMenu.menu () in
+    let tactics = GMenu.menu () in
     reductions_menu_item#set_submenu reductions;
+    tactics_menu_item#set_submenu tactics;
     let normalize = add_menu_item ~menu:reductions ~label:"Normalize" () in
     let reduce = add_menu_item ~menu:reductions ~label:"Reduce" () in
     let simplify = add_menu_item ~menu:reductions ~label:"Simplify" () in