# HG changeset patch
# User wenzelm
# Date 1147481505 -7200
# Node ID 21e04f0edd8225d799aadac3783e8cdcac218783
# Parent  4445b353f78b32ebd9883549d9518fd1228a022d
add_defs: unchecked flag;
tuned;

diff -r 4445b353f78b -r 21e04f0edd82 src/Pure/Isar/isar_thy.ML
--- a/src/Pure/Isar/isar_thy.ML	Sat May 13 02:51:43 2006 +0200
+++ b/src/Pure/Isar/isar_thy.ML	Sat May 13 02:51:45 2006 +0200
@@ -8,14 +8,12 @@
 signature ISAR_THY =
 sig
   val add_axioms: ((bstring * string) * Attrib.src list) list -> theory -> theory
-  val add_axioms_i: ((bstring * term) * attribute list) list -> theory -> theory
-  val add_defs: bool * ((bstring * string) * Attrib.src list) list -> theory -> theory
-  val add_defs_i: bool * ((bstring * term) * attribute list) list -> theory -> theory
+  val add_defs: (bool * bool) * ((bstring * string) * Attrib.src list) list -> theory -> theory
   val apply_theorems: (thmref * Attrib.src list) list -> theory -> thm list * theory
   val apply_theorems_i: (thm list * attribute list) list -> theory -> thm list * theory
   val theorems: string ->
     ((bstring * Attrib.src list) * (thmref * Attrib.src list) list) list
-    -> theory -> (string * thm list) list * theory 
+    -> theory -> (string * thm list) list * theory
   val theorems_i: string ->
     ((bstring * attribute list) * (thm list * attribute list) list) list
     -> theory -> (string * thm list) list * theory
@@ -59,9 +57,10 @@
   f (map (fn (x, srcs) => (x, map (Attrib.attribute thy) srcs)) args) thy;
 
 val add_axioms = add_axms (snd oo PureThy.add_axioms);
-val add_axioms_i = snd oo PureThy.add_axioms_i;
-fun add_defs (x, args) = add_axms (snd oo PureThy.add_defs x) args;
-fun add_defs_i (x, args) = (snd oo PureThy.add_defs_i x) args;
+
+fun add_defs ((unchecked, overloaded), args) =
+  add_axms
+    (snd oo (if unchecked then PureThy.add_defs_unchecked else PureThy.add_defs) overloaded) args;
 
 
 (* theorems *)