src/Tools/8bit/isa-patches/HOL/Prod.p
author oheimb
Tue, 25 Jun 1996 17:44:43 +0200
changeset 1826 2a2c0dbeb4ac
permissions -rw-r--r--
Initial revision
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1826
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     1
types
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     2
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     3
('a, 'b) "ò"          (infixr 20)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     4
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     5
translations
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     6
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     7
(type)  "x ò y"	== (type) "x * y" 
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     8
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     9
  "³(x,y,zs).b"   == "split(³x.³(y,zs).b)"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    10
  "³(x,y).b"      == "split(³x y.b)"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    11