author paulson
Tue, 10 Sep 1996 11:07:16 +0200
changeset 1969 af6d59e26dd9
child 2326 6df4488339e4
permissions -rw-r--r--
Dedicated root file for making the Auth database

(*  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;


(*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";