Commit 27ec31ce by MARCHE Claude

This is commercial towing vehicle Nostromo out of the Solomons, registration...

`This is commercial towing vehicle Nostromo out of the Solomons, registration number 1-8-0-niner-2-4-6-0-niner. Calling Antarctica traffic control. Do you read me? Over.`
parent fe021334
 ... @@ -74,13 +74,13 @@ let array_set (a : ref array) i v = ... @@ -74,13 +74,13 @@ let array_set (a : ref array) i v = parameter x : ref (array) parameter x : ref (array) (* the number of digis of X *) (* the number of digits of X *) logic n : int logic n : int (* the target digit sum *) (* the target digit sum *) logic y : int logic y : int axiom Hypotheses: n >= 0 and y > 0 axiom Hypotheses: n > 0 and y > 0 logic m : int = 1 + max n (div y 9) logic m : int = 1 + max n (div y 9) ... ...

2.18 KB

 ... @@ -216,6 +216,7 @@ let iconname_file = "file32" ... @@ -216,6 +216,7 @@ let iconname_file = "file32" let iconname_prover = "wizard32" let iconname_prover = "wizard32" let iconname_transf = "configure32" let iconname_transf = "configure32" let iconname_editor = "edit32" let iconname_editor = "edit32" let iconname_replay = "refresh32" let iconname_remove = "deletefile32" let iconname_remove = "deletefile32" let image_default = ref (image ~size:20 iconname_default) let image_default = ref (image ~size:20 iconname_default) ... @@ -238,6 +239,7 @@ let image_file = ref !image_default ... @@ -238,6 +239,7 @@ let image_file = ref !image_default let image_prover = ref !image_default let image_prover = ref !image_default let image_transf = ref !image_default let image_transf = ref !image_default let image_editor = ref !image_default let image_editor = ref !image_default let image_replay = ref !image_default let image_remove = ref !image_default let image_remove = ref !image_default let resize_images size = let resize_images size = ... @@ -261,6 +263,7 @@ let resize_images size = ... @@ -261,6 +263,7 @@ let resize_images size = image_prover := image ~size iconname_prover; image_prover := image ~size iconname_prover; image_transf := image ~size iconname_transf; image_transf := image ~size iconname_transf; image_editor := image ~size iconname_editor; image_editor := image ~size iconname_editor; image_replay := image ~size iconname_replay; image_remove := image ~size iconname_remove; image_remove := image ~size iconname_remove; () () ... ...
 ... @@ -67,6 +67,7 @@ val image_file : GdkPixbuf.pixbuf ref ... @@ -67,6 +67,7 @@ val image_file : GdkPixbuf.pixbuf ref val image_prover : GdkPixbuf.pixbuf ref val image_prover : GdkPixbuf.pixbuf ref val image_transf : GdkPixbuf.pixbuf ref val image_transf : GdkPixbuf.pixbuf ref val image_editor : GdkPixbuf.pixbuf ref val image_editor : GdkPixbuf.pixbuf ref val image_replay : GdkPixbuf.pixbuf ref val image_remove : GdkPixbuf.pixbuf ref val image_remove : GdkPixbuf.pixbuf ref (* status icons *) (* status icons *) ... ...
 ... @@ -1421,6 +1421,42 @@ let prover_on_selected_goals pr = ... @@ -1421,6 +1421,42 @@ let prover_on_selected_goals pr = (prover_on_selected_goal_or_children pr) (prover_on_selected_goal_or_children pr) goals_view#selection#get_selected_rows goals_view#selection#get_selected_rows (**********************************) (* method: replay obsolete proofs *) (**********************************) let rec replay_on_goal_or_children g = Hashtbl.iter (fun _ a -> if a.Model.proof_obsolete then redo_external_proof g a) g.Model.external_proofs; Hashtbl.iter (fun _ t -> List.iter replay_on_goal_or_children t.Model.subgoals) g.Model.transformations let replay_on_selected_goal_or_children row = let row = filter_model#get_iter row in match filter_model#get ~row ~column:Model.index_column with | Model.Row_goal g -> replay_on_goal_or_children g | Model.Row_theory th -> List.iter replay_on_goal_or_children th.Model.goals | Model.Row_file file -> List.iter (fun th -> List.iter replay_on_goal_or_children th.Model.goals) file.Model.theories | Model.Row_proof_attempt a -> replay_on_goal_or_children a.Model.proof_goal | Model.Row_transformation tr -> List.iter replay_on_goal_or_children tr.Model.subgoals let replay_obsolete_proofs () = List.iter replay_on_selected_goal_or_children goals_view#selection#get_selected_rows ... @@ -2156,12 +2192,10 @@ let () = ... @@ -2156,12 +2192,10 @@ let () = let () = let () = let b = GButton.button ~packing:tools_box#add ~label:"(Replay)" () in let b = GButton.button ~packing:tools_box#add ~label:"(Replay)" () in (* let i = GMisc.image ~pixbuf:(!image_replay) () in let i = GMisc.image ~pixbuf:(!image_replay) () in let () = b#set_image i#coerce in let () = b#set_image i#coerce in *) let (_ : GtkSignal.id) = let (_ : GtkSignal.id) = b#connect#pressed ~callback:not_implemented b#connect#pressed ~callback:replay_obsolete_proofs in () in () (*************) (*************) ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!