rules fixed

[helm.git] / helm / software / matita / matitaGui.ml

diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml
index 393da7cef0e118b5307fd513482e354ea32aed20..6acf7357a73d8a58b2057df306f2e3770045d26e 100644 (file)
--- a/helm/software/matita/matitaGui.ml
+++ b/helm/software/matita/matitaGui.ml
@@ -762,25 +762,25 @@ class gui () =
           else main#tacticsButtonsHandlebox#misc#hide ())
         ~check:main#menuitemPalette;
       connect_button main#butImpl_intro
-        (fun () -> source_buffer#insert "apply rule (⇒_i […] (…));\n");
+        (fun () -> source_buffer#insert "apply rule (⇒_i […] (…)).\n");
       connect_button main#butAnd_intro
         (fun () -> source_buffer#insert 
           "apply rule (∧_i (…) (…));\n\t[\n\t|\n\t]\n");
       connect_button main#butOr_intro_left
-        (fun () -> source_buffer#insert "apply rule (∨_i_l (…));\n");
+        (fun () -> source_buffer#insert "apply rule (∨_i_l (…)).\n");
       connect_button main#butOr_intro_right
-        (fun () -> source_buffer#insert "apply rule (∨_i_r (…));\n");
+        (fun () -> source_buffer#insert "apply rule (∨_i_r (…)).\n");
       connect_button main#butNot_intro
-        (fun () -> source_buffer#insert "apply rule (¬_i […] (…));\n");
+        (fun () -> source_buffer#insert "apply rule (¬_i […] (…)).\n");
       connect_button main#butTop_intro
-        (fun () -> source_buffer#insert "apply rule (⊤_i);\n");
+        (fun () -> source_buffer#insert "apply rule (⊤_i).\n");
       connect_button main#butImpl_elim
         (fun () -> source_buffer#insert 
           "apply rule (⇒_e (…) (…));\n\t[\n\t|\n\t]\n");
       connect_button main#butAnd_elim_left
-        (fun () -> source_buffer#insert "apply rule (∧_e_l (…));\n");
+        (fun () -> source_buffer#insert "apply rule (∧_e_l (…)).\n");
       connect_button main#butAnd_elim_right
-        (fun () -> source_buffer#insert "apply rule (∧_e_r (…));\n");
+        (fun () -> source_buffer#insert "apply rule (∧_e_r (…)).\n");
       connect_button main#butOr_elim
         (fun () -> source_buffer#insert 
           "apply rule (∨_e (…) […] (…) […] (…));\n\t[\n\t|\n\t|\n\t]\n");
@@ -788,11 +788,14 @@ class gui () =
         (fun () -> source_buffer#insert 
           "apply rule (¬_e (…) (…));\n\t[\n\t|\n\t]\n");
       connect_button main#butBot_elim
-        (fun () -> source_buffer#insert "apply rule (⊥_e (…));\n");
+        (fun () -> source_buffer#insert "apply rule (⊥_e (…)).\n");
       connect_button main#butRAA
-        (fun () -> source_buffer#insert "apply rule (RAA […] (…));\n");
+        (fun () -> source_buffer#insert "apply rule (RAA […] (…)).\n");
       connect_button main#butStart
-        (fun () -> source_buffer#insert "apply rule (prove (…));\n");
+        (fun () -> source_buffer#insert "apply rule (prove (…)).\n");
+      connect_button main#butDischarge
+        (fun () -> source_buffer#insert "apply rule (discharge […]).\n");
+
     
       (* TO BE REMOVED *)
       main#scriptNotebook#remove_page 1;