diff --git a/src/Init/Data/Array/Lemmas.lean b/src/Init/Data/Array/Lemmas.lean index 9686f4a168..a7819b1b29 100644 --- a/src/Init/Data/Array/Lemmas.lean +++ b/src/Init/Data/Array/Lemmas.lean @@ -621,7 +621,7 @@ theorem getElem?_ofFn (f : Fin n → α) (i : Nat) : (ofFn f)[i]? = if h : i < n then some (f ⟨i, h⟩) else none := by simp [getElem?_def] -/-- # mkArray -/ +/-! # mkArray -/ @[simp] theorem size_mkArray (n : Nat) (v : α) : (mkArray n v).size = n := List.length_replicate .. @@ -637,7 +637,7 @@ theorem getElem?_mkArray (n : Nat) (v : α) (i : Nat) : (mkArray n v)[i]? = if i < n then some v else none := by simp [getElem?_def] -/-- # mem -/ +/-! # mem -/ @[simp] theorem mem_toList {a : α} {l : Array α} : a ∈ l.toList ↔ a ∈ l := mem_def.symm @@ -659,7 +659,7 @@ theorem not_mem_nil (a : α) : ¬ a ∈ #[] := nofun (x ∈ if p then l else #[]) ↔ p ∧ x ∈ l := by split <;> simp_all -/-- # get lemmas -/ +/-! # get lemmas -/ theorem lt_of_getElem {x : α} {a : Array α} {idx : Nat} {hidx : idx < a.size} (_ : a[idx] = x) : idx < a.size :=