changeset 24138 | bd3fc8ff6bc9 |
parent 24133 | 75063f96618f |
child 24315 | 09b35593d091 |
--- a/src/Tools/Metis/metis.ML Fri Aug 03 16:28:15 2007 +0200 +++ b/src/Tools/Metis/metis.ML Fri Aug 03 16:28:17 2007 +0200 @@ -5386,7 +5386,7 @@ | range NONE (SOME j) = "{n IN Z | n <= " ^ Int.toString j ^ "}" | range (SOME i) (SOME j) = "{n IN Z | " ^ Int.toString i ^ " <= n <= " ^ Int.toString j ^ "}"; - fun oLeq (SOME (x:int)) (SOME y) = x <= y | oLeq _ _ = true; + fun oLeq (SOME (x: int)) (SOME y) = x <= y | oLeq _ _ = true; fun argToInt arg omin omax x = (case Int.fromString x of SOME i =>