src/Tools/8bit/isa-patches/HOL/Set.p
changeset 11390 735bf767833a
parent 11389 55e2aef8909b
child 11391 e8638d07fdee
--- a/src/Tools/8bit/isa-patches/HOL/Set.p	Fri Jun 29 18:12:18 2001 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,27 +0,0 @@
-syntax
-  "Ð"		:: "['a set, 'a set] => 'a set"       (infixl 70)
-  "Ñ"		:: "['a set, 'a set] => 'a set"       (infixl 65)
-  "Î"		:: "['a, 'a set] => bool"             (infixl 50)
-  "ñ"		:: "['a, 'a set] => bool"             (infixl 50)
-  GUnion	:: "(('a set)set) => 'a set"          ("Ó_" [90] 90)
-  GInter	:: "(('a set)set) => 'a set"          ("Ò_" [90] 90)
-  GUNION1       :: "['a => 'b set] => 'b set"         (binder "Ó " 10)
-  GINTER1       :: "['a => 'b set] => 'b set"         (binder "Ò " 10)
-  GINTER	:: "[pttrn, 'a set, 'b set] => 'b set"  ("(3Ò _Î_./ _)" 10)
-  GUNION	:: "[pttrn, 'a set, 'b set] => 'b set"  ("(3Ó _Î_./ _)" 10)
-  GBall		:: "[pttrn, 'a set, bool] => bool"      ("(3Â _Î_./ _)" 10)
-  GBex		:: "[pttrn, 'a set, bool] => bool"      ("(3Ã _Î_./ _)" 10)
-
-translations
-  "x ñ y"      == "¿(x : y)"
-  "x Î y"      == "(x : y)"
-  "x Ð y"      == "x Int y"
-  "x Ñ y"      == "x Un  y"
-  "ÒX"        == "Inter X" 
-  "ÓX"        == "Union X"
-  "Òx.A"      == "INT x.A"
-  "Óx.A"      == "UN x.A"
-  "ÒxÎA. B"   == "INT x:A. B"
-  "ÓxÎA. B"   == "UN x:A. B"
-  "ÂxÎA. P"    == "! x:A. P"
-  "ÃxÎA. P"    == "? x:A. P"