Proof of Theorem chirredlem2
| Step | Hyp | Ref
| Expression |
| 1 | | atelch 32363 |
. . . . . 6
⊢ (𝑝 ∈ HAtoms → 𝑝 ∈
Cℋ ) |
| 2 | | chjcom 31525 |
. . . . . 6
⊢ ((𝑝 ∈
Cℋ ∧ 𝑞 ∈ Cℋ )
→ (𝑝
∨ℋ 𝑞) =
(𝑞 ∨ℋ
𝑝)) |
| 3 | 1, 2 | sylan 580 |
. . . . 5
⊢ ((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ) → (𝑝 ∨ℋ 𝑞) = (𝑞 ∨ℋ 𝑝)) |
| 4 | 3 | ad2ant2r 747 |
. . . 4
⊢ (((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) →
(𝑝 ∨ℋ
𝑞) = (𝑞 ∨ℋ 𝑝)) |
| 5 | 4 | adantr 480 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑝 ∨ℋ 𝑞) = (𝑞 ∨ℋ 𝑝)) |
| 6 | 5 | ineq2d 4220 |
. 2
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ (𝑝 ∨ℋ 𝑞)) = ((⊥‘𝑟) ∩ (𝑞 ∨ℋ 𝑝))) |
| 7 | | atelch 32363 |
. . . . . . . . . . 11
⊢ (𝑟 ∈ HAtoms → 𝑟 ∈
Cℋ ) |
| 8 | | choccl 31325 |
. . . . . . . . . . 11
⊢ (𝑟 ∈
Cℋ → (⊥‘𝑟) ∈ Cℋ
) |
| 9 | 7, 8 | syl 17 |
. . . . . . . . . 10
⊢ (𝑟 ∈ HAtoms →
(⊥‘𝑟) ∈
Cℋ ) |
| 10 | | id 22 |
. . . . . . . . . 10
⊢ (𝑞 ∈
Cℋ → 𝑞 ∈ Cℋ
) |
| 11 | 9, 10, 1 | 3anim123i 1152 |
. . . . . . . . 9
⊢ ((𝑟 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ∧ 𝑝 ∈ HAtoms) → ((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
| 12 | 11 | 3com13 1125 |
. . . . . . . 8
⊢ ((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ∧ 𝑟 ∈ HAtoms) → ((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
| 13 | 12 | 3expa 1119 |
. . . . . . 7
⊢ (((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ) ∧ 𝑟 ∈ HAtoms) → ((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
| 14 | 13 | adantllr 719 |
. . . . . 6
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ 𝑞 ∈ Cℋ )
∧ 𝑟 ∈ HAtoms)
→ ((⊥‘𝑟)
∈ Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
| 15 | 14 | adantlrr 721 |
. . . . 5
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
𝑟 ∈ HAtoms) →
((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
| 16 | 15 | adantrr 717 |
. . . 4
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
(𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴)) → ((⊥‘𝑟) ∈ Cℋ
∧ 𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ
)) |
| 17 | 16 | adantrr 717 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∈ Cℋ
∧ 𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ
)) |
| 18 | | simpll 767 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 ∈ Cℋ
) |
| 19 | 9 | ad2antrl 728 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → (⊥‘𝑟) ∈ Cℋ
) |
| 20 | | chirred.1 |
. . . . . . . . 9
⊢ 𝐴 ∈
Cℋ |
| 21 | | chsscon3 31519 |
. . . . . . . . 9
⊢ ((𝑟 ∈
Cℋ ∧ 𝐴 ∈ Cℋ )
→ (𝑟 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑟))) |
| 22 | 7, 20, 21 | sylancl 586 |
. . . . . . . 8
⊢ (𝑟 ∈ HAtoms → (𝑟 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑟))) |
| 23 | 22 | biimpa 476 |
. . . . . . 7
⊢ ((𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴) → (⊥‘𝐴) ⊆ (⊥‘𝑟)) |
| 24 | | sstr 3992 |
. . . . . . 7
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (⊥‘𝐴) ⊆ (⊥‘𝑟)) → 𝑞 ⊆ (⊥‘𝑟)) |
| 25 | 23, 24 | sylan2 593 |
. . . . . 6
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑟)) |
| 26 | 25 | adantll 714 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑟)) |
| 27 | | lecm 31636 |
. . . . 5
⊢ ((𝑞 ∈
Cℋ ∧ (⊥‘𝑟) ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝑟)) →
𝑞
𝐶ℋ (⊥‘𝑟)) |
| 28 | 18, 19, 26, 27 | syl3anc 1373 |
. . . 4
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 𝐶ℋ
(⊥‘𝑟)) |
| 29 | 28 | ad2ant2lr 748 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → 𝑞 𝐶ℋ
(⊥‘𝑟)) |
| 30 | | chsscon3 31519 |
. . . . . . . . . . . . . 14
⊢ ((𝑝 ∈
Cℋ ∧ 𝐴 ∈ Cℋ )
→ (𝑝 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑝))) |
| 31 | 20, 30 | mpan2 691 |
. . . . . . . . . . . . 13
⊢ (𝑝 ∈
Cℋ → (𝑝 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑝))) |
| 32 | 31 | biimpa 476 |
. . . . . . . . . . . 12
⊢ ((𝑝 ∈
Cℋ ∧ 𝑝 ⊆ 𝐴) → (⊥‘𝐴) ⊆ (⊥‘𝑝)) |
| 33 | | sstr 3992 |
. . . . . . . . . . . 12
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (⊥‘𝐴) ⊆ (⊥‘𝑝)) → 𝑞 ⊆ (⊥‘𝑝)) |
| 34 | 32, 33 | sylan2 593 |
. . . . . . . . . . 11
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (𝑝 ∈ Cℋ
∧ 𝑝 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑝)) |
| 35 | 34 | an12s 649 |
. . . . . . . . . 10
⊢ ((𝑝 ∈
Cℋ ∧ (𝑞 ⊆ (⊥‘𝐴) ∧ 𝑝 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑝)) |
| 36 | 35 | ancom2s 650 |
. . . . . . . . 9
⊢ ((𝑝 ∈
Cℋ ∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 ⊆ (⊥‘𝑝)) |
| 37 | 36 | adantll 714 |
. . . . . . . 8
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 ⊆ (⊥‘𝑝)) |
| 38 | | choccl 31325 |
. . . . . . . . . . . 12
⊢ (𝑝 ∈
Cℋ → (⊥‘𝑝) ∈ Cℋ
) |
| 39 | | lecm 31636 |
. . . . . . . . . . . 12
⊢ ((𝑞 ∈
Cℋ ∧ (⊥‘𝑝) ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝑝)) →
𝑞
𝐶ℋ (⊥‘𝑝)) |
| 40 | 38, 39 | syl3an2 1165 |
. . . . . . . . . . 11
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝑝)) →
𝑞
𝐶ℋ (⊥‘𝑝)) |
| 41 | 40 | 3expia 1122 |
. . . . . . . . . 10
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
→ (𝑞 ⊆
(⊥‘𝑝) →
𝑞
𝐶ℋ (⊥‘𝑝))) |
| 42 | | cmcm2 31635 |
. . . . . . . . . 10
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
→ (𝑞
𝐶ℋ 𝑝 ↔ 𝑞 𝐶ℋ
(⊥‘𝑝))) |
| 43 | 41, 42 | sylibrd 259 |
. . . . . . . . 9
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
→ (𝑞 ⊆
(⊥‘𝑝) →
𝑞
𝐶ℋ 𝑝)) |
| 44 | 43 | adantr 480 |
. . . . . . . 8
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → (𝑞 ⊆ (⊥‘𝑝) → 𝑞 𝐶ℋ 𝑝)) |
| 45 | 37, 44 | mpd 15 |
. . . . . . 7
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 𝐶ℋ 𝑝) |
| 46 | 1, 45 | sylanl2 681 |
. . . . . 6
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ HAtoms) ∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 𝐶ℋ 𝑝) |
| 47 | 46 | ancom1s 653 |
. . . . 5
⊢ (((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ) ∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 𝐶ℋ 𝑝) |
| 48 | 47 | an4s 660 |
. . . 4
⊢ (((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) →
𝑞
𝐶ℋ 𝑝) |
| 49 | 48 | adantr 480 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → 𝑞 𝐶ℋ 𝑝) |
| 50 | | fh2 31638 |
. . 3
⊢
((((⊥‘𝑟)
∈ Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ ) ∧ (𝑞 𝐶ℋ
(⊥‘𝑟) ∧
𝑞
𝐶ℋ 𝑝)) → ((⊥‘𝑟) ∩ (𝑞 ∨ℋ 𝑝)) = (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝))) |
| 51 | 17, 29, 49, 50 | syl12anc 837 |
. 2
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ (𝑞 ∨ℋ 𝑝)) = (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝))) |
| 52 | | sseqin2 4223 |
. . . . . 6
⊢ (𝑞 ⊆ (⊥‘𝑟) ↔ ((⊥‘𝑟) ∩ 𝑞) = 𝑞) |
| 53 | 26, 52 | sylib 218 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → ((⊥‘𝑟) ∩ 𝑞) = 𝑞) |
| 54 | 53 | ad2ant2lr 748 |
. . . 4
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ 𝑞) = 𝑞) |
| 55 | | incom 4209 |
. . . . 5
⊢
((⊥‘𝑟)
∩ 𝑝) = (𝑝 ∩ (⊥‘𝑟)) |
| 56 | 20 | chirredlem1 32409 |
. . . . . 6
⊢ (((𝑝 ∈ HAtoms ∧ (𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴))) ∧ ((𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑝 ∩ (⊥‘𝑟)) = 0ℋ) |
| 57 | 56 | adantllr 719 |
. . . . 5
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑝 ∩ (⊥‘𝑟)) = 0ℋ) |
| 58 | 55, 57 | eqtrid 2789 |
. . . 4
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ 𝑝) = 0ℋ) |
| 59 | 54, 58 | oveq12d 7449 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝)) = (𝑞 ∨ℋ
0ℋ)) |
| 60 | | chj0 31516 |
. . . . 5
⊢ (𝑞 ∈
Cℋ → (𝑞 ∨ℋ 0ℋ)
= 𝑞) |
| 61 | 60 | adantr 480 |
. . . 4
⊢ ((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) → (𝑞 ∨ℋ 0ℋ)
= 𝑞) |
| 62 | 61 | ad2antlr 727 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑞 ∨ℋ 0ℋ)
= 𝑞) |
| 63 | 59, 62 | eqtrd 2777 |
. 2
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝)) = 𝑞) |
| 64 | 6, 51, 63 | 3eqtrd 2781 |
1
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ (𝑝 ∨ℋ 𝑞)) = 𝑞) |