src/Tools/8bit/isa-patches/HOL/Prod.p
author wenzelm
Fri, 06 Oct 2000 17:35:58 +0200
changeset 10168 50be659d4222
parent 1826 2a2c0dbeb4ac
permissions -rw-r--r--
final tuning;
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