author paulson
Thu, 05 Dec 1996 19:03:08 +0100
changeset 2326 6df4488339e4
parent 1969 af6d59e26dd9
child 2563 e908e2716f3a
permissions -rw-r--r--
Updating of banner

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