equal
deleted
inserted
replaced
108 add_diff_inverse, diff_less])))); |
108 add_diff_inverse, diff_less])))); |
109 qed "mod_div_equality"; |
109 qed "mod_div_equality"; |
110 |
110 |
111 (* a simple rearrangement of mod_div_equality: *) |
111 (* a simple rearrangement of mod_div_equality: *) |
112 goal thy "!!k. 0<k ==> k*(m div k) = m - (m mod k)"; |
112 goal thy "!!k. 0<k ==> k*(m div k) = m - (m mod k)"; |
113 by(dres_inst_tac [("m","m")] mod_div_equality 1); |
113 by (dres_inst_tac [("m","m")] mod_div_equality 1); |
114 by (EVERY1[etac subst, simp_tac (simpset() addsimps mult_ac), |
114 by (EVERY1[etac subst, simp_tac (simpset() addsimps mult_ac), |
115 K(IF_UNSOLVED no_tac)]); |
115 K(IF_UNSOLVED no_tac)]); |
116 qed "mult_div_cancel"; |
116 qed "mult_div_cancel"; |
117 |
117 |
118 goal thy "m div 1 = m"; |
118 goal thy "m div 1 = m"; |