Commit dd787602 authored by Clément Fumex's avatar Clément Fumex

load proof first attempt

parent 9e698189
This diff is collapsed.
...@@ -7,9 +7,11 @@ type trans_arg ...@@ -7,9 +7,11 @@ type trans_arg
(* (\** New Proof sessions ("Refectoire") *\) *) (* (\** New Proof sessions ("Refectoire") *\) *)
(* note: la fonction register des transformations doit permettre de declarer les types des arguments (* note: la fonction register des transformations doit permettre de
declarer les types des arguments
type trans_arg_type = TTint | TTstring | TTterm | TTty | TTtysymbol | TTlsymbol | TTprsymbol type trans_arg_type = TTint | TTstring | TTterm | TTty | TTtysymbol
| TTlsymbol | TTprsymbol
*) *)
...@@ -19,32 +21,36 @@ val graft_proof_attempt : session -> proofNodeID -> proof_attempt -> unit ...@@ -19,32 +21,36 @@ val graft_proof_attempt : session -> proofNodeID -> proof_attempt -> unit
(** [graft_proof_attempt s id pa] adds the proof attempt [pa] as a (** [graft_proof_attempt s id pa] adds the proof attempt [pa] as a
child of the task [id] of the session [s]. *) child of the task [id] of the session [s]. *)
val graft_transf : session -> proofNodeID -> string -> trans_arg list -> Task.task list -> unit val graft_transf : session -> proofNodeID -> string -> trans_arg list ->
Task.task list -> unit
(** [graft_transf s id name l tl] adds the transformation [name] as a (** [graft_transf s id name l tl] adds the transformation [name] as a
child of the task [id] of the session [s]. [l] is the list of argument child of the task [id] of the session [s]. [l] is the list of
of the transformation; [tl] is the resulting list of tasks *) argument of the transformation; [tl] is the resulting list of
tasks *)
val remove_proof_attempt : session -> proofNodeID -> Whyconf.prover -> unit val remove_proof_attempt : session -> proofNodeID -> Whyconf.prover -> unit
(** [remove_proof_attempt s id pr] removes the proof attempt from the (** [remove_proof_attempt s id pr] removes the proof attempt from the
prover [pr] from the proof node [id] of the session [s] *) prover [pr] from the proof node [id] of the session [s] *)
val remove_transformation : session -> proofNodeID -> transID -> unit val remove_transformation : session -> transID -> unit
(** [remove_transformation s pid tid] removes the transformation [tid] from (** [remove_transformation s id] removes the transformation [id]
the proof node [pid] of the session [s] *) from the session [s] *)
val save_session : string -> session -> unit (* val save_session : string -> session -> unit *)
(** [save_session f s] Save the session [s] in file [f] *) (** [save_session f s] Save the session [s] in file [f] *)
val load_session : string -> session val load_session : string -> session * bool
(** [load_session f] load a session from a file [f]; all the tasks are (** [load_session f] load a session from a file [f]; all the tasks are
initialised to None *) initialised to None *)
(* (*
couche au-dessus: "scheduler" cad modifications asynchrones de la session couche au-dessus: "scheduler" cad modifications asynchrones de la
session
- gere une file de travaux de modifications a faire - gere une file de travaux de modifications a faire
- recupere les resultats de travaux , et les applique s'ils sont encore valides
- recupere les resultats de travaux , et les applique s'ils sont
encore valides
*) *)
(* (*
type theory = type theory =
......
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