diff --git a/src/Init/Data/BitVec/Bootstrap.lean b/src/Init/Data/BitVec/Bootstrap.lean index 65e6e2bd50..750b25cdb1 100644 --- a/src/Init/Data/BitVec/Bootstrap.lean +++ b/src/Init/Data/BitVec/Bootstrap.lean @@ -75,7 +75,7 @@ theorem getElem_cons {b : Bool} {n} {x : BitVec n} {i : Nat} (h : i < n + 1) : cases b <;> trivial · have p1 : i ≠ n := by omega have p2 : i - n ≠ 0 := by omega - simp [p1, p2, Nat.testBit_bool_to_nat] + simp [p1, p2, Nat.testBit_bool_toNat] private theorem lt_two_pow_of_le {x m n : Nat} (lt : x < 2 ^ m) (le : m ≤ n) : x < 2 ^ n := Nat.lt_of_lt_of_le lt (Nat.pow_le_pow_right (by trivial : 0 < 2) le) diff --git a/src/Init/Data/BitVec/Lemmas.lean b/src/Init/Data/BitVec/Lemmas.lean index d4ea0e7f77..3a782ed6c7 100644 --- a/src/Init/Data/BitVec/Lemmas.lean +++ b/src/Init/Data/BitVec/Lemmas.lean @@ -3062,7 +3062,7 @@ theorem getLsbD_cons (b : Bool) {n} (x : BitVec n) (i : Nat) : cases b <;> trivial · have p1 : i ≠ n := by omega have p2 : i - n ≠ 0 := by omega - simp [p1, p2, Nat.testBit_bool_to_nat] + simp [p1, p2, Nat.testBit_bool_toNat] @[simp] theorem msb_cons : (cons a x).msb = a := by simp [cons, msb_cast, msb_append]