rintro ⟨⟨i,hi⟩,ha⟩
case mp
α : Type u
β : Type v
n : Nat
f : Fin n → α
a : α
⊢ (∃ n_1, f (Fin.cast (_ : length (ofFn f) = n) n_1) = a) → ∃ i, f i = a
case mp.intro.mk
α : Type u
β : Type v
n : Nat
f : Fin n → α
a : α
i : Nat
hi : i < length (ofFn f)
ha : f (Fin.cast (_ : length (ofFn f) = n) { val := i, isLt := hi }) = a
⊢ ∃ i, f i = a