Theorem: Ordinal.principal_add_iff_zero_or_omega_opow
File: Mathlib/SetTheory/Ordinal/Principal.lean

tactic: rcases eq_or_ne o 0 with (rfl | ho)
state_before: o : Ordinal
⊢ Principal (fun x x_1 => x + x_1) o ↔ o = 0 ∨ ∃ a, o = ω ^ a

tactic: simp only [principal_zero, Or.inl]
state_before: case inl

⊢ Principal (fun x x_1 => x + x_1) 0 ↔ 0 = 0 ∨ ∃ a, 0 = ω ^ a

tactic: rw [principal_add_iff_add_left_eq_self]
state_before: case inr
o : Ordinal
ho : o ≠ 0
⊢ Principal (fun x x_1 => x + x_1) o ↔ o = 0 ∨ ∃ a, o = ω ^ a

tactic: simp only [ho, false_or_iff]
state_before: case inr
o : Ordinal
ho : o ≠ 0
⊢ (∀ (a : Ordinal), a < o → a + o = o) ↔ o = 0 ∨ ∃ a, o = ω ^ a

tactic: refine'
  ⟨fun H => ⟨_, ((lt_or_eq_of_le (opow_log_le_self _ ho)).resolve_left fun h => _).symm⟩,
    fun ⟨b, e⟩ => e.symm ▸ fun a => add_omega_opow⟩
state_before: case inr
o : Ordinal
ho : o ≠ 0
⊢ (∀ (a : Ordinal), a < o → a + o = o) ↔ ∃ a, o = ω ^ a

tactic: have := H _ h
state_before: case inr
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
⊢ False

tactic: have := lt_opow_succ_log_self one_lt_omega o
state_before: case inr
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
⊢ False

tactic: rw [opow_succ, lt_mul_of_limit omega_isLimit] at this
state_before: case inr
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this✝ : ω ^ log ω o + o = o
this : o < ω ^ succ (log ω o)
⊢ False

tactic: rcases this with ⟨a, ao, h'⟩
state_before: case inr
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this✝ : ω ^ log ω o + o = o
this : ∃ c', c' < ω ∧ o < ω ^ log ω o * c'
⊢ False

tactic: rcases lt_omega.1 ao with ⟨n, rfl⟩
state_before: case inr.intro.intro
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
a : Ordinal
ao : a < ω
h' : o < ω ^ log ω o * a
⊢ False

tactic: clear ao
state_before: case inr.intro.intro.intro
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
n : ℕ
ao : ↑n < ω
h' : o < ω ^ log ω o * ↑n
⊢ False

tactic: revert h'
state_before: case inr.intro.intro.intro
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
n : ℕ
h' : o < ω ^ log ω o * ↑n
⊢ False

tactic: apply not_lt_of_le
state_before: case inr.intro.intro.intro
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
n : ℕ
⊢ o < ω ^ log ω o * ↑n → False

tactic: suffices e : (omega^log omega o) * ↑n + o = o
state_before: case inr.intro.intro.intro.h
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
n : ℕ
⊢ ω ^ log ω o * ↑n ≤ o

tactic: induction' n with n IH
state_before: case e
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
n : ℕ
⊢ ω ^ log ω o * ↑n + o = o

tactic: simp only [Nat.cast_succ, mul_add_one, add_assoc, this, IH]
state_before: case e.succ
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
n : ℕ
IH : ω ^ log ω o * ↑n + o = o
⊢ ω ^ log ω o * ↑(Nat.succ n) + o = o

tactic: simpa only [e] using le_add_right ((omega^log omega o) * ↑n) o
state_before: case inr.intro.intro.intro.h
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
n : ℕ
e : ω ^ log ω o * ↑n + o = o
⊢ ω ^ log ω o * ↑n ≤ o

tactic: simp [Nat.cast_zero, mul_zero, zero_add]
state_before: case e.zero
o : Ordinal
ho : o ≠ 0
H : ∀ (a : Ordinal), a < o → a + o = o
h : ω ^ log ω o < o
this : ω ^ log ω o + o = o
⊢ ω ^ log ω o * ↑Nat.zero + o = o