src/HOL/arith_data.ML
changeset 19043 6c0fca729f33
parent 18728 6790126ab5f6
child 19233 77ca20b0ed77
--- a/src/HOL/arith_data.ML	Wed Feb 15 17:09:45 2006 +0100
+++ b/src/HOL/arith_data.ML	Wed Feb 15 18:10:09 2006 +0100
@@ -461,7 +461,7 @@
    (l <= min m n + k) = (l <= m+k & l <= n+k)
 *)
 local
-(* a simpset for computations subject to optimazation !!! *)
+(* a simpset for computations subject to optimization !!! *)
 (*
 val binarith = map thm
   ["Pls_0_eq", "Min_1_eq",