equal
deleted
inserted
replaced
1467 by (simp add: of_nat_def) |
1467 by (simp add: of_nat_def) |
1468 |
1468 |
1469 lemma of_nat_add [simp]: "of_nat (m + n) = of_nat m + of_nat n" |
1469 lemma of_nat_add [simp]: "of_nat (m + n) = of_nat m + of_nat n" |
1470 by (induct m) (simp_all add: ac_simps) |
1470 by (induct m) (simp_all add: ac_simps) |
1471 |
1471 |
1472 lemma of_nat_mult: "of_nat (m * n) = of_nat m * of_nat n" |
1472 lemma of_nat_mult [simp]: "of_nat (m * n) = of_nat m * of_nat n" |
1473 by (induct m) (simp_all add: ac_simps distrib_right) |
1473 by (induct m) (simp_all add: ac_simps distrib_right) |
1474 |
1474 |
1475 lemma mult_of_nat_commute: "of_nat x * y = y * of_nat x" |
1475 lemma mult_of_nat_commute: "of_nat x * y = y * of_nat x" |
1476 by (induction x) (simp_all add: algebra_simps) |
1476 by (induction x) (simp_all add: algebra_simps) |
1477 |
1477 |