dropped axclass, going back to purely syntactic type classes
authorhaftmann
Tue Feb 23 10:11:16 2010 +0100 (2010-02-23)
changeset 35318e1b61c5fd494
parent 35317 d57da4abb47d
child 35319 4140f31b2ed2
dropped axclass, going back to purely syntactic type classes
src/HOL/TLA/Action.thy
src/HOL/TLA/Init.thy
src/HOL/TLA/Intensional.thy
src/HOL/TLA/Stfun.thy
     1.1 --- a/src/HOL/TLA/Action.thy	Tue Feb 23 10:11:15 2010 +0100
     1.2 +++ b/src/HOL/TLA/Action.thy	Tue Feb 23 10:11:16 2010 +0100
     1.3 @@ -16,8 +16,8 @@
     1.4    'a trfun = "(state * state) => 'a"
     1.5    action   = "bool trfun"
     1.6  
     1.7 -instance
     1.8 -  "*" :: (world, world) world ..
     1.9 +arities
    1.10 +  "*" :: (world, world) world
    1.11  
    1.12  consts
    1.13    (** abstract syntax **)
     2.1 --- a/src/HOL/TLA/Init.thy	Tue Feb 23 10:11:15 2010 +0100
     2.2 +++ b/src/HOL/TLA/Init.thy	Tue Feb 23 10:11:16 2010 +0100
     2.3 @@ -12,7 +12,7 @@
     2.4  begin
     2.5  
     2.6  typedecl behavior
     2.7 -instance behavior :: world ..
     2.8 +arities behavior :: world
     2.9  
    2.10  types
    2.11    temporal = "behavior form"
     3.1 --- a/src/HOL/TLA/Intensional.thy	Tue Feb 23 10:11:15 2010 +0100
     3.2 +++ b/src/HOL/TLA/Intensional.thy	Tue Feb 23 10:11:16 2010 +0100
     3.3 @@ -10,8 +10,8 @@
     3.4  imports Main
     3.5  begin
     3.6  
     3.7 -axclass
     3.8 -  world < type
     3.9 +classes world
    3.10 +classrel world < type
    3.11  
    3.12  (** abstract syntax **)
    3.13  
    3.14 @@ -171,7 +171,7 @@
    3.15    "_liftMem"    :: "[lift, lift] => lift"                ("(_/ \<in> _)" [50, 51] 50)
    3.16    "_liftNotMem" :: "[lift, lift] => lift"                ("(_/ \<notin> _)" [50, 51] 50)
    3.17  
    3.18 -axioms
    3.19 +defs
    3.20    Valid_def:   "|- A    ==  ALL w. w |= A"
    3.21  
    3.22    unl_con:     "LIFT #c w  ==  c"
     4.1 --- a/src/HOL/TLA/Stfun.thy	Tue Feb 23 10:11:15 2010 +0100
     4.2 +++ b/src/HOL/TLA/Stfun.thy	Tue Feb 23 10:11:16 2010 +0100
     4.3 @@ -11,7 +11,7 @@
     4.4  
     4.5  typedecl state
     4.6  
     4.7 -instance state :: world ..
     4.8 +arities state :: world
     4.9  
    4.10  types
    4.11    'a stfun = "state => 'a"