α✝ : Type u_1
p : α✝ → Prop
⊢ ∀ {x : Option α✝}, SatisfiesM p x → ∀ (a : α✝), x = some a → p a
α✝ : Type u_1
p : α✝ → Prop
x : Option α✝
⊢ SatisfiesM p x → ∀ (a : α✝), x = some a → p a
revert x
no goals
α✝ : Type u_1
p : α✝ → Prop
⊢ ∀ {x : Option α✝}, SatisfiesM p x → ∀ (a : α✝), x = some a → p a
intro | some _, ⟨some ⟨_, h⟩, rfl⟩, _, rfl => exact h
no goals
α✝ : Type u_1
p : α✝ → Prop
x✝³ : Option α✝
x✝² : SatisfiesM p x✝³
x✝¹ : α✝
x✝ : x✝³ = some x✝¹
val✝ : α✝
h : p val✝
⊢ p { val := val✝, property := h }.val
exact h