src/HOL/Library/FinFun_Syntax.thy
author haftmann
Tue Feb 19 19:44:10 2013 +0100 (2013-02-19)
changeset 51188 9b5bf1a9a710
parent 48041 d60f6b41bf2d
child 51542 738598beeb26
permissions -rw-r--r--
dropped spurious left-over from 0a2371e7ced3
     1 (* Author: Andreas Lochbihler, KIT *)
     2 
     3 header {* Pretty syntax for almost everywhere constant functions *}
     4 
     5 theory FinFun_Syntax imports FinFun begin
     6 
     7 type_notation
     8   finfun ("(_ =>f /_)" [22, 21] 21)
     9 
    10 type_notation (xsymbols)
    11   finfun ("(_ \<Rightarrow>f /_)" [22, 21] 21)
    12 
    13 notation
    14   finfun_const ("K$/ _" [0] 1) and
    15   finfun_update ("_'(_ $:= _')" [1000,0,0] 1000) and
    16   finfun_apply (infixl "$" 999) and
    17   finfun_comp (infixr "o$" 55) and
    18   finfun_comp2 (infixr "$o" 55) and
    19   finfun_Diag ("(1'($_,/ _$'))" [0, 0] 1000)
    20 
    21 notation (xsymbols) 
    22   finfun_comp (infixr "\<circ>$" 55) and
    23   finfun_comp2 (infixr "$\<circ>" 55)
    24 
    25 end