Skip to content

Commit

Permalink
Update Attach.lean
Browse files Browse the repository at this point in the history
  • Loading branch information
eric-wieser authored and kim-em committed Nov 19, 2024
1 parent a813d39 commit a5e74f4
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Init/Data/List/Attach.lean
Original file line number Diff line number Diff line change
Expand Up @@ -238,7 +238,7 @@ theorem get_pmap {p : α → Prop} (f : ∀ a, p a → β) {l : List α} (h :
(hn : n < (pmap f l h).length) :
get (pmap f l h) ⟨n, hn⟩ =
f (get l ⟨n, @length_pmap _ _ p f l h ▸ hn⟩)
(h _ (get_mem l n (@length_pmap _ _ p f l h ▸ hn))) := by
(h _ (get_mem l ⟨n, @length_pmap _ _ p f l h ▸ hn)) := by
simp only [get_eq_getElem]
simp [getElem_pmap]

Expand Down

0 comments on commit a5e74f4

Please sign in to comment.