changeset 22927 | 0b53bd36258b |
parent 22900 | f8a7c10e1bd0 |
child 22947 | f53486e661a7 |
--- a/src/HOL/arith_data.ML Thu May 10 18:10:32 2007 +0200 +++ b/src/HOL/arith_data.ML Thu May 10 22:11:35 2007 +0200 @@ -744,7 +744,7 @@ val iszero_t2 = Const ("IntDef.iszero", split_type --> HOLogic.boolT) $ t2 val neg_minus_k = Const ("IntDef.neg", split_type --> HOLogic.boolT) $ (number_of $ - (Const ("Numeral.uminus", + (Const ("HOL.uminus", HOLogic.intT --> HOLogic.intT) $ k')) val zero_leq_j = Const ("Orderings.less_eq", split_type --> split_type --> HOLogic.boolT) $ zero $ j