src/HOL/Library/Lattice_Syntax.thy
author bulwahn
Fri Apr 08 16:31:14 2011 +0200 (2011-04-08)
changeset 42316 12635bb655fd
parent 41082 9ff94e7cc3b3
child 44860 56101fa00193
permissions -rw-r--r--
deactivating other compilations in quickcheck_exhaustive momentarily that only interesting for my benchmarks and experiments
haftmann@30330
     1
(* Author: Florian Haftmann, TU Muenchen *)
haftmann@30330
     2
haftmann@30330
     3
header {* Pretty syntax for lattice operations *}
haftmann@30330
     4
haftmann@30330
     5
theory Lattice_Syntax
haftmann@32139
     6
imports Complete_Lattice
haftmann@30330
     7
begin
haftmann@30330
     8
haftmann@30330
     9
notation
haftmann@41082
    10
  bot ("\<bottom>") and
haftmann@32139
    11
  top ("\<top>") and
haftmann@30330
    12
  inf  (infixl "\<sqinter>" 70) and
haftmann@30330
    13
  sup  (infixl "\<squnion>" 65) and
haftmann@30330
    14
  Inf  ("\<Sqinter>_" [900] 900) and
haftmann@32139
    15
  Sup  ("\<Squnion>_" [900] 900)
haftmann@30330
    16
haftmann@41080
    17
syntax (xsymbols)
haftmann@41082
    18
  "_INF1"     :: "pttrns \<Rightarrow> 'b \<Rightarrow> 'b"           ("(3\<Sqinter>_./ _)" [0, 10] 10)
haftmann@41082
    19
  "_INF"      :: "pttrn \<Rightarrow> 'a set \<Rightarrow> 'b \<Rightarrow> 'b"  ("(3\<Sqinter>_\<in>_./ _)" [0, 0, 10] 10)
haftmann@41080
    20
  "_SUP1"     :: "pttrns \<Rightarrow> 'b \<Rightarrow> 'b"           ("(3\<Squnion>_./ _)" [0, 10] 10)
haftmann@41080
    21
  "_SUP"      :: "pttrn \<Rightarrow> 'a set \<Rightarrow> 'b \<Rightarrow> 'b"  ("(3\<Squnion>_\<in>_./ _)" [0, 0, 10] 10)
haftmann@41080
    22
haftmann@30331
    23
end