modernized structures;
authorwenzelm
Sat Feb 13 23:24:57 2010 +0100 (2010-02-13)
changeset 35123e286d5df187a
parent 35122 305b3eb5b9d5
child 35124 33976519c888
modernized structures;
src/HOL/Int.thy
src/HOL/RealPow.thy
src/HOL/String.thy
src/HOL/Tools/float_syntax.ML
src/HOL/Tools/numeral_syntax.ML
src/HOL/Tools/string_syntax.ML
src/ZF/Bin.thy
src/ZF/Tools/numeral_syntax.ML
src/ZF/int_arith.ML
     1.1 --- a/src/HOL/Int.thy	Sat Feb 13 23:16:06 2010 +0100
     1.2 +++ b/src/HOL/Int.thy	Sat Feb 13 23:24:57 2010 +0100
     1.3 @@ -604,7 +604,7 @@
     1.4    "_Numeral" :: "num_const \<Rightarrow> 'a"    ("_")
     1.5  
     1.6  use "Tools/numeral_syntax.ML"
     1.7 -setup NumeralSyntax.setup
     1.8 +setup Numeral_Syntax.setup
     1.9  
    1.10  abbreviation
    1.11    "Numeral0 \<equiv> number_of Pls"
     2.1 --- a/src/HOL/RealPow.thy	Sat Feb 13 23:16:06 2010 +0100
     2.2 +++ b/src/HOL/RealPow.thy	Sat Feb 13 23:24:57 2010 +0100
     2.3 @@ -186,7 +186,7 @@
     2.4  syntax "_Float" :: "float_const \<Rightarrow> 'a"    ("_")
     2.5  
     2.6  use "Tools/float_syntax.ML"
     2.7 -setup FloatSyntax.setup
     2.8 +setup Float_Syntax.setup
     2.9  
    2.10  text{* Test: *}
    2.11  lemma "123.456 = -111.111 + 200 + 30 + 4 + 5/10 + 6/100 + (7/1000::real)"
     3.1 --- a/src/HOL/String.thy	Sat Feb 13 23:16:06 2010 +0100
     3.2 +++ b/src/HOL/String.thy	Sat Feb 13 23:24:57 2010 +0100
     3.3 @@ -79,7 +79,7 @@
     3.4    "_String" :: "xstr => string"    ("_")
     3.5  
     3.6  use "Tools/string_syntax.ML"
     3.7 -setup StringSyntax.setup
     3.8 +setup String_Syntax.setup
     3.9  
    3.10  definition chars :: string where
    3.11    "chars = [Char Nibble0 Nibble0, Char Nibble0 Nibble1, Char Nibble0 Nibble2,
     4.1 --- a/src/HOL/Tools/float_syntax.ML	Sat Feb 13 23:16:06 2010 +0100
     4.2 +++ b/src/HOL/Tools/float_syntax.ML	Sat Feb 13 23:24:57 2010 +0100
     4.3 @@ -8,7 +8,7 @@
     4.4    val setup: theory -> theory
     4.5  end;
     4.6  
     4.7 -structure FloatSyntax: FLOAT_SYNTAX =
     4.8 +structure Float_Syntax: FLOAT_SYNTAX =
     4.9  struct
    4.10  
    4.11  (* parse translation *)
     5.1 --- a/src/HOL/Tools/numeral_syntax.ML	Sat Feb 13 23:16:06 2010 +0100
     5.2 +++ b/src/HOL/Tools/numeral_syntax.ML	Sat Feb 13 23:24:57 2010 +0100
     5.3 @@ -9,7 +9,7 @@
     5.4    val setup: theory -> theory
     5.5  end;
     5.6  
     5.7 -structure NumeralSyntax: NUMERAL_SYNTAX =
     5.8 +structure Numeral_Syntax: NUMERAL_SYNTAX =
     5.9  struct
    5.10  
    5.11  (* parse translation *)
     6.1 --- a/src/HOL/Tools/string_syntax.ML	Sat Feb 13 23:16:06 2010 +0100
     6.2 +++ b/src/HOL/Tools/string_syntax.ML	Sat Feb 13 23:24:57 2010 +0100
     6.3 @@ -9,7 +9,7 @@
     6.4    val setup: theory -> theory
     6.5  end;
     6.6  
     6.7 -structure StringSyntax: STRING_SYNTAX =
     6.8 +structure String_Syntax: STRING_SYNTAX =
     6.9  struct
    6.10  
    6.11  
    6.12 @@ -19,7 +19,7 @@
    6.13  
    6.14  val mk_nib =
    6.15    Syntax.Constant o unprefix nib_prefix o
    6.16 -  fst o Term.dest_Const o HOLogic.mk_nibble;
    6.17 +    fst o Term.dest_Const o HOLogic.mk_nibble;
    6.18  
    6.19  fun dest_nib (Syntax.Constant c) =
    6.20    HOLogic.dest_nibble (Const (nib_prefix ^ c, dummyT))
     7.1 --- a/src/ZF/Bin.thy	Sat Feb 13 23:16:06 2010 +0100
     7.2 +++ b/src/ZF/Bin.thy	Sat Feb 13 23:24:57 2010 +0100
     7.3 @@ -105,7 +105,7 @@
     7.4    "_Int"    :: "xnum => i"        ("_")
     7.5  
     7.6  use "Tools/numeral_syntax.ML"
     7.7 -setup NumeralSyntax.setup
     7.8 +setup Numeral_Syntax.setup
     7.9  
    7.10  
    7.11  declare bin.intros [simp,TC]
     8.1 --- a/src/ZF/Tools/numeral_syntax.ML	Sat Feb 13 23:16:06 2010 +0100
     8.2 +++ b/src/ZF/Tools/numeral_syntax.ML	Sat Feb 13 23:24:57 2010 +0100
     8.3 @@ -14,7 +14,7 @@
     8.4    val setup: theory -> theory
     8.5  end;
     8.6  
     8.7 -structure NumeralSyntax: NUMERAL_SYNTAX =
     8.8 +structure Numeral_Syntax: NUMERAL_SYNTAX =
     8.9  struct
    8.10  
    8.11  (* bits *)
     9.1 --- a/src/ZF/int_arith.ML	Sat Feb 13 23:16:06 2010 +0100
     9.2 +++ b/src/ZF/int_arith.ML	Sat Feb 13 23:24:57 2010 +0100
     9.3 @@ -22,7 +22,7 @@
     9.4      fun term_of [] = @{term Pls}
     9.5        | term_of [~1] = @{term Min}
     9.6        | term_of (b :: bs) = @{term Bit} $ term_of bs $ mk_bit b;
     9.7 -  in term_of (NumeralSyntax.make_binary i) end;
     9.8 +  in term_of (Numeral_Syntax.make_binary i) end;
     9.9  
    9.10  fun dest_bin tm =
    9.11    let
    9.12 @@ -30,7 +30,7 @@
    9.13        | bin_of @{term Min} = [~1]
    9.14        | bin_of (@{term Bit} $ bs $ b) = dest_bit b :: bin_of bs
    9.15        | bin_of _ = sys_error "dest_bin";
    9.16 -  in NumeralSyntax.dest_binary (bin_of tm) end;
    9.17 +  in Numeral_Syntax.dest_binary (bin_of tm) end;
    9.18  
    9.19  
    9.20  (*Utilities*)