Metamath Proof Explorer


Theorem hatomistici

Description: CH is atomistic, i.e. any element is the supremum of its atoms. Remark in Kalmbach p. 140. (Contributed by NM, 14-Aug-2002) (New usage is discouraged.)

Ref Expression
Hypothesis hatomistic.1 ⊢ A ∈ C ℋ
Assertion hatomistici ⊢ A = ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A

Proof

Step Hyp Ref Expression
1 hatomistic.1 ⊢ A ∈ C ℋ
2 ssrab2 ⊢ x ∈ HAtoms | x ⊆ A ⊆ HAtoms
3 atssch ⊢ HAtoms ⊆ C ℋ
4 2 3 sstri ⊢ x ∈ HAtoms | x ⊆ A ⊆ C ℋ
5 chsupcl ⊢ x ∈ HAtoms | x ⊆ A ⊆ C ℋ → ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∈ C ℋ
6 4 5 ax-mp ⊢ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∈ C ℋ
7 1 chshii ⊢ A ∈ S ℋ
8 atelch ⊢ y ∈ HAtoms → y ∈ C ℋ
9 8 anim1i ⊢ y ∈ HAtoms ∧ y ⊆ A → y ∈ C ℋ ∧ y ⊆ A
10 sseq1 ⊢ x = y → x ⊆ A ↔ y ⊆ A
11 10 elrab ⊢ y ∈ x ∈ HAtoms | x ⊆ A ↔ y ∈ HAtoms ∧ y ⊆ A
12 10 elrab ⊢ y ∈ x ∈ C ℋ | x ⊆ A ↔ y ∈ C ℋ ∧ y ⊆ A
13 9 11 12 3imtr4i ⊢ y ∈ x ∈ HAtoms | x ⊆ A → y ∈ x ∈ C ℋ | x ⊆ A
14 13 ssriv ⊢ x ∈ HAtoms | x ⊆ A ⊆ x ∈ C ℋ | x ⊆ A
15 ssrab2 ⊢ x ∈ C ℋ | x ⊆ A ⊆ C ℋ
16 chsupss ⊢ x ∈ HAtoms | x ⊆ A ⊆ C ℋ ∧ x ∈ C ℋ | x ⊆ A ⊆ C ℋ → x ∈ HAtoms | x ⊆ A ⊆ x ∈ C ℋ | x ⊆ A → ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ⊆ ⋁ ℋ ⁡ x ∈ C ℋ | x ⊆ A
17 4 15 16 mp2an ⊢ x ∈ HAtoms | x ⊆ A ⊆ x ∈ C ℋ | x ⊆ A → ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ⊆ ⋁ ℋ ⁡ x ∈ C ℋ | x ⊆ A
18 14 17 ax-mp ⊢ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ⊆ ⋁ ℋ ⁡ x ∈ C ℋ | x ⊆ A
19 chsupid ⊢ A ∈ C ℋ → ⋁ ℋ ⁡ x ∈ C ℋ | x ⊆ A = A
20 1 19 ax-mp ⊢ ⋁ ℋ ⁡ x ∈ C ℋ | x ⊆ A = A
21 18 20 sseqtri ⊢ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ⊆ A
22 elssuni ⊢ y ∈ x ∈ HAtoms | x ⊆ A → y ⊆ ⋃ x ∈ HAtoms | x ⊆ A
23 11 22 sylbir ⊢ y ∈ HAtoms ∧ y ⊆ A → y ⊆ ⋃ x ∈ HAtoms | x ⊆ A
24 chsupunss ⊢ x ∈ HAtoms | x ⊆ A ⊆ C ℋ → ⋃ x ∈ HAtoms | x ⊆ A ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
25 4 24 ax-mp ⊢ ⋃ x ∈ HAtoms | x ⊆ A ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
26 23 25 sstrdi ⊢ y ∈ HAtoms ∧ y ⊆ A → y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
27 26 ex ⊢ y ∈ HAtoms → y ⊆ A → y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
28 atne0 ⊢ y ∈ HAtoms → y ≠ 0 ℋ
29 28 adantr ⊢ y ∈ HAtoms ∧ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → y ≠ 0 ℋ
30 ssin ⊢ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∧ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ↔ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
31 6 chocini ⊢ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A = 0 ℋ
32 31 sseq2i ⊢ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ↔ y ⊆ 0 ℋ
33 30 32 bitr2i ⊢ y ⊆ 0 ℋ ↔ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∧ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
34 chle0 ⊢ y ∈ C ℋ → y ⊆ 0 ℋ ↔ y = 0 ℋ
35 8 34 syl ⊢ y ∈ HAtoms → y ⊆ 0 ℋ ↔ y = 0 ℋ
36 33 35 bitr3id ⊢ y ∈ HAtoms → y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∧ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ↔ y = 0 ℋ
37 36 biimpa ⊢ y ∈ HAtoms ∧ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∧ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → y = 0 ℋ
38 37 expr ⊢ y ∈ HAtoms ∧ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → y = 0 ℋ
39 38 necon3ad ⊢ y ∈ HAtoms ∧ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → y ≠ 0 ℋ → ¬ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
40 29 39 mpd ⊢ y ∈ HAtoms ∧ y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → ¬ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
41 40 ex ⊢ y ∈ HAtoms → y ⊆ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → ¬ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
42 27 41 syld ⊢ y ∈ HAtoms → y ⊆ A → ¬ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
43 imnan ⊢ y ⊆ A → ¬ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ↔ ¬ y ⊆ A ∧ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
44 42 43 sylib ⊢ y ∈ HAtoms → ¬ y ⊆ A ∧ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
45 ssin ⊢ y ⊆ A ∧ y ⊆ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ↔ y ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
46 44 45 sylnib ⊢ y ∈ HAtoms → ¬ y ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
47 46 nrex ⊢ ¬ ∃ y ∈ HAtoms y ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
48 6 choccli ⊢ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∈ C ℋ
49 1 48 chincli ⊢ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ∈ C ℋ
50 49 hatomici ⊢ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A ≠ 0 ℋ → ∃ y ∈ HAtoms y ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A
51 50 necon1bi ⊢ ¬ ∃ y ∈ HAtoms y ⊆ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A → A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A = 0 ℋ
52 47 51 ax-mp ⊢ A ∩ ⊥ ⁡ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A = 0 ℋ
53 6 7 21 52 omlsii ⊢ ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A = A
54 53 eqcomi ⊢ A = ⋁ ℋ ⁡ x ∈ HAtoms | x ⊆ A