Commit 27ec31ce authored by MARCHE Claude's avatar MARCHE Claude
Browse files

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)
......
...@@ -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!
Please register or to comment