Reduced priority of postfix ^* etc operators such that they are the same as
authornipkow
Fri Jul 04 14:37:30 1997 +0200 (1997-07-04)
changeset 3499ce1664057431
parent 3498 807549666b9c
child 3500 0d8ad2f192d8
Reduced priority of postfix ^* etc operators such that they are the same as
application. Eg wf r^* now needs to be written wf(r^*).
src/HOL/Relation.thy
src/HOL/Trancl.thy
     1.1 --- a/src/HOL/Relation.thy	Fri Jul 04 12:36:00 1997 +0200
     1.2 +++ b/src/HOL/Relation.thy	Fri Jul 04 14:37:30 1997 +0200
     1.3 @@ -9,7 +9,7 @@
     1.4      id          :: "('a * 'a)set"               (*the identity relation*)
     1.5      O           :: "[('b * 'c)set, ('a * 'b)set] => ('a * 'c)set" (infixr 60)
     1.6      trans       :: "('a * 'a)set => bool"       (*transitivity predicate*)
     1.7 -    inverse    :: "('a*'b) set => ('b*'a) set"     ("(_^-1)" [1000] 1000)
     1.8 +    inverse    :: "('a*'b) set => ('b*'a) set"     ("(_^-1)" [1000] 999)
     1.9      "^^"        :: "[('a*'b) set,'a set] => 'b set" (infixl 90)
    1.10      Domain      :: "('a*'b) set => 'a set"
    1.11      Range       :: "('a*'b) set => 'b set"
     2.1 --- a/src/HOL/Trancl.thy	Fri Jul 04 12:36:00 1997 +0200
     2.2 +++ b/src/HOL/Trancl.thy	Fri Jul 04 14:37:30 1997 +0200
     2.3 @@ -16,14 +16,14 @@
     2.4  Trancl = Lfp + Relation + 
     2.5  
     2.6  constdefs
     2.7 -  rtrancl :: "('a * 'a)set => ('a * 'a)set"   ("(_^*)" [1000] 1000)
     2.8 +  rtrancl :: "('a * 'a)set => ('a * 'a)set"   ("(_^*)" [1000] 999)
     2.9    "r^*  ==  lfp(%s. id Un (r O s))"
    2.10  
    2.11 -  trancl  :: "('a * 'a)set => ('a * 'a)set"   ("(_^+)" [1000] 1000)
    2.12 +  trancl  :: "('a * 'a)set => ('a * 'a)set"   ("(_^+)" [1000] 999)
    2.13    "r^+  ==  r O rtrancl(r)"
    2.14  
    2.15  syntax
    2.16 -  reflcl  :: "('a*'a)set => ('a*'a)set"       ("(_^=)" [1000] 1000)
    2.17 +  reflcl  :: "('a*'a)set => ('a*'a)set"       ("(_^=)" [1000] 999)
    2.18  
    2.19  translations
    2.20    "r^=" == "r Un id"