src/Tools/8bit/isa-patches/HOL/Prod.p
author wenzelm
Thu, 15 Feb 2001 17:18:54 +0100
changeset 11145 3e47692e3a3e
parent 1826 2a2c0dbeb4ac
permissions -rw-r--r--
eliminate get_def;

types

('a, 'b) "ò"          (infixr 20)

translations

(type)  "x ò y"	== (type) "x * y" 

  "³(x,y,zs).b"   == "split(³x.³(y,zs).b)"
  "³(x,y).b"      == "split(³x y.b)"