(fun () -> source_buffer#insert "apply rule (⊥_e (…));\n");
connect_button main#butRAA
(fun () -> source_buffer#insert "apply rule (RAA […] (…));\n");
- connect_button main#butStart
- (fun () -> source_buffer#insert "apply rule (prove (…));\n");
+ connect_button main#butUseLemma
+ (fun () -> source_buffer#insert "apply rule (lem …);\n");
+ connect_button main#butDischarge
+ (fun () -> source_buffer#insert "apply rule (discharge […]);\n");
+
(* TO BE REMOVED *)
main#scriptNotebook#remove_page 1;