src/HOL/Divides.ML
changeset 4423 a129b817b58a
parent 4385 f6d019eefa1e
child 4477 b3e5857d8d99
equal deleted inserted replaced
4422:21238c9d363e 4423:a129b817b58a
   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";