src/Tools/8bit/isa-patches/HOLCF/Porder.p
changeset 11390 735bf767833a
parent 11389 55e2aef8909b
child 11391 e8638d07fdee
equal deleted inserted replaced
11389:55e2aef8909b 11390:735bf767833a
     1 
       
     2 syntax
       
     3   "Glub"        :: "[pttrn, 'a] => 'a"               ("(3×_./ _)" 10)
       
     4 
       
     5 translations
       
     6   "×x.t"	== "lub(range(%x.t))"
       
     7