src/Pure/Isar/local_theory.ML
changeset 24984 952045a8dcf2
parent 24949 5f00e3532418
child 25021 8f00edb993bd
     1.1 --- a/src/Pure/Isar/local_theory.ML	Thu Oct 11 19:10:25 2007 +0200
     1.2 +++ b/src/Pure/Isar/local_theory.ML	Thu Oct 11 21:10:40 2007 +0200
     1.3 @@ -21,10 +21,9 @@
     1.4    val target: (Proof.context -> Proof.context) -> local_theory -> local_theory
     1.5    val affirm: local_theory -> local_theory
     1.6    val pretty: local_theory -> Pretty.T list
     1.7 -  val consts: (string * typ -> bool) ->
     1.8 -    ((bstring * typ) * mixfix) list -> local_theory -> (term * thm) list * local_theory
     1.9 -  val axioms: string -> ((bstring * Attrib.src list) * term list) list -> local_theory ->
    1.10 -    (bstring * thm list) list * local_theory
    1.11 +  val axioms: string ->
    1.12 +    ((bstring * typ) * mixfix) list * ((bstring * Attrib.src list) * term list) list -> local_theory
    1.13 +    -> (term list * (bstring * thm list) list) * local_theory
    1.14    val abbrev: Syntax.mode -> (bstring * mixfix) * term -> local_theory ->
    1.15      (term * term) * local_theory
    1.16    val def: string -> (bstring * mixfix) * ((bstring * Attrib.src list) * term) ->
    1.17 @@ -55,10 +54,9 @@
    1.18  
    1.19  type operations =
    1.20   {pretty: local_theory -> Pretty.T list,
    1.21 -  consts: (string * typ -> bool) -> ((bstring * typ) * mixfix) list -> local_theory ->
    1.22 -    (term * thm) list * local_theory,
    1.23 -  axioms: string -> ((bstring * Attrib.src list) * term list) list -> local_theory ->
    1.24 -    (bstring * thm list) list * local_theory,
    1.25 +  axioms: string ->
    1.26 +    ((bstring * typ) * mixfix) list * ((bstring * Attrib.src list) * term list) list -> local_theory
    1.27 +    -> (term list * (bstring * thm list) list) * local_theory,
    1.28    abbrev: Syntax.mode -> (bstring * mixfix) * term -> local_theory -> (term * term) * local_theory,
    1.29    def: string -> (bstring * mixfix) * ((bstring * Attrib.src list) * term) ->
    1.30      local_theory -> (term * (bstring * thm)) * local_theory,
    1.31 @@ -151,7 +149,6 @@
    1.32  fun operation2 f x y = operation (fn ops => f ops x y);
    1.33  
    1.34  val pretty = operation #pretty;
    1.35 -val consts = operation2 #consts;
    1.36  val axioms = operation2 #axioms;
    1.37  val abbrev = operation2 #abbrev;
    1.38  val def = operation2 #def;