Skip to content

Commit a0d10e0

Browse files
committed
fix
1 parent d4d0abe commit a0d10e0

2 files changed

Lines changed: 10 additions & 17 deletions

File tree

Mathlib/SetTheory/ZFC/Cardinal.lean

Lines changed: 1 addition & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ Authors: Dexin Zhang
66
module
77

88
public import Mathlib.SetTheory.Cardinal.Basic
9-
public import Mathlib.SetTheory.ZFC.Ordinal
9+
public import Mathlib.SetTheory.ZFC.Basic
1010

1111
/-!
1212
# Cardinalities of ZFC sets
@@ -89,19 +89,4 @@ theorem lift_card_iUnion_le_sum_card {α} [Small.{v, u} α] {f : α → ZFSet.{v
8989
simpa [cardinalMk_coe_sort, ← coe_iUnion, -mem_iUnion] using
9090
mk_iUnion_le_sum_mk_lift (f := SetLike.coe ∘ f)
9191

92-
open Ordinal
93-
94-
@[simp]
95-
theorem _root_.Ordinal.card_toZFSet (o : Ordinal) : o.toZFSet.card = o.card := by
96-
simpa [← coe_toZFSet, cardinalMk_coe_sort, mk_Iio_ordinal, ← lift_card] using
97-
mk_image_eq (s := Set.Iio o) toZFSet_injective
98-
99-
@[simp]
100-
theorem card_natCast {n : ℕ} : card n = n := by
101-
rw [← toZFSet_natCast, card_toZFSet, card_nat]
102-
103-
@[simp]
104-
theorem card_omega : card omega = ℵ₀ := by
105-
rw [← toZFSet_omega0, card_toZFSet, card_omega0]
106-
10792
end ZFSet

Mathlib/SetTheory/ZFC/Ordinal.lean

Lines changed: 9 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -373,7 +373,7 @@ theorem card_toZFSet (o : Ordinal) : (toZFSet o).card = o.card := by
373373
end Ordinal
374374

375375
namespace ZFSet
376-
open Ordinal
376+
open Ordinal Cardinal
377377

378378
theorem isOrdinal_toZFSet (o : Ordinal) : IsOrdinal o.toZFSet := by
379379
refine ⟨fun x hx y hy ↦ ?_, fun {z y x} hz hy hx ↦ ?_⟩
@@ -408,6 +408,10 @@ noncomputable def _root_.Ordinal.toZFSetIso : Ordinal ≃o {x // ZFSet.IsOrdinal
408408
theorem rank_natCast {n : ℕ} : rank n = n := by
409409
rw [← toZFSet_natCast, rank_toZFSet]
410410

411+
@[simp]
412+
theorem card_natCast {n : ℕ} : card n = n := by
413+
rw [← toZFSet_natCast, card_toZFSet, card_nat]
414+
411415
theorem isOrdinal_natCast {n : ℕ} : IsOrdinal n := by
412416
rw [← toZFSet_natCast]
413417
exact isOrdinal_toZFSet n
@@ -416,6 +420,10 @@ theorem isOrdinal_natCast {n : ℕ} : IsOrdinal n := by
416420
theorem rank_omega : rank omega = ω := by
417421
rw [← toZFSet_omega0, rank_toZFSet]
418422

423+
@[simp]
424+
theorem card_omega : card omega = ℵ₀ := by
425+
rw [← toZFSet_omega0, card_toZFSet, card_omega0]
426+
419427
theorem isOrdinal_omega : IsOrdinal omega := by
420428
rw [← toZFSet_omega0]
421429
exact isOrdinal_toZFSet ω

0 commit comments

Comments
 (0)