src/HOL/Auth/ROOT.ML
author paulson
Tue Sep 03 18:30:15 1996 +0200 (1996-09-03)
changeset 1944 ea0f573b222b
child 1971 30fe5ac5c04e
permissions -rw-r--r--
ROOT file for Auth directory
paulson@1944
     1
(*  Title:      HOL/Auth/ROOT
paulson@1944
     2
    ID:         $Id$
paulson@1944
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
paulson@1944
     4
    Copyright   1996  University of Cambridge
paulson@1944
     5
paulson@1944
     6
Root file for creating a separate database for protocol proofs.
paulson@1944
     7
*)
paulson@1944
     8
paulson@1944
     9
HOL_build_completed;    (*Make examples fail if HOL did*)
paulson@1944
    10
paulson@1944
    11
writeln"Root file for HOL/Auth";
paulson@1944
    12
proof_timing := true;
paulson@1944
    13
paulson@1944
    14
init_thy_reader();
paulson@1944
    15
paulson@1944
    16
(*Must be redefined in order to refer to the new instance of bind_thm
paulson@1944
    17
  created by init_thy_reader.*)
paulson@1944
    18
fun qed_spec_mp name =
paulson@1944
    19
  let val thm = normalize_thm [RSspec,RSmp] (result())
paulson@1944
    20
  in bind_thm(name, thm) end;
paulson@1944
    21
paulson@1944
    22
use_thy "Shared";
paulson@1944
    23