src/HOL/Library/Lattice_Syntax.thy
changeset 41082 9ff94e7cc3b3
parent 41080 294956ff285b
child 44860 56101fa00193
     1.1 --- a/src/HOL/Library/Lattice_Syntax.thy	Wed Dec 08 14:52:23 2010 +0100
     1.2 +++ b/src/HOL/Library/Lattice_Syntax.thy	Wed Dec 08 15:05:46 2010 +0100
     1.3 @@ -7,17 +7,17 @@
     1.4  begin
     1.5  
     1.6  notation
     1.7 +  bot ("\<bottom>") and
     1.8    top ("\<top>") and
     1.9 -  bot ("\<bottom>") and
    1.10    inf  (infixl "\<sqinter>" 70) and
    1.11    sup  (infixl "\<squnion>" 65) and
    1.12    Inf  ("\<Sqinter>_" [900] 900) and
    1.13    Sup  ("\<Squnion>_" [900] 900)
    1.14  
    1.15  syntax (xsymbols)
    1.16 +  "_INF1"     :: "pttrns \<Rightarrow> 'b \<Rightarrow> 'b"           ("(3\<Sqinter>_./ _)" [0, 10] 10)
    1.17 +  "_INF"      :: "pttrn \<Rightarrow> 'a set \<Rightarrow> 'b \<Rightarrow> 'b"  ("(3\<Sqinter>_\<in>_./ _)" [0, 0, 10] 10)
    1.18    "_SUP1"     :: "pttrns \<Rightarrow> 'b \<Rightarrow> 'b"           ("(3\<Squnion>_./ _)" [0, 10] 10)
    1.19    "_SUP"      :: "pttrn \<Rightarrow> 'a set \<Rightarrow> 'b \<Rightarrow> 'b"  ("(3\<Squnion>_\<in>_./ _)" [0, 0, 10] 10)
    1.20 -  "_INF1"     :: "pttrns \<Rightarrow> 'b \<Rightarrow> 'b"           ("(3\<Sqinter>_./ _)" [0, 10] 10)
    1.21 -  "_INF"      :: "pttrn \<Rightarrow> 'a set \<Rightarrow> 'b \<Rightarrow> 'b"  ("(3\<Sqinter>_\<in>_./ _)" [0, 0, 10] 10)
    1.22  
    1.23  end