Proof of Theorem atom1d
| Step | Hyp | Ref
| Expression |
| 1 | | elat2 5739 |
. . . 4
⊢ (A
∈ Atoms ↔ (A ∈
Cℋ ∧ (¬ A =
0ℋ ∧ ∀y ∈
Cℋ (y ⊆
A → (y = A ∨
y = 0ℋ))))) |
| 2 | | chne0t 5452 |
. . . . . 6
⊢ (A
∈ Cℋ → (¬ A = 0ℋ ↔ ∃x ∈ A ¬
x = 0v)) |
| 3 | | ax-17 925 |
. . . . . . 7
⊢ (A
∈ Cℋ → ∀x A ∈
Cℋ ) |
| 4 | | ax-17 925 |
. . . . . . . 8
⊢ (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ∀x∀y
∈ Cℋ (y
⊆ A → (y = A ∨
y = 0ℋ))) |
| 5 | | hbre1 1239 |
. . . . . . . 8
⊢ (∃x ∈ ℋ (¬ x = 0v ∧ A = (⊥ ‘(⊥ ‘{x}))) → ∀x∃x ∈
ℋ (¬ x = 0v
∧ A = (⊥ ‘(⊥
‘{x})))) |
| 6 | 4, 5 | hbim 702 |
. . . . . . 7
⊢ ((∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ∃x
∈ ℋ (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x})))) →
∀x(∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ∃x
∈ ℋ (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x}))))) |
| 7 | | ra4e 1244 |
. . . . . . . . 9
⊢ ((x
∈ ℋ ∧ (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x})))) →
∃x ∈ ℋ (¬ x = 0v ∧ A = (⊥ ‘(⊥ ‘{x})))) |
| 8 | | chelt 5135 |
. . . . . . . . . . 11
⊢ ((A
∈ Cℋ ∧ x
∈ A) → x ∈ ℋ ) |
| 9 | 8 | adantrr 312 |
. . . . . . . . . 10
⊢ ((A
∈ Cℋ ∧ (x
∈ A ∧ ¬ x = 0v)) → x ∈ ℋ ) |
| 10 | 9 | adantrr 312 |
. . . . . . . . 9
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → x ∈
ℋ ) |
| 11 | | pm3.27 260 |
. . . . . . . . . . 11
⊢ ((x
∈ A ∧ ¬ x = 0v) → ¬ x = 0v) |
| 12 | 11 | ad2antrl 322 |
. . . . . . . . . 10
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → ¬ x =
0v) |
| 13 | | h1dn0 5457 |
. . . . . . . . . . . . . . 15
⊢ ((x
∈ ℋ ∧ ¬ x =
0v) → ¬ (⊥ ‘(⊥ ‘{x})) = 0ℋ) |
| 14 | 13, 8 | sylan 343 |
. . . . . . . . . . . . . 14
⊢ (((A
∈ Cℋ ∧ x
∈ A) ∧ ¬ x = 0v) → ¬ (⊥
‘(⊥ ‘{x})) =
0ℋ) |
| 15 | 14 | anasss 337 |
. . . . . . . . . . . . 13
⊢ ((A
∈ Cℋ ∧ (x
∈ A ∧ ¬ x = 0v)) → ¬ (⊥
‘(⊥ ‘{x})) =
0ℋ) |
| 16 | 15 | adantrr 312 |
. . . . . . . . . . . 12
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → ¬ (⊥ ‘(⊥ ‘{x})) = 0ℋ) |
| 17 | | sseq1 1521 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (y =
(⊥ ‘(⊥ ‘{x}))
→ (y ⊆ A ↔ (⊥ ‘(⊥ ‘{x})) ⊆ A)) |
| 18 | | cleq1 1107 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (y =
(⊥ ‘(⊥ ‘{x}))
→ (y = A ↔ (⊥ ‘(⊥ ‘{x})) = A)) |
| 19 | | cleq1 1107 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (y =
(⊥ ‘(⊥ ‘{x}))
→ (y = 0ℋ ↔
(⊥ ‘(⊥ ‘{x})) =
0ℋ)) |
| 20 | 18, 19 | orbi12d 475 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (y =
(⊥ ‘(⊥ ‘{x}))
→ ((y = A ∨ y =
0ℋ) ↔ ((⊥ ‘(⊥ ‘{x})) = A ∨
(⊥ ‘(⊥ ‘{x})) =
0ℋ))) |
| 21 | 17, 20 | imbi12d 474 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (y =
(⊥ ‘(⊥ ‘{x}))
→ ((y ⊆ A → (y =
A ∨ y = 0ℋ)) ↔ ((⊥
‘(⊥ ‘{x})) ⊆
A → ((⊥ ‘(⊥
‘{x})) = A ∨ (⊥ ‘(⊥ ‘{x})) = 0ℋ)))) |
| 22 | 21 | rcla4v 1402 |
. . . . . . . . . . . . . . . . . . 19
⊢ (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ((⊥ ‘(⊥ ‘{x})) ∈ Cℋ →
((⊥ ‘(⊥ ‘{x}))
⊆ A → ((⊥ ‘(⊥
‘{x})) = A ∨ (⊥ ‘(⊥ ‘{x})) = 0ℋ)))) |
| 23 | 22 | imp3a 279 |
. . . . . . . . . . . . . . . . . 18
⊢ (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → (((⊥ ‘(⊥ ‘{x})) ∈ Cℋ ∧
(⊥ ‘(⊥ ‘{x}))
⊆ A) → ((⊥ ‘(⊥
‘{x})) = A ∨ (⊥ ‘(⊥ ‘{x})) = 0ℋ))) |
| 24 | | snssi 01851 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (x
∈ ℋ → {x} ⊆ ℋ
) |
| 25 | | occlt 5189 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ({x}
⊆ ℋ → (⊥ ‘{x})
∈ Cℋ ) |
| 26 | 24, 25 | syl 12 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (x
∈ ℋ → (⊥ ‘{x})
∈ Cℋ ) |
| 27 | | choclt 5191 |
. . . . . . . . . . . . . . . . . . . 20
⊢ ((⊥ ‘{x}) ∈ Cℋ →
(⊥ ‘(⊥ ‘{x}))
∈ Cℋ ) |
| 28 | 8, 26, 27 | 3syl 21 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((A
∈ Cℋ ∧ x
∈ A) → (⊥ ‘(⊥
‘{x})) ∈
Cℋ ) |
| 29 | | ch1dle 5749 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((A
∈ Cℋ ∧ x
∈ A) → (⊥ ‘(⊥
‘{x})) ⊆ A) |
| 30 | 28, 29 | jca 236 |
. . . . . . . . . . . . . . . . . 18
⊢ ((A
∈ Cℋ ∧ x
∈ A) → ((⊥ ‘(⊥
‘{x})) ∈
Cℋ ∧ (⊥ ‘(⊥ ‘{x})) ⊆ A)) |
| 31 | 23, 30 | syl5 22 |
. . . . . . . . . . . . . . . . 17
⊢ (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ((A ∈
Cℋ ∧ x ∈
A) → ((⊥ ‘(⊥
‘{x})) = A ∨ (⊥ ‘(⊥ ‘{x})) = 0ℋ))) |
| 32 | 31 | exp3a 292 |
. . . . . . . . . . . . . . . 16
⊢ (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → (A ∈
Cℋ → (x ∈
A → ((⊥ ‘(⊥
‘{x})) = A ∨ (⊥ ‘(⊥ ‘{x})) = 0ℋ)))) |
| 33 | 32 | com3l 34 |
. . . . . . . . . . . . . . 15
⊢ (A
∈ Cℋ → (x
∈ A → (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ((⊥ ‘(⊥ ‘{x})) = A ∨
(⊥ ‘(⊥ ‘{x})) =
0ℋ)))) |
| 34 | 33 | adantrd 308 |
. . . . . . . . . . . . . 14
⊢ (A
∈ Cℋ → ((x ∈ A ∧
¬ x = 0v) →
(∀y ∈
Cℋ (y ⊆
A → (y = A ∨
y = 0ℋ)) → ((⊥
‘(⊥ ‘{x})) = A ∨ (⊥ ‘(⊥ ‘{x})) = 0ℋ)))) |
| 35 | 34 | imp32 281 |
. . . . . . . . . . . . 13
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → ((⊥ &!squo;(⊥ ‘{x})) = A ∨
(⊥ ‘(⊥ ‘{x})) =
0ℋ)) |
| 36 | 35 | ord 202
. . . . . . . . . . . 12
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → (¬ (⊥ ‘(⊥ ‘{x})) = A →
(⊥ ‘(⊥ ‘{x})) =
0ℋ)) |
| 37 | 16, 36 | mt3d 101 |
. . . . . . . . . . 11
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → (⊥ ‘(⊥ ‘{x})) = A) |
| 38 | 37 | cleqcomd 1106 |
. . . . . . . . . 10
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → A = (⊥
‘(⊥ ‘{x}))) |
| 39 | 12, 38 | jca 236 |
. . . . . . . . 9
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x})))) |
| 40 | 7, 10, 39 | sylanc 361 |
. . . . . . . 8
⊢ ((A
∈ Cℋ ∧ ((x
∈ A ∧ ¬ x = 0v) ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → ∃x
∈ ℋ (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x})))) |
| 41 | 40 | exp44 302 |
. . . . . . 7
⊢ (A
∈ Cℋ → (x
∈ A → (¬ x = 0v → (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ∃x
∈ ℋ (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x}))))))) |
| 42 | 3, 6, 41 | r19.23ad 1285 |
. . . . . 6
⊢ (A
∈ Cℋ → (∃x ∈ A ¬
x = 0v →
(∀y ∈
Cℋ (y ⊆
A → (y = A ∨
y = 0ℋ)) →
∃x ∈ ℋ (¬ x = 0v ∧ A = (⊥ ‘(⊥ ‘{x})))))) |
| 43 | 2, 42 | sylbid 178 |
. . . . 5
⊢ (A
∈ Cℋ → (¬ A = 0ℋ → (∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)) → ∃x
∈ ℋ (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x})))))) |
| 44 | 43 | imp32 281 |
. . . 4
⊢ ((A
∈ Cℋ ∧ (¬ A = 0ℋ ∧ ∀y ∈ Cℋ (y ⊆ A
→ (y = A ∨ y =
0ℋ)))) → ∃x
∈ ℋ (¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x})))) |
| 45 | 1, 44 | sylbi 174 |
. . 3
⊢ (A
∈ Atoms → ∃x ∈ ℋ
(¬ x = 0v ∧
A = (⊥ ‘(⊥
‘{x})))) |
| 46 | | eleq1 1149 |
. . . . . . . 8
⊢ (A =
(⊥ ‘(⊥ ‘{x}))
→ (A ∈ Atoms ↔ (⊥
‘(⊥ ‘{x})) ∈
Atoms)) |
| 47 | | h1dat 5747 |
. . . . . . . 8
⊢ ((x
∈ ℋ ∧ ¬ x =
0v) → (⊥ ‘(⊥ ‘{x})) ∈ Atoms) |
| 48 | 46, 47 | syl5bir 184 |
. . . . . . 7
⊢ (A =
(⊥ ‘(⊥ ‘{x}))
→ ((x ∈ ℋ ∧ ¬
x = 0v) → A ∈ Atoms)) |
| 49 | 48 | exp3a 292 |
. . . . . 6
⊢ (A =
(⊥ ‘(⊥ ‘{x}))
→ (x ∈ ℋ → (¬
x = 0v → A ∈ Atoms))) |
| 50 | 49 | com3l 34 |
. . . . 5
⊢ (x
∈ ℋ → (¬ x =
0v → (A = (⊥
‘(⊥ ‘{x})) →
A ∈ Atoms))) |
| 51 | 50 | imp3a 279 |
. . . 4
⊢ (x
∈ ℋ → ((¬ x =
0v ∧ A = (⊥
‘(⊥ ‘{x}))) →
A ∈ Atoms)) |
| 52 | 51 | r19.23aiv 1284 |
. . 3
⊢ (∃x ∈ ℋ (¬ x = 0v ∧ A = (⊥ ‘(⊥ ‘{x}))) → A
∈ Atoms) |
| 53 | 45, 52 | impbi 139 |
. 2
⊢ (A
∈ Atoms ↔ ∃x ∈ ℋ
(¬ x = 0v ∧
A = (⊥ ‘(⊥
‘{x})))) |
| 54 | | spansnt 5464 |
. . . . . 6
⊢ (x
∈ ℋ → (span ‘{x}) =
(⊥ ‘(⊥ ‘{x}))) |
| 55 | 54 | cleq2d 1112 |
. . . . 5
⊢ (x
∈ ℋ → (A = (span
‘{x}) ↔ A = (⊥ ‘(⊥ ‘{x})))) |
| 56 | 55 | anbi2d 468 |
. . . 4
⊢ (x
∈ ℋ → ((¬ x =
0v ∧ A = (span
‘{x})) ↔ (¬ x = 0v ∧ A = (⊥ ‘(⊥ ‘{x}))))) |
| 57 | 56 | birexa 1229 |
. . 3
⊢ (∃x ∈ ℋ (¬ x = 0v ∧ A = (span ‘{x})) ↔ ∃x ∈ ℋ (¬ x = 0v ∧ A = (⊥ ‘(⊥ ‘{x})))) |
| 58 | 57 | bicomi 150 |
. 2
⊢ (∃x ∈ ℋ (¬ x = 0v ∧ A = (⊥ ‘(⊥ ‘{x}))) ↔ ∃x ∈ ℋ (¬ x = 0v ∧ A = (span ‘{x}))) |
| 59 | 53, 58 | bitr 151 |
1
⊢ (A
∈ Atoms ↔ ∃x ∈ ℋ
(¬ x = 0v ∧
A = (span ‘{x}))) |