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
     1 (*  Title:      HOL/Auth/ROOT
     2     ID:         $Id$
     3     Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     4     Copyright   1996  University of Cambridge
     5 
     6 Root file for creating a separate database for protocol proofs.
     7 *)
     8 
     9 HOL_build_completed;    (*Make examples fail if HOL did*)
    10 
    11 writeln"Root file for HOL/Auth";
    12 proof_timing := true;
    13 
    14 init_thy_reader();
    15 
    16 (*Must be redefined in order to refer to the new instance of bind_thm
    17   created by init_thy_reader.*)
    18 fun qed_spec_mp name =
    19   let val thm = normalize_thm [RSspec,RSmp] (result())
    20   in bind_thm(name, thm) end;
    21 
    22 use_thy "Shared";
    23