case inl f_in =>
  rw [conEval] at w_Con
  simp [Yset] at *
  specialize w_Con f
  tauto
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
δ : List Program
Gs : List Formula
Gγ_in : (Gs, ε) ∈ H α
aaa : List Formula
w_Con : evaluate M w (Con (Yset (Gs ∪ aaa, δ) ψ))
_in_Hβ : (aaa, δ) ∈ H β
f : Formula
f_in : f ∈ Gs
⊢ evaluate M w f
no goals