Step | Hyp | Ref
| Expression |
1 | | incom 4165 |
. . . 4
β’ ((πΌβπ) β© (πΌβπ)) = ((πΌβπ) β© (πΌβπ)) |
2 | | dihmeetlem14.b |
. . . . 5
β’ π΅ = (BaseβπΎ) |
3 | | dihmeetlem14.l |
. . . . 5
β’ β€ =
(leβπΎ) |
4 | | dihmeetlem14.h |
. . . . 5
β’ π» = (LHypβπΎ) |
5 | | dihmeetlem14.j |
. . . . 5
β’ β¨ =
(joinβπΎ) |
6 | | dihmeetlem14.m |
. . . . 5
β’ β§ =
(meetβπΎ) |
7 | | dihmeetlem14.a |
. . . . 5
β’ π΄ = (AtomsβπΎ) |
8 | | dihmeetlem14.u |
. . . . 5
β’ π = ((DVecHβπΎ)βπ) |
9 | | dihmeetlem14.s |
. . . . 5
β’ β =
(LSSumβπ) |
10 | | dihmeetlem14.i |
. . . . 5
β’ πΌ = ((DIsoHβπΎ)βπ) |
11 | | eqid 2733 |
. . . . 5
β’
(0gβπ) = (0gβπ) |
12 | 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 | dihmeetlem18N 39837 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β ((πΌβπ) β© (πΌβπ)) = {(0gβπ)}) |
13 | 1, 12 | eqtrid 2785 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β ((πΌβπ) β© (πΌβπ)) = {(0gβπ)}) |
14 | 13 | oveq2d 7377 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β ((πΌβ(π β§ π)) β ((πΌβπ) β© (πΌβπ))) = ((πΌβ(π β§ π)) β
{(0gβπ)})) |
15 | | simpl1 1192 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β (πΎ β HL β§ π β π»)) |
16 | | simpl2l 1227 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β π β π΅) |
17 | | simpl3 1194 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β π β π΅) |
18 | | simpr1 1195 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β (π β π΄ β§ Β¬ π β€ π)) |
19 | | simpr31 1264 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β π β€ π) |
20 | | simpr33 1266 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β (π β§ π) β€ π) |
21 | 2, 3, 4, 5, 6, 7, 8, 9, 10 | dihmeetlem12N 39831 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ π β π΅ β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ π β€ π β§ (π β§ π) β€ π)) β ((πΌβ(π β§ π)) β ((πΌβπ) β© (πΌβπ))) = ((πΌβπ) β© (πΌβπ))) |
22 | 15, 16, 17, 18, 19, 20, 21 | syl33anc 1386 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β ((πΌβ(π β§ π)) β ((πΌβπ) β© (πΌβπ))) = ((πΌβπ) β© (πΌβπ))) |
23 | 4, 8, 15 | dvhlmod 39623 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β π β LMod) |
24 | | simpl1l 1225 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β πΎ β HL) |
25 | 24 | hllatd 37876 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β πΎ β Lat) |
26 | 2, 6 | latmcl 18337 |
. . . . . 6
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π β§ π) β π΅) |
27 | 25, 16, 17, 26 | syl3anc 1372 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β (π β§ π) β π΅) |
28 | | eqid 2733 |
. . . . . 6
β’
(LSubSpβπ) =
(LSubSpβπ) |
29 | 2, 4, 10, 8, 28 | dihlss 39763 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β§ π) β π΅) β (πΌβ(π β§ π)) β (LSubSpβπ)) |
30 | 15, 27, 29 | syl2anc 585 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β (πΌβ(π β§ π)) β (LSubSpβπ)) |
31 | 28 | lsssubg 20462 |
. . . 4
β’ ((π β LMod β§ (πΌβ(π β§ π)) β (LSubSpβπ)) β (πΌβ(π β§ π)) β (SubGrpβπ)) |
32 | 23, 30, 31 | syl2anc 585 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β (πΌβ(π β§ π)) β (SubGrpβπ)) |
33 | 11, 9 | lsm01 19461 |
. . 3
β’ ((πΌβ(π β§ π)) β (SubGrpβπ) β ((πΌβ(π β§ π)) β
{(0gβπ)})
= (πΌβ(π β§ π))) |
34 | 32, 33 | syl 17 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β ((πΌβ(π β§ π)) β
{(0gβπ)})
= (πΌβ(π β§ π))) |
35 | 14, 22, 34 | 3eqtr3rd 2782 |
1
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ π β π΅) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β€ π β§ π β€ π β§ (π β§ π) β€ π))) β (πΌβ(π β§ π)) = ((πΌβπ) β© (πΌβπ))) |