specialize w_ℓ τ τ τ_in
case mp.inl
α : Program
ℓ : TP α
W : Type
M : KripkeModel W
w : W
w_ℓ : ∀ (f x : Formula) (x_1 : x ∈ testsOfProgram α), (if ℓ ⟨x, ⋯⟩ = true then x else ~x) = f → evaluate M w f
τ : Formula
τ_in : τ ∈ testsOfProgram α
h✝ : ℓ ⟨τ, τ_in⟩ = true
⊢ ℓ ⟨τ, τ_in⟩ = true ↔ evaluate M w τ
case mp.inl
α : Program
ℓ : TP α
W : Type
M : KripkeModel W
w : W
τ : Formula
τ_in : τ ∈ testsOfProgram α
h✝ : ℓ ⟨τ, τ_in⟩ = true
w_ℓ : (if ℓ ⟨τ, ⋯⟩ = true then τ else ~τ) = τ → evaluate M w τ
⊢ ℓ ⟨τ, τ_in⟩ = true ↔ evaluate M w τ