]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matitaGui.ml
added the geniric
[helm.git] / matita / matitaGui.ml
index b1b2a6ad3fa683c2856a9f4226bd547077534365..b230adecc50f41ae68cb8c22c3facd47b25ac30d 100644 (file)
@@ -612,7 +612,7 @@ class gui () =
         (tac_w_term (A.Transitivity (loc, hole)));
       connect_button tbar#assumptionButton (tac (A.Assumption loc));
       connect_button tbar#cutButton (tac_w_term (A.Cut (loc, None, hole)));
-      connect_button tbar#autoButton (tac (A.Auto (loc,None,None,None,None)));
+      connect_button tbar#autoButton (tac (A.Auto (loc,[])));
       MatitaGtkMisc.toggle_widget_visibility
        ~widget:(main#tacticsButtonsHandlebox :> GObj.widget)
        ~check:main#tacticsBarMenuItem;