src/Tools/8bit/isa-patches/HOL/HOL1.p
author wenzelm
Mon, 29 Nov 1999 15:52:49 +0100
changeset 8039 a901bafe4578
parent 1826 2a2c0dbeb4ac
permissions -rw-r--r--
Goal: tuned pris;
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
('a, 'b) "ë"          (infixr 5)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     3
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     4
syntax
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     5
  "Ú"		:: "['a::{}, 'a] => prop"       ("(_ Ú/ _)"         [3, 2] 2)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     6
  "êë"		:: "[prop, prop] => prop"	("(_ êë/ _)"        [2, 1] 1)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     7
  "Gbigimpl"	:: "[asms, prop] => prop"	("((3Ë _ Ì) êë/ _)" [0, 1] 1)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     8
  "Gall"	:: "('a => prop) => prop"	(binder "Ä"                0)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     9
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    10
  "Glam"         :: "[idts, 'a::logic] => 'b::logic"  ("(3³_./ _)" 10)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    11
  "Û"           :: "['a, 'a] => bool"                 (infixl 50)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    12
  "Gnot"        :: "bool => bool"                     ("¿ _" [40] 40)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    13
  "GEps"        :: "[pttrn, bool] => 'a"               ("(3®_./ _)" 10)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    14
  "GAll"        :: "[idts, bool] => bool"             ("(3Â_./ _)" 10)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    15
  "GEx"         :: "[idts, bool] => bool"             ("(3Ã_./ _)" 10)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    16
  "GEx1"        :: "[idts, bool] => bool"             ("(3Ã!_./ _)" 10)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    17
  "À"           :: "[bool, bool] => bool"             (infixr 35)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    18
  "Á"           :: "[bool, bool] => bool"             (infixr 30)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    19
  "çè"          :: "[bool, bool] => bool"             (infixr 25)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    20
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    21
translations
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    22
(type)  "x ë y"	== (type) "x => y" 
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    23
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    24
(*  "³x.t"	=> "%x.t" *)
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    25
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    26
  "x Û y"	== "x ~= y"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    27
  "¿ y"		== "~y"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    28
  "®x.P"	== "@x.P"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    29
  "Âx.P"	== "! x. P"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    30
  "Ãx.P"	== "? x. P"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    31
  "Ã!x.P"	== "?! x. P"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    32
  "x À y"	== "x & y"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    33
  "x Á y"	== "x | y"
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    34
  "x çè y"	== "x --> y"