src/HOL/Library/FinFun_Syntax.thy
author Christian Sternagel
Wed Aug 29 12:23:14 2012 +0900 (2012-08-29)
changeset 49083 01081bca31b6
parent 48041 d60f6b41bf2d
child 51542 738598beeb26
permissions -rw-r--r--
dropped ord and bot instance for list prefixes (use locale interpretation instead, which allows users to decide what order to use on lists)
Andreas@48041
     1
(* Author: Andreas Lochbihler, KIT *)
Andreas@48041
     2
Andreas@48041
     3
header {* Pretty syntax for almost everywhere constant functions *}
Andreas@48041
     4
Andreas@48041
     5
theory FinFun_Syntax imports FinFun begin
Andreas@48041
     6
Andreas@48041
     7
type_notation
Andreas@48041
     8
  finfun ("(_ =>f /_)" [22, 21] 21)
Andreas@48041
     9
Andreas@48041
    10
type_notation (xsymbols)
Andreas@48041
    11
  finfun ("(_ \<Rightarrow>f /_)" [22, 21] 21)
Andreas@48041
    12
Andreas@48041
    13
notation
Andreas@48041
    14
  finfun_const ("K$/ _" [0] 1) and
Andreas@48041
    15
  finfun_update ("_'(_ $:= _')" [1000,0,0] 1000) and
Andreas@48041
    16
  finfun_apply (infixl "$" 999) and
Andreas@48041
    17
  finfun_comp (infixr "o$" 55) and
Andreas@48041
    18
  finfun_comp2 (infixr "$o" 55) and
Andreas@48041
    19
  finfun_Diag ("(1'($_,/ _$'))" [0, 0] 1000)
Andreas@48041
    20
Andreas@48041
    21
notation (xsymbols) 
Andreas@48041
    22
  finfun_comp (infixr "\<circ>$" 55) and
Andreas@48041
    23
  finfun_comp2 (infixr "$\<circ>" 55)
Andreas@48041
    24
Andreas@48041
    25
end