src/HOL/Auth/DB-ROOT.ML

Last working version prior to addition of "lost" component

(*  Title:      HOL/Auth/DB-ROOT
    ID:         $Id$
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
    Copyright   1996  University of Cambridge

Root file for creating a **separate database** for protocol proofs.
             ** Use ROOT.ML to simply run the proofs. **
*)

HOL_build_completed;    (*Make examples fail if HOL did*)

val banner = "Security Protocols";
writeln banner;

init_thy_reader();

(*Must be redefined in order to refer to the new instance of bind_thm
  created by init_thy_reader.*)
fun qed_spec_mp name =
  let val thm = normalize_thm [RSspec,RSmp] (result())
  in bind_thm(name, thm) end;

use_thy "Shared";