Admin/de_overload.ML

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Admin/de_overload.ML	Tue Jun 12 11:01:16 2007 +0200
@@ -0,0 +1,44 @@
+(*  Title:      Pure/ML-Systems/de_overload.ML
+    ID:         $Id$
+    Author:     Makarius
+
+De-overloaded operations for int and real.
+*)
+
+(* int *)
+
+val op + = Int.+;
+val op - = Int.-;
+val op * = Int.*;
+val op div = Int.div;
+val op mod = Int.mod;
+val ~ = Int.~;
+val abs = Int.abs;
+
+infix  7  *%
+infix  6  +% -%
+infix  4  >% >=% <% <=%
+
+val op *% = Int.*;
+val op +% = Int.+;
+val op -% = Int.-;
+val op >% = Int.>;
+val op >=% = Int.>=;
+val op <% = Int.<;
+val op <=% = Int.<=;
+
+
+(* real *)
+
+infix  7  *~ /~
+infix  6  +~ -~
+infix  4  >~ >=~ <~ <=~
+
+val op *~ = Real.*;
+val op /~ = Real./;
+val op +~ = Real.+;
+val op -~ = Real.-;
+val op >~ = Real.>;
+val op >=~ = Real.>=;
+val op <~ = Real.<;
+val op <=~ = Real.<=;