"CREATE UNIQUE INDEX IF NOT EXISTS goal_theory_idx \
ON goals (goal_theory)"
in
db_must_ok db (fun () -> Sqlite3.exec db.raw_db sql);
*)
(*
let sql = "create table if not exists map_external_proofs_goal_external_proof (goal_id integer, external_proof_id integer, primary key(goal_id, external_proof_id));" in
db_must_ok db (fun () -> Sqlite3.exec db.db sql);
...
...
@@ -749,13 +755,14 @@ module Goal = struct
db_must_ok db (fun () -> Sqlite3.exec db.raw_db sql)
*)
letadddb(_th:theory)(name:string)(sum:string)=
letadddb(th:theory)(name:string)(sum:string)=
transactiondb
(fun()->
letsql=
"INSERT INTO goals VALUES(NULL,?,?,0)"
"INSERT INTO goals VALUES(NULL,?,?,?,0)"
in
letstmt=binddbsql[
Sqlite3.Data.INTth;
Sqlite3.Data.TEXTname;
Sqlite3.Data.TEXTsum;
]
...
...
@@ -1021,21 +1028,54 @@ end
moduleTheory=struct
letinitdb=
letsql="CREATE TABLE IF NOT EXISTS theories (theory_name TEXT, theory_file INTEGER);"in