Skip to content

Commit

Permalink
chore: simpler getElem proof
Browse files Browse the repository at this point in the history
  • Loading branch information
luisacicolini committed Jan 21, 2025
1 parent 751f74f commit f8f584f
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Init/Data/BitVec/Lemmas.lean
Original file line number Diff line number Diff line change
Expand Up @@ -3793,7 +3793,7 @@ theorem getLsbD_replicate {n w : Nat} {x : BitVec w} :
theorem getElem_replicate {n w : Nat} {x : BitVec w} (h : i < w * n) :
(x.replicate n)[i] = if h' : w = 0 then false else x[i % w]'(@Nat.mod_lt i w (by omega)) := by
simp only [← getLsbD_eq_getElem, getLsbD_replicate]
cases w <;> simp <;> omega
cases w <;> simp; omega

@[simp]
theorem replicate_one {w : Nat} {x : BitVec w} (h : w = w * 1 := by rw [Nat.mul_one]) :
Expand Down

0 comments on commit f8f584f

Please sign in to comment.