Theorem: LO.Modal.Standard.reducible_K4_Triv (Logic/Modal/Standard/Deduction.lean)

State before:
α : Type u_1
inst✝ : DecidableEq α
⊢ 𝐊𝟒 ≤ₛ 𝐓𝐫𝐢𝐯
Tactic:
apply normal_reducible
State after:
case hMaxm
α : Type u_1
inst✝ : DecidableEq α
⊢ ∀ {p : Formula α}, p ∈ Ax(𝐊𝟒) → 𝐓𝐫𝐢𝐯 ⊢! p

State before:
case hMaxm
α : Type u_1
inst✝ : DecidableEq α
⊢ ∀ {p : Formula α}, p ∈ Ax(𝐊𝟒) → 𝐓𝐫𝐢𝐯 ⊢! p
Tactic:
intro p hp
State after:
case hMaxm
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hp : p ∈ Ax(𝐊𝟒)
⊢ 𝐓𝐫𝐢𝐯 ⊢! p

State before:
case hMaxm
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hp : p ∈ Ax(𝐊𝟒)
⊢ 𝐓𝐫𝐢𝐯 ⊢! p
Tactic:
rcases hp with (hK | hFour)
State after:
case hMaxm.inl
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hK : p ∈ 𝗞
⊢ 𝐓𝐫𝐢𝐯 ⊢! p

case hMaxm.inr
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hFour : p ∈ 𝟰
⊢ 𝐓𝐫𝐢𝐯 ⊢! p

State before:
case hMaxm.inl
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hK : p ∈ 𝗞
⊢ 𝐓𝐫𝐢𝐯 ⊢! p

case hMaxm.inr
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hFour : p ∈ 𝟰
⊢ 𝐓𝐫𝐢𝐯 ⊢! p
Tactic:
. obtain ⟨_, _, e⟩ := hK; subst_vars; exact axiomK!;
State after:
case hMaxm.inr
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hFour : p ∈ 𝟰
⊢ 𝐓𝐫𝐢𝐯 ⊢! p

State before:
case hMaxm.inr
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hFour : p ∈ 𝟰
⊢ 𝐓𝐫𝐢𝐯 ⊢! p
Tactic:
. obtain ⟨_, _, e⟩ := hFour; subst_vars; exact axiomFour!;
State after:
no goals

State before:
case hMaxm.inl
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hK : p ∈ 𝗞
⊢ 𝐓𝐫𝐢𝐯 ⊢! p
Tactic:
obtain ⟨_, _, e⟩ := hK
State after:
case hMaxm.inl.intro.intro
α : Type u_1
inst✝ : DecidableEq α
p w✝¹ w✝ : Formula α
e : Axioms.K w✝¹ w✝ = p
⊢ 𝐓𝐫𝐢𝐯 ⊢! p

State before:
case hMaxm.inl.intro.intro
α : Type u_1
inst✝ : DecidableEq α
p w✝¹ w✝ : Formula α
e : Axioms.K w✝¹ w✝ = p
⊢ 𝐓𝐫𝐢𝐯 ⊢! p
Tactic:
subst_vars
State after:
case hMaxm.inl.intro.intro
α : Type u_1
inst✝ : DecidableEq α
w✝¹ w✝ : Formula α
⊢ 𝐓𝐫𝐢𝐯 ⊢! Axioms.K w✝¹ w✝

State before:
case hMaxm.inl.intro.intro
α : Type u_1
inst✝ : DecidableEq α
w✝¹ w✝ : Formula α
⊢ 𝐓𝐫𝐢𝐯 ⊢! Axioms.K w✝¹ w✝
Tactic:
exact axiomK!
State after:
no goals

State before:
case hMaxm.inr
α : Type u_1
inst✝ : DecidableEq α
p : Formula α
hFour : p ∈ 𝟰
⊢ 𝐓𝐫𝐢𝐯 ⊢! p
Tactic:
obtain ⟨_, _, e⟩ := hFour
State after:
case hMaxm.inr.intro.refl
α : Type u_1
inst✝ : DecidableEq α
w✝ : Formula α
⊢ 𝐓𝐫𝐢𝐯 ⊢! Axioms.Four w✝

State before:
case hMaxm.inr.intro.refl
α : Type u_1
inst✝ : DecidableEq α
w✝ : Formula α
⊢ 𝐓𝐫𝐢𝐯 ⊢! Axioms.Four w✝
Tactic:
exact axiomFour!
State after:
no goals