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 ed9c52d3 authored by MARCHE Claude's avatar MARCHE Claude
Browse files

db more

parent bc8f514c
......@@ -240,8 +240,19 @@ let subgoals t = t.subgoals
type theory
let theory_name _ = assert false
let goals _ = assert false
let verified _ = assert false
let init_base _ = assert false
let files _ = assert false
type file
let file_name _ = assert false
let theories _ = assert false
......@@ -1064,23 +1075,26 @@ let root_goals () =
*)
let add_file _ = assert false
let add_theory _ = assert false
let add_goal _ = assert false
let add_transformation _ = assert false
let set_edited_as _ = assert false
let set_obsolete _ = assert false
let set_status _ = assert false
let add_proof_attempt _ = assert false
let prover_from_name _ = assert false
let prover_from_name n =
let db = current () in
try ProverId.get db n
with Not_found -> ProverId.add db n
let transf_from_name _n = assert false
exception AlreadyExist
let files _ = assert false
let init_base _ = assert false
let theories _ = assert false
let file_name _ = assert false
let verified _ = assert false
let goals _ = assert false
let theory_name _ = assert false
let add_proof_attempt _ = assert false
let set_status _ = assert false
let set_obsolete _ = assert false
let set_edited_as _ = assert false
let add_transformation _ = assert false
let add_goal _ = assert false
let add_theory _ = assert false
let add_file _ = assert false
(*
......
......@@ -120,11 +120,16 @@ val files : unit -> file list
exception AlreadyExist
(** {3 provers} *)
(** {3 prover id} *)
val prover_from_name : string -> prover_id
(** retrieves existing prover id from its name.
creates prover id if not existing yet *)
(** {3 transf id} *)
val transf_from_name : string -> transf_id
(** retrieves existing transformation id from its name.
creates it if not existing yet *)
(** {3 external proof attempts} *)
val add_proof_attempt : goal -> prover_id -> proof_attempt
......
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