obsolete;
authorwenzelm
Sun, 16 Sep 2007 14:58:29 +0200
changeset 24601 4a6607412b40
parent 24600 5877b88f262c
child 24602 b273d529b80b
obsolete;
Admin/de_overload.ML
--- a/Admin/de_overload.ML	Sun Sep 16 14:55:48 2007 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,44 +0,0 @@
-(*  Title:      Admin/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.<=;