Une MAJ de sécurité est nécessaire sur notre version actuelle. Elle sera effectuée lundi 02/08 entre 12h30 et 13h. L'interruption de service devrait durer quelques minutes (probablement moins de 5 minutes).

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 =
parameter x : ref (array)
(* the number of digis of X *)
(* the number of digits of X *)
logic n : int
(* the target digit sum *)
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)
......
......@@ -216,6 +216,7 @@ let iconname_file = "file32"
let iconname_prover = "wizard32"
let iconname_transf = "configure32"
let iconname_editor = "edit32"
let iconname_replay = "refresh32"
let iconname_remove = "deletefile32"
let image_default = ref (image ~size:20 iconname_default)
......@@ -238,6 +239,7 @@ let image_file = ref !image_default
let image_prover = ref !image_default
let image_transf = ref !image_default
let image_editor = ref !image_default
let image_replay = ref !image_default
let image_remove = ref !image_default
let resize_images size =
......@@ -261,6 +263,7 @@ let resize_images size =
image_prover := image ~size iconname_prover;
image_transf := image ~size iconname_transf;
image_editor := image ~size iconname_editor;
image_replay := image ~size iconname_replay;
image_remove := image ~size iconname_remove;
()
......
......@@ -67,6 +67,7 @@ val image_file : GdkPixbuf.pixbuf ref
val image_prover : GdkPixbuf.pixbuf ref
val image_transf : GdkPixbuf.pixbuf ref
val image_editor : GdkPixbuf.pixbuf ref
val image_replay : GdkPixbuf.pixbuf ref
val image_remove : GdkPixbuf.pixbuf ref
(* status icons *)
......
......@@ -1421,6 +1421,42 @@ let prover_on_selected_goals pr =
(prover_on_selected_goal_or_children pr)
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 () =
let () =
let b = GButton.button ~packing:tools_box#add ~label:"(Replay)" () in
(*
let i = GMisc.image ~pixbuf:(!image_replay) () in
let () = b#set_image i#coerce in
*)
let (_ : GtkSignal.id) =
b#connect#pressed ~callback:not_implemented
b#connect#pressed ~callback:replay_obsolete_proofs
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