Theorem: Cardinal.prime_of_aleph0_le
File: Mathlib/SetTheory/Cardinal/Divisibility.lean

tactic: refine ⟨(aleph0_pos.trans_le ha).ne', ?_, fun b c hbc => ?_⟩
state_before: a b : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
⊢ Prime a
state_after: case refine_1
a b : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
⊢ ¬IsUnit a

case refine_2
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
⊢ a ∣ b ∨ a ∣ c

tactic: rcases eq_or_ne (b * c) 0 with hz | hz
state_before: case refine_2
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
⊢ a ∣ b ∨ a ∣ c
state_after: case refine_2.inl
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c = 0
⊢ a ∣ b ∨ a ∣ c

case refine_2.inr
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
⊢ a ∣ b ∨ a ∣ c

tactic: wlog h : c ≤ b
state_before: case refine_2.inr
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
⊢ a ∣ b ∨ a ∣ c
state_after: case refine_2.inr.inr
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
⊢ a ∣ b ∨ a ∣ c

a✝ a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
h : c ≤ b
⊢ a ∣ b ∨ a ∣ c

tactic: left
state_before: a✝ a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
h : c ≤ b
⊢ a ∣ b ∨ a ∣ c
state_after: case h
a✝ a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
h : c ≤ b
⊢ a ∣ b

tactic: have habc := le_of_dvd hz hbc
state_before: case h
a✝ a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
h : c ≤ b
⊢ a ∣ b
state_after: case h
a✝ a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
h : c ≤ b
habc : a ≤ b * c
⊢ a ∣ b

tactic: rwa [mul_eq_max' <| ha.trans <| habc, max_def', if_pos h] at hbc
state_before: case h
a✝ a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
h : c ≤ b
habc : a ≤ b * c
⊢ a ∣ b
state_after: no goals

tactic: rw [isUnit_iff]
state_before: case refine_1
a b : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
⊢ ¬IsUnit a
state_after: case refine_1
a b : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
⊢ ¬a = 1

tactic: exact (one_lt_aleph0.trans_le ha).ne'
state_before: case refine_1
a b : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
⊢ ¬a = 1
state_after: no goals

tactic: rcases mul_eq_zero.mp hz with (rfl | rfl) <;> simp
state_before: case refine_2.inl
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c = 0
⊢ a ∣ b ∨ a ∣ c
state_after: no goals

tactic: cases le_total c b <;> [solve_by_elim; rw [or_comm]]
state_before: case refine_2.inr.inr
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
⊢ a ∣ b ∨ a ∣ c
state_after: case refine_2.inr.inr.inr
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ a ∣ c ∨ a ∣ b

tactic: apply_assumption
state_before: case refine_2.inr.inr.inr
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ a ∣ c ∨ a ∣ b
state_after: case refine_2.inr.inr.inr.b
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ Cardinal.{u}

case refine_2.inr.inr.inr.n
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ ℕ

case refine_2.inr.inr.inr.m
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ ℕ

case refine_2.inr.inr.inr.ha
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ ℵ₀ ≤ a

case refine_2.inr.inr.inr.hbc
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ a ∣ c * b

case refine_2.inr.inr.inr.hz
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ c * b ≠ 0

case refine_2.inr.inr.inr.h
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ b ≤ c

tactic: assumption'
state_before: case refine_2.inr.inr.inr.b
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ Cardinal.{u}

case refine_2.inr.inr.inr.n
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ ℕ

case refine_2.inr.inr.inr.m
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ ℕ

case refine_2.inr.inr.inr.ha
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ ℵ₀ ≤ a

case refine_2.inr.inr.inr.hbc
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ a ∣ c * b

case refine_2.inr.inr.inr.hz
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ c * b ≠ 0

case refine_2.inr.inr.inr.h
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ b ≤ c
state_after: case refine_2.inr.inr.inr.hbc
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ a ∣ c * b

case refine_2.inr.inr.inr.hz
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ c * b ≠ 0

tactic: all_goals rwa [mul_comm]
state_before: case refine_2.inr.inr.inr.hbc
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ a ∣ c * b

case refine_2.inr.inr.inr.hz
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ c * b ≠ 0
state_after: no goals

tactic: rwa [mul_comm]
state_before: case refine_2.inr.inr.inr.hz
a b✝ : Cardinal.{u}
n m : ℕ
ha : ℵ₀ ≤ a
b c : Cardinal.{u}
hbc : a ∣ b * c
hz : b * c ≠ 0
this :
  ∀ {a : Cardinal.{u}} {b : Cardinal.{u}} {n m : ℕ},
    ℵ₀ ≤ a → ∀ (b c : Cardinal.{u}), a ∣ b * c → b * c ≠ 0 → c ≤ b → a ∣ b ∨ a ∣ c
h : ¬c ≤ b
h✝ : b ≤ c
⊢ c * b ≠ 0
state_after: no goals