tauto
case h.right.a
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
Fs : List Formula
δ : List Program
Fδ_in : (Fs, δ) ∈ H α
δ_not_ε : ¬δ = []
w_Con : ∀ (f : Formula), f ∈ Fs ∨ f = (~⌈⌈δ⌉⌉⌈β⌉ψ) → evaluate M w f
f : Formula
f_in : f ∈ Fs ∨ f = (~⌈⌈δ⌉⌉⌈β⌉ψ)
⊢ f ∈ Fs ∨ f = (~⌈⌈δ⌉⌉⌈β⌉ψ)
no goals