src/HOL/Integ/nat_simprocs.ML
changeset 14369 c50188fe6366
parent 14365 3d4df8c166ae
child 14387 e96d5c42c4b0
equal deleted inserted replaced
14368:2763da611ad9 14369:c50188fe6366
   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