# mathlibdocumentation

set_theory.cardinal_ordinal

# Cardinals and ordinals #

Relationships between cardinals and ordinals, properties of cardinals that are proved using ordinals.

## Main definitions #

• The function cardinal.aleph' gives the cardinals listed by their ordinal index, and is the inverse of cardinal.aleph_idx. aleph' n = n, aleph' ω = cardinal.omega = ℵ₀, aleph' (ω + 1) = ℵ₁, etc. It is an order isomorphism between ordinals and cardinals.
• The function cardinal.aleph gives the infinite cardinals listed by their ordinal index. aleph 0 = cardinal.omega = ℵ₀, aleph 1 = ℵ₁ is the first uncountable cardinal, and so on.

## Main Statements #

• cardinal.mul_eq_max and cardinal.add_eq_max state that the product (resp. sum) of two infinite cardinals is just their maximum. Several variations around this fact are also given.
• cardinal.mk_list_eq_mk : when α is infinite, α and list α have the same cardinality.
• simp lemmas for inequalities between bit0 a and bit1 b are registered, making simp able to prove inequalities about numeral cardinals.

## Tags #

cardinal arithmetic (for infinite cardinals)

theorem cardinal.ord_is_limit {c : cardinal} (co : ω c) :
noncomputable def cardinal.aleph_idx.initial_seg  :

The aleph' index function, which gives the ordinal index of a cardinal. (The aleph' part is because unlike aleph this counts also the finite stages. So aleph_idx n = n, aleph_idx ω = ω, aleph_idx ℵ₁ = ω + 1 and so on.) In this definition, we register additionally that this function is an initial segment, i.e., it is order preserving and its range is an initial segment of the ordinals. For the basic function version, see aleph_idx. For an upgraded version stating that the range is everything, see aleph_idx.rel_iso.

Equations
noncomputable def cardinal.aleph_idx  :

The aleph' index function, which gives the ordinal index of a cardinal. (The aleph' part is because unlike aleph this counts also the finite stages. So aleph_idx n = n, aleph_idx ω = ω, aleph_idx ℵ₁ = ω + 1 and so on.) For an upgraded version stating that the range is everything, see aleph_idx.rel_iso.

Equations
@[simp]
theorem cardinal.aleph_idx_lt {a b : cardinal} :
a < b
@[simp]
theorem cardinal.aleph_idx_le {a b : cardinal} :
a b
theorem cardinal.aleph_idx.init {a : cardinal} {b : ordinal} :
b < a.aleph_idx(∃ (c : cardinal), c.aleph_idx = b)
noncomputable def cardinal.aleph_idx.rel_iso  :

The aleph' index function, which gives the ordinal index of a cardinal. (The aleph' part is because unlike aleph this counts also the finite stages. So aleph_idx n = n, aleph_idx ω = ω, aleph_idx ℵ₁ = ω + 1 and so on.) In this version, we register additionally that this function is an order isomorphism between cardinals and ordinals. For the basic function version, see aleph_idx.

Equations
@[simp]
@[simp]
@[simp]
theorem cardinal.mk_cardinal  :
noncomputable def cardinal.aleph'.rel_iso  :

The aleph' function gives the cardinals listed by their ordinal index, and is the inverse of aleph_idx. aleph' n = n, aleph' ω = ω, aleph' (ω + 1) = ℵ₁, etc. In this version, we register additionally that this function is an order isomorphism between ordinals and cardinals. For the basic function version, see aleph'.

Equations
noncomputable def cardinal.aleph'  :

The aleph' function gives the cardinals listed by their ordinal index, and is the inverse of aleph_idx. aleph' n = n, aleph' ω = ω, aleph' (ω + 1) = ℵ₁, etc.

Equations
@[simp]
@[simp]
theorem cardinal.aleph'_lt {o₁ o₂ : ordinal} :
o₁ < o₂
@[simp]
theorem cardinal.aleph'_le {o₁ o₂ : ordinal} :
o₁ o₂
@[simp]
@[simp]
@[simp]
theorem cardinal.aleph'_zero  :
@[simp]
theorem cardinal.aleph'_succ {o : ordinal} :
@[simp]
theorem cardinal.aleph'_nat (n : ) :
theorem cardinal.aleph'_le_of_limit {o : ordinal} (l : o.is_limit) {c : cardinal} :
∀ (o' : ordinal), o' < o c
@[simp]
theorem cardinal.aleph'_omega  :
@[simp]
noncomputable def cardinal.aleph'_equiv  :

aleph' and aleph_idx form an equivalence between ordinal and cardinal

Equations
noncomputable def cardinal.aleph (o : ordinal) :

The aleph function gives the infinite cardinals listed by their ordinal index. aleph 0 = ω, aleph 1 = succ ω is the first uncountable cardinal, and so on.

Equations
@[simp]
theorem cardinal.aleph_lt {o₁ o₂ : ordinal} :
o₁ < o₂
@[simp]
theorem cardinal.aleph_le {o₁ o₂ : ordinal} :
o₁ o₂
@[simp]
theorem cardinal.aleph_succ {o : ordinal} :
@[simp]
theorem cardinal.aleph_zero  :
theorem cardinal.exists_aleph {c : cardinal} :
ω c ∃ (o : ordinal),
theorem cardinal.countable_iff_lt_aleph_one {α : Type u_1} (s : set α) :

### Properties of mul#

theorem cardinal.mul_eq_self {c : cardinal} (h : ω c) :
c * c = c

If α is an infinite type, then α × α and α have the same cardinality.

theorem cardinal.mul_eq_max {a b : cardinal} (ha : ω a) (hb : ω b) :
a * b = max a b

If α and β are infinite types, then the cardinality of α × β is the maximum of the cardinalities of α and β.

@[simp]
theorem cardinal.omega_mul_eq {a : cardinal} (ha : ω a) :
ω * a = a
@[simp]
theorem cardinal.mul_omega_eq {a : cardinal} (ha : ω a) :
a * ω = a
theorem cardinal.mul_lt_of_lt {a b c : cardinal} (hc : ω c) (h1 : a < c) (h2 : b < c) :
a * b < c
theorem cardinal.mul_le_max_of_omega_le_left {a b : cardinal} (h : ω a) :
a * b max a b
theorem cardinal.mul_eq_max_of_omega_le_left {a b : cardinal} (h : ω a) (h' : b 0) :
a * b = max a b
theorem cardinal.mul_le_max (a b : cardinal) :
a * b max (max a b) ω
theorem cardinal.mul_eq_left {a b : cardinal} (ha : ω a) (hb : b a) (hb' : b 0) :
a * b = a
theorem cardinal.mul_eq_right {a b : cardinal} (hb : ω b) (ha : a b) (ha' : a 0) :
a * b = b
theorem cardinal.le_mul_left {a b : cardinal} (h : b 0) :
a b * a
theorem cardinal.le_mul_right {a b : cardinal} (h : b 0) :
a a * b
theorem cardinal.mul_eq_left_iff {a b : cardinal} :
a * b = a b a b 0 b = 1 a = 0

### Properties of add#

theorem cardinal.add_eq_self {c : cardinal} (h : ω c) :
c + c = c

If α is an infinite type, then α ⊕ α and α have the same cardinality.

theorem cardinal.add_eq_max {a b : cardinal} (ha : ω a) :
a + b = max a b

If α is an infinite type, then the cardinality of α ⊕ β is the maximum of the cardinalities of α and β.

theorem cardinal.add_le_max (a b : cardinal) :
a + b max (max a b) ω
theorem cardinal.add_lt_of_lt {a b c : cardinal} (hc : ω c) (h1 : a < c) (h2 : b < c) :
a + b < c
theorem cardinal.eq_of_add_eq_of_omega_le {a b c : cardinal} (h : a + b = c) (ha : a < c) (hc : ω c) :
b = c
theorem cardinal.add_eq_left {a b : cardinal} (ha : ω a) (hb : b a) :
a + b = a
theorem cardinal.add_eq_right {a b : cardinal} (hb : ω b) (ha : a b) :
a + b = b
theorem cardinal.add_eq_left_iff {a b : cardinal} :
a + b = a b a b = 0
theorem cardinal.add_eq_right_iff {a b : cardinal} :
a + b = b a b a = 0
theorem cardinal.add_one_eq {a : cardinal} (ha : ω a) :
a + 1 = a
@[protected]
theorem cardinal.eq_of_add_eq_add_left {a b c : cardinal} (h : a + b = a + c) (ha : a < ω) :
b = c
@[protected]
theorem cardinal.eq_of_add_eq_add_right {a b c : cardinal} (h : a + b = c + b) (hb : b < ω) :
a = c

theorem cardinal.pow_le {κ μ : cardinal} (H1 : ω κ) (H2 : μ < ω) :
κ ^ μ κ
theorem cardinal.power_self_eq {c : cardinal} (h : ω c) :
c ^ c = 2 ^ c
theorem cardinal.prod_eq_two_power {ι : Type u} [infinite ι] {c : ι → cardinal} (h₁ : ∀ (i : ι), 2 c i) (h₂ : ∀ (i : ι), (c i).lift (# ι).lift) :
= 2 ^ (# ι).lift
theorem cardinal.power_eq_two_power {c₁ c₂ : cardinal} (h₁ : ω c₁) (h₂ : 2 c₂) (h₂' : c₂ c₁) :
c₂ ^ c₁ = 2 ^ c₁
theorem cardinal.nat_power_eq {c : cardinal} (h : ω c) {n : } (hn : 2 n) :
n ^ c = 2 ^ c
theorem cardinal.power_nat_le {c : cardinal} {n : } (h : ω c) :
c ^ n c
theorem cardinal.power_nat_le_max {c : cardinal} {n : } :
c ^ n max c ω
@[simp]
theorem cardinal.powerlt_omega {c : cardinal} (h : ω c) :
c ^< ω = c

### Computing cardinality of various types #

theorem cardinal.mk_list_eq_mk (α : Type u) [infinite α] :
# (list α) = # α
theorem cardinal.mk_finset_eq_mk (α : Type u) [infinite α] :
# (finset α) = # α
theorem cardinal.mk_bounded_set_le_of_infinite (α : Type u) [infinite α] (c : cardinal) :
# {t // # t c} # α ^ c
theorem cardinal.mk_bounded_set_le (α : Type u) (c : cardinal) :
# {t // # t c} max (# α) ω ^ c
theorem cardinal.mk_bounded_subset_le {α : Type u} (s : set α) (c : cardinal) :
# {t // t s # t c} max (# s) ω ^ c

### Properties of compl#

theorem cardinal.mk_compl_of_infinite {α : Type u_1} [infinite α] (s : set α) (h2 : # s < # α) :
# s = # α
theorem cardinal.mk_compl_finset_of_infinite {α : Type u_1} [infinite α] (s : finset α) :
# (s) = # α
theorem cardinal.mk_compl_eq_mk_compl_infinite {α : Type u_1} [infinite α] {s t : set α} (hs : # s < # α) (ht : # t < # α) :
theorem cardinal.mk_compl_eq_mk_compl_finite_lift {α : Type u} {β : Type v} [fintype α] {s : set α} {t : set β} (h1 : (# α).lift = (# β).lift) (h2 : (# s).lift = (# t).lift) :
theorem cardinal.mk_compl_eq_mk_compl_finite {α β : Type u} [fintype α] {s : set α} {t : set β} (h1 : # α = # β) (h : # s = # t) :
theorem cardinal.mk_compl_eq_mk_compl_finite_same {α : Type u_1} [fintype α] {s t : set α} (h : # s = # t) :

### Extending an injection to an equiv #

theorem cardinal.extend_function {α : Type u_1} {β : Type u_2} {s : set α} (f : s β) (h : nonempty (s (set.range f))) :
∃ (g : α β), ∀ (x : s), g x = f x
theorem cardinal.extend_function_finite {α : Type u_1} {β : Type u_2} [fintype α] {s : set α} (f : s β) (h : nonempty β)) :
∃ (g : α β), ∀ (x : s), g x = f x
theorem cardinal.extend_function_of_lt {α : Type u_1} {β : Type u_2} {s : set α} (f : s β) (hs : # s < # α) (h : nonempty β)) :
∃ (g : α β), ∀ (x : s), g x = f x

This section proves inequalities for bit0 and bit1, enabling simp to solve inequalities for numeral cardinals. The complexity of the resulting algorithm is not good, as in some cases simp reduces an inequality to a disjunction of two situations, depending on whether a cardinal is finite or infinite. Since the evaluation of the branches is not lazy, this is bad. It is good enough for practical situations, though.

For specific numbers, these inequalities could also be deduced from the corresponding inequalities of natural numbers using norm_cast:

example : (37 : cardinal) < 42 :=
by { norm_cast, norm_num }

theorem cardinal.bit0_ne_zero (a : cardinal) :
¬bit0 a = 0 ¬a = 0
@[simp]
theorem cardinal.bit1_ne_zero (a : cardinal) :
¬bit1 a = 0
@[simp]
theorem cardinal.zero_lt_bit0 (a : cardinal) :
0 < bit0 a 0 < a
@[simp]
theorem cardinal.zero_lt_bit1 (a : cardinal) :
0 < bit1 a
@[simp]
theorem cardinal.one_le_bit0 (a : cardinal) :
1 bit0 a 0 < a
@[simp]
theorem cardinal.one_le_bit1 (a : cardinal) :
1 bit1 a
theorem cardinal.bit0_eq_self {c : cardinal} (h : ω c) :
bit0 c = c
@[simp]
theorem cardinal.bit0_lt_omega {c : cardinal} :
bit0 c < ω c < ω
@[simp]
@[simp]
theorem cardinal.bit1_eq_self_iff {c : cardinal} :
bit1 c = c ω c
@[simp]
theorem cardinal.bit1_lt_omega {c : cardinal} :
bit1 c < ω c < ω
@[simp]
@[simp]
theorem cardinal.bit0_le_bit0 {a b : cardinal} :
bit0 a bit0 b a b
@[simp]
theorem cardinal.bit0_le_bit1 {a b : cardinal} :
bit0 a bit1 b a b
@[simp]
theorem cardinal.bit1_le_bit1 {a b : cardinal} :
bit1 a bit1 b a b
@[simp]
theorem cardinal.bit1_le_bit0 {a b : cardinal} :
bit1 a bit0 b a < b a b ω a
@[simp]
theorem cardinal.bit0_lt_bit0 {a b : cardinal} :
bit0 a < bit0 b a < b
@[simp]
theorem cardinal.bit1_lt_bit0 {a b : cardinal} :
bit1 a < bit0 b a < b
@[simp]
theorem cardinal.bit1_lt_bit1 {a b : cardinal} :
bit1 a < bit1 b a < b
@[simp]
theorem cardinal.bit0_lt_bit1 {a b : cardinal} :
bit0 a < bit1 b a < b a b a < ω
theorem cardinal.one_lt_two  :
1 < 2
@[simp]
theorem cardinal.one_lt_bit0 {a : cardinal} :
1 < bit0 a 0 < a
@[simp]
theorem cardinal.one_lt_bit1 (a : cardinal) :
1 < bit1 a 0 < a
@[simp]
theorem cardinal.one_le_one  :
1 1
theorem not_injective_of_ordinal {α : Type u} (f : ordinal → α) :
theorem not_injective_of_ordinal_of_small {α : Type v} [small α] (f : ordinal → α) :