src/Tools/8bit/isa-patches/HOLCF/Porder.p
changeset 1826 2a2c0dbeb4ac
equal deleted inserted replaced
1825:88d4c33d7947 1826:2a2c0dbeb4ac
       
     1 
       
     2 syntax
       
     3   "Glub"        :: "[pttrn, 'a] => 'a"               ("(3×_./ _)" 10)
       
     4 
       
     5 translations
       
     6   "×x.t"	== "lub(range(%x.t))"
       
     7