src/HOL/Arith.ML
changeset 7622 dcb93b295683
parent 7582 2650c9c2ab7f
child 7945 3aca6352f063
--- a/src/HOL/Arith.ML	Tue Sep 28 14:24:22 1999 +0200
+++ b/src/HOL/Arith.ML	Tue Sep 28 15:12:27 1999 +0200
@@ -336,7 +336,13 @@
 by (induct_tac "n" 2);
 by (ALLGOALS Asm_simp_tac);
 qed "mult_is_0";
-Addsimps [mult_is_0];
+
+Goal "(0 = m*n) = (0=m | 0=n)";
+by (cut_facts_tac [mult_is_0] 1);
+by (full_simp_tac (simpset() addsimps [eq_commute]) 1);
+qed "zero_is_mult";
+
+Addsimps [mult_is_0, zero_is_mult];
 
 Goal "m <= m*(m::nat)";
 by (induct_tac "m" 1);