src/Tools/8bit/isa-patches/HOL/Prod.p
author wenzelm
Sun, 25 Oct 1998 12:33:27 +0100
changeset 5769 6a422b22ba02
parent 1826 2a2c0dbeb4ac
permissions -rw-r--r--
tuned checklist;
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