Theorem: WellFounded.lt_succ_iff
File: Mathlib/Order/WellFounded.lean

tactic: constructor
state_before: α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
⊢ r y (WellFounded.succ (_ : WellFounded r) x) ↔ r y x ∨ y = x

tactic: rintro (hy | rfl)
state_before: case mpr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
⊢ r y x ∨ y = x → r y (WellFounded.succ (_ : WellFounded r) x)

tactic: exact _root_.trans hy (wo.wf.lt_succ h)
state_before: case mpr.inl
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
hy : r y x
⊢ r y (WellFounded.succ (_ : WellFounded r) x)

case mpr.inr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
y : α
h : ∃ y_1, r y y_1
⊢ r y (WellFounded.succ (_ : WellFounded r) y)

tactic: exact wo.wf.lt_succ h
state_before: case mpr.inr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
y : α
h : ∃ y_1, r y y_1
⊢ r y (WellFounded.succ (_ : WellFounded r) y)

tactic: intro h'
state_before: case mp
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
⊢ r y (WellFounded.succ (_ : WellFounded r) x) → r y x ∨ y = x

tactic: have : ¬r x y := by
  intro hy
  rw [WellFounded.succ, dif_pos] at h'
  exact wo.wf.not_lt_min _ h hy h'
state_before: case mp
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
⊢ r y x ∨ y = x

tactic: rcases trichotomous_of r x y with (hy | hy | hy)
state_before: case mp
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
⊢ r y x ∨ y = x

tactic: exfalso
state_before: case mp.inl
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r x y
⊢ r y x ∨ y = x

case mp.inr.inl
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : x = y
⊢ r y x ∨ y = x

case mp.inr.inr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r y x
⊢ r y x ∨ y = x

tactic: exact this hy
state_before: case mp.inl.h
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r x y
⊢ False

case mp.inr.inl
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : x = y
⊢ r y x ∨ y = x

case mp.inr.inr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r y x
⊢ r y x ∨ y = x

tactic: right
state_before: case mp.inr.inl
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : x = y
⊢ r y x ∨ y = x

case mp.inr.inr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r y x
⊢ r y x ∨ y = x

tactic: exact hy.symm
state_before: case mp.inr.inl.h
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : x = y
⊢ y = x

case mp.inr.inr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r y x
⊢ r y x ∨ y = x

tactic: left
state_before: case mp.inr.inr
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r y x
⊢ r y x ∨ y = x

tactic: exact hy
state_before: case mp.inr.inr.h
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
this : ¬r x y
hy : r y x
⊢ r y x

tactic: intro hy
state_before: α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
⊢ ¬r x y

tactic: rw [WellFounded.succ, dif_pos] at h'
state_before: α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (WellFounded.succ (_ : WellFounded r) x)
hy : r x y
⊢ False

tactic: exact wo.wf.not_lt_min _ h hy h'
state_before: α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h'✝ : r y (if h : ∃ y, r x y then min (_ : WellFounded r) {y | r x y} h else x)
h' : r y (min (_ : WellFounded r) {y | r x y} ?hc)
hy : r x y
⊢ False

case hc
α : Type u_1
r : α → α → Prop
wo : IsWellOrder α r
x : α
h : ∃ y, r x y
y : α
h' : r y (if h : ∃ y, r x y then min (_ : WellFounded r) {y | r x y} h else x)
hy : r x y
⊢ ∃ y, r x y