src/HOL/Integ/Bin.ML
changeset 7517 bad2f36810e1
parent 7074 e0730ffaafcc
child 7549 1dcf2a7a2b5b
--- a/src/HOL/Integ/Bin.ML	Wed Sep 08 15:39:52 1999 +0200
+++ b/src/HOL/Integ/Bin.ML	Wed Sep 08 15:40:39 1999 +0200
@@ -74,9 +74,10 @@
 by Auto_tac;
 qed "bin_add_Pls_right";
 
-Goal "bin_add (v BIT x) Min = bin_pred (v BIT x)";
-by (Simp_tac 1);
-qed "bin_add_BIT_Min";
+Goal "bin_add w Min = bin_pred w";
+by (induct_tac "w" 1);
+by Auto_tac;
+qed "bin_add_Min_right";
 
 Goal "bin_add (v BIT x) (w BIT y) = \
 \    NCons(bin_add v (if x & y then (bin_succ w) else w)) (x~= y)";
@@ -409,7 +410,7 @@
      bin_succ_1, bin_succ_0, 
      bin_pred_1, bin_pred_0, 
      bin_minus_1, bin_minus_0,  
-     bin_add_Pls_right, bin_add_BIT_Min,
+     bin_add_Pls_right, bin_add_Min_right,
      bin_add_BIT_0, bin_add_BIT_10, bin_add_BIT_11,
      diff_number_of_eq, 
      bin_mult_1, bin_mult_0,