src/HOL/Library/Code_Target_Nat.thy
changeset 57512 cc97b347b301
parent 55736 f1ed1e9cd080
child 58881 b9556a055632
     1.1 --- a/src/HOL/Library/Code_Target_Nat.thy	Fri Jul 04 20:07:08 2014 +0200
     1.2 +++ b/src/HOL/Library/Code_Target_Nat.thy	Fri Jul 04 20:18:47 2014 +0200
     1.3 @@ -112,7 +112,7 @@
     1.4    from mod_div_equality have *: "of_nat n = of_nat (n div 2 * 2 + n mod 2)" by simp
     1.5    show ?thesis
     1.6      by (simp add: Let_def divmod_nat_div_mod of_nat_add [symmetric])
     1.7 -      (simp add: * mult_commute of_nat_mult add_commute)
     1.8 +      (simp add: * mult.commute of_nat_mult add.commute)
     1.9  qed
    1.10  
    1.11  declare of_nat_code_if [code]