From f8f584fe1e7e691c3584d99e039c99a7bcd4dbe5 Mon Sep 17 00:00:00 2001 From: luisacicolini Date: Tue, 21 Jan 2025 16:31:07 +0000 Subject: [PATCH] chore: simpler getElem proof --- src/Init/Data/BitVec/Lemmas.lean | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Init/Data/BitVec/Lemmas.lean b/src/Init/Data/BitVec/Lemmas.lean index f7ecf22f42eb..8178e7c53342 100644 --- a/src/Init/Data/BitVec/Lemmas.lean +++ b/src/Init/Data/BitVec/Lemmas.lean @@ -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]) :