508 add_nat_number_of, diff_nat_number_of, mult_nat_number_of, |
508 add_nat_number_of, diff_nat_number_of, mult_nat_number_of, |
509 eq_nat_number_of, less_nat_number_of, le_number_of_eq_not_less, |
509 eq_nat_number_of, less_nat_number_of, le_number_of_eq_not_less, |
510 le_Suc_number_of,le_number_of_Suc, |
510 le_Suc_number_of,le_number_of_Suc, |
511 less_Suc_number_of,less_number_of_Suc, |
511 less_Suc_number_of,less_number_of_Suc, |
512 Suc_eq_number_of,eq_number_of_Suc, |
512 Suc_eq_number_of,eq_number_of_Suc, |
513 mult_0, mult_0_right, mult_Suc, mult_Suc_right, |
513 mult_Suc, mult_Suc_right, |
514 eq_number_of_0, eq_0_number_of, less_0_number_of, |
514 eq_number_of_0, eq_0_number_of, less_0_number_of, |
515 nat_number_of, thm "Let_number_of", if_True, if_False]; |
515 nat_number_of, if_True, if_False]; |
516 |
516 |
517 val simprocs = [Nat_Times_Assoc.conv, |
517 val simprocs = [Nat_Times_Assoc.conv, |
518 Nat_Numeral_Simprocs.combine_numerals]@ |
518 Nat_Numeral_Simprocs.combine_numerals]@ |
519 Nat_Numeral_Simprocs.cancel_numerals; |
519 Nat_Numeral_Simprocs.cancel_numerals; |
520 |
520 |