Proof of Theorem chirredlem2
Step | Hyp | Ref
| Expression |
1 | | atelch 30607 |
. . . . . 6
⊢ (𝑝 ∈ HAtoms → 𝑝 ∈
Cℋ ) |
2 | | chjcom 29769 |
. . . . . 6
⊢ ((𝑝 ∈
Cℋ ∧ 𝑞 ∈ Cℋ )
→ (𝑝
∨ℋ 𝑞) =
(𝑞 ∨ℋ
𝑝)) |
3 | 1, 2 | sylan 579 |
. . . . 5
⊢ ((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ) → (𝑝 ∨ℋ 𝑞) = (𝑞 ∨ℋ 𝑝)) |
4 | 3 | ad2ant2r 743 |
. . . 4
⊢ (((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) →
(𝑝 ∨ℋ
𝑞) = (𝑞 ∨ℋ 𝑝)) |
5 | 4 | adantr 480 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑝 ∨ℋ 𝑞) = (𝑞 ∨ℋ 𝑝)) |
6 | 5 | ineq2d 4143 |
. 2
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ (𝑝 ∨ℋ 𝑞)) = ((⊥‘𝑟) ∩ (𝑞 ∨ℋ 𝑝))) |
7 | | atelch 30607 |
. . . . . . . . . . 11
⊢ (𝑟 ∈ HAtoms → 𝑟 ∈
Cℋ ) |
8 | | choccl 29569 |
. . . . . . . . . . 11
⊢ (𝑟 ∈
Cℋ → (⊥‘𝑟) ∈ Cℋ
) |
9 | 7, 8 | syl 17 |
. . . . . . . . . 10
⊢ (𝑟 ∈ HAtoms →
(⊥‘𝑟) ∈
Cℋ ) |
10 | | id 22 |
. . . . . . . . . 10
⊢ (𝑞 ∈
Cℋ → 𝑞 ∈ Cℋ
) |
11 | 9, 10, 1 | 3anim123i 1149 |
. . . . . . . . 9
⊢ ((𝑟 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ∧ 𝑝 ∈ HAtoms) → ((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
12 | 11 | 3com13 1122 |
. . . . . . . 8
⊢ ((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ∧ 𝑟 ∈ HAtoms) → ((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
13 | 12 | 3expa 1116 |
. . . . . . 7
⊢ (((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ) ∧ 𝑟 ∈ HAtoms) → ((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
14 | 13 | adantllr 715 |
. . . . . 6
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ 𝑞 ∈ Cℋ )
∧ 𝑟 ∈ HAtoms)
→ ((⊥‘𝑟)
∈ Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
15 | 14 | adantlrr 717 |
. . . . 5
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
𝑟 ∈ HAtoms) →
((⊥‘𝑟) ∈
Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ )) |
16 | 15 | adantrr 713 |
. . . 4
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
(𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴)) → ((⊥‘𝑟) ∈ Cℋ
∧ 𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ
)) |
17 | 16 | adantrr 713 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∈ Cℋ
∧ 𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ
)) |
18 | | simpll 763 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 ∈ Cℋ
) |
19 | 9 | ad2antrl 724 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → (⊥‘𝑟) ∈ Cℋ
) |
20 | | chirred.1 |
. . . . . . . . 9
⊢ 𝐴 ∈
Cℋ |
21 | | chsscon3 29763 |
. . . . . . . . 9
⊢ ((𝑟 ∈
Cℋ ∧ 𝐴 ∈ Cℋ )
→ (𝑟 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑟))) |
22 | 7, 20, 21 | sylancl 585 |
. . . . . . . 8
⊢ (𝑟 ∈ HAtoms → (𝑟 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑟))) |
23 | 22 | biimpa 476 |
. . . . . . 7
⊢ ((𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴) → (⊥‘𝐴) ⊆ (⊥‘𝑟)) |
24 | | sstr 3925 |
. . . . . . 7
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (⊥‘𝐴) ⊆ (⊥‘𝑟)) → 𝑞 ⊆ (⊥‘𝑟)) |
25 | 23, 24 | sylan2 592 |
. . . . . 6
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑟)) |
26 | 25 | adantll 710 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑟)) |
27 | | lecm 29880 |
. . . . 5
⊢ ((𝑞 ∈
Cℋ ∧ (⊥‘𝑟) ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝑟)) →
𝑞
𝐶ℋ (⊥‘𝑟)) |
28 | 18, 19, 26, 27 | syl3anc 1369 |
. . . 4
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → 𝑞 𝐶ℋ
(⊥‘𝑟)) |
29 | 28 | ad2ant2lr 744 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → 𝑞 𝐶ℋ
(⊥‘𝑟)) |
30 | | chsscon3 29763 |
. . . . . . . . . . . . . 14
⊢ ((𝑝 ∈
Cℋ ∧ 𝐴 ∈ Cℋ )
→ (𝑝 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑝))) |
31 | 20, 30 | mpan2 687 |
. . . . . . . . . . . . 13
⊢ (𝑝 ∈
Cℋ → (𝑝 ⊆ 𝐴 ↔ (⊥‘𝐴) ⊆ (⊥‘𝑝))) |
32 | 31 | biimpa 476 |
. . . . . . . . . . . 12
⊢ ((𝑝 ∈
Cℋ ∧ 𝑝 ⊆ 𝐴) → (⊥‘𝐴) ⊆ (⊥‘𝑝)) |
33 | | sstr 3925 |
. . . . . . . . . . . 12
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (⊥‘𝐴) ⊆ (⊥‘𝑝)) → 𝑞 ⊆ (⊥‘𝑝)) |
34 | 32, 33 | sylan2 592 |
. . . . . . . . . . 11
⊢ ((𝑞 ⊆ (⊥‘𝐴) ∧ (𝑝 ∈ Cℋ
∧ 𝑝 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑝)) |
35 | 34 | an12s 645 |
. . . . . . . . . 10
⊢ ((𝑝 ∈
Cℋ ∧ (𝑞 ⊆ (⊥‘𝐴) ∧ 𝑝 ⊆ 𝐴)) → 𝑞 ⊆ (⊥‘𝑝)) |
36 | 35 | ancom2s 646 |
. . . . . . . . 9
⊢ ((𝑝 ∈
Cℋ ∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 ⊆ (⊥‘𝑝)) |
37 | 36 | adantll 710 |
. . . . . . . 8
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 ⊆ (⊥‘𝑝)) |
38 | | choccl 29569 |
. . . . . . . . . . . 12
⊢ (𝑝 ∈
Cℋ → (⊥‘𝑝) ∈ Cℋ
) |
39 | | lecm 29880 |
. . . . . . . . . . . 12
⊢ ((𝑞 ∈
Cℋ ∧ (⊥‘𝑝) ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝑝)) →
𝑞
𝐶ℋ (⊥‘𝑝)) |
40 | 38, 39 | syl3an2 1162 |
. . . . . . . . . . 11
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝑝)) →
𝑞
𝐶ℋ (⊥‘𝑝)) |
41 | 40 | 3expia 1119 |
. . . . . . . . . 10
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
→ (𝑞 ⊆
(⊥‘𝑝) →
𝑞
𝐶ℋ (⊥‘𝑝))) |
42 | | cmcm2 29879 |
. . . . . . . . . 10
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
→ (𝑞
𝐶ℋ 𝑝 ↔ 𝑞 𝐶ℋ
(⊥‘𝑝))) |
43 | 41, 42 | sylibrd 258 |
. . . . . . . . 9
⊢ ((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
→ (𝑞 ⊆
(⊥‘𝑝) →
𝑞
𝐶ℋ 𝑝)) |
44 | 43 | adantr 480 |
. . . . . . . 8
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → (𝑞 ⊆ (⊥‘𝑝) → 𝑞 𝐶ℋ 𝑝)) |
45 | 37, 44 | mpd 15 |
. . . . . . 7
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ Cℋ )
∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 𝐶ℋ 𝑝) |
46 | 1, 45 | sylanl2 677 |
. . . . . 6
⊢ (((𝑞 ∈
Cℋ ∧ 𝑝 ∈ HAtoms) ∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 𝐶ℋ 𝑝) |
47 | 46 | ancom1s 649 |
. . . . 5
⊢ (((𝑝 ∈ HAtoms ∧ 𝑞 ∈
Cℋ ) ∧ (𝑝 ⊆ 𝐴 ∧ 𝑞 ⊆ (⊥‘𝐴))) → 𝑞 𝐶ℋ 𝑝) |
48 | 47 | an4s 656 |
. . . 4
⊢ (((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) →
𝑞
𝐶ℋ 𝑝) |
49 | 48 | adantr 480 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → 𝑞 𝐶ℋ 𝑝) |
50 | | fh2 29882 |
. . 3
⊢
((((⊥‘𝑟)
∈ Cℋ ∧ 𝑞 ∈ Cℋ
∧ 𝑝 ∈
Cℋ ) ∧ (𝑞 𝐶ℋ
(⊥‘𝑟) ∧
𝑞
𝐶ℋ 𝑝)) → ((⊥‘𝑟) ∩ (𝑞 ∨ℋ 𝑝)) = (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝))) |
51 | 17, 29, 49, 50 | syl12anc 833 |
. 2
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ (𝑞 ∨ℋ 𝑝)) = (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝))) |
52 | | sseqin2 4146 |
. . . . . 6
⊢ (𝑞 ⊆ (⊥‘𝑟) ↔ ((⊥‘𝑟) ∩ 𝑞) = 𝑞) |
53 | 26, 52 | sylib 217 |
. . . . 5
⊢ (((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) ∧ (𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴)) → ((⊥‘𝑟) ∩ 𝑞) = 𝑞) |
54 | 53 | ad2ant2lr 744 |
. . . 4
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ 𝑞) = 𝑞) |
55 | | incom 4131 |
. . . . 5
⊢
((⊥‘𝑟)
∩ 𝑝) = (𝑝 ∩ (⊥‘𝑟)) |
56 | 20 | chirredlem1 30653 |
. . . . . 6
⊢ (((𝑝 ∈ HAtoms ∧ (𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴))) ∧ ((𝑟 ∈ HAtoms ∧ 𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑝 ∩ (⊥‘𝑟)) = 0ℋ) |
57 | 56 | adantllr 715 |
. . . . 5
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑝 ∩ (⊥‘𝑟)) = 0ℋ) |
58 | 55, 57 | syl5eq 2791 |
. . . 4
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ 𝑝) = 0ℋ) |
59 | 54, 58 | oveq12d 7273 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝)) = (𝑞 ∨ℋ
0ℋ)) |
60 | | chj0 29760 |
. . . . 5
⊢ (𝑞 ∈
Cℋ → (𝑞 ∨ℋ 0ℋ)
= 𝑞) |
61 | 60 | adantr 480 |
. . . 4
⊢ ((𝑞 ∈
Cℋ ∧ 𝑞 ⊆ (⊥‘𝐴)) → (𝑞 ∨ℋ 0ℋ)
= 𝑞) |
62 | 61 | ad2antlr 723 |
. . 3
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (𝑞 ∨ℋ 0ℋ)
= 𝑞) |
63 | 59, 62 | eqtrd 2778 |
. 2
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → (((⊥‘𝑟) ∩ 𝑞) ∨ℋ
((⊥‘𝑟) ∩
𝑝)) = 𝑞) |
64 | 6, 51, 63 | 3eqtrd 2782 |
1
⊢ ((((𝑝 ∈ HAtoms ∧ 𝑝 ⊆ 𝐴) ∧ (𝑞 ∈ Cℋ
∧ 𝑞 ⊆
(⊥‘𝐴))) ∧
((𝑟 ∈ HAtoms ∧
𝑟 ⊆ 𝐴) ∧ 𝑟 ⊆ (𝑝 ∨ℋ 𝑞))) → ((⊥‘𝑟) ∩ (𝑝 ∨ℋ 𝑞)) = 𝑞) |