Step | Hyp | Ref
| Expression |
1 | | dihmeetlem13.h |
. . . . . 6
β’ π» = (LHypβπΎ) |
2 | | dihmeetlem13.i |
. . . . . 6
β’ πΌ = ((DIsoHβπΎ)βπ) |
3 | 1, 2 | dihvalrel 40138 |
. . . . 5
β’ ((πΎ β HL β§ π β π») β Rel (πΌβπ)) |
4 | 3 | 3ad2ant1 1133 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β Rel (πΌβπ)) |
5 | | relin1 5810 |
. . . 4
β’ (Rel
(πΌβπ) β Rel ((πΌβπ) β© (πΌβπ
))) |
6 | 4, 5 | syl 17 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β Rel ((πΌβπ) β© (πΌβπ
))) |
7 | | elin 3963 |
. . . . . 6
β’
(β¨π, π β© β ((πΌβπ) β© (πΌβπ
)) β (β¨π, π β© β (πΌβπ) β§ β¨π, π β© β (πΌβπ
))) |
8 | | simp1 1136 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (πΎ β HL β§ π β π»)) |
9 | | simp2l 1199 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (π β π΄ β§ Β¬ π β€ π)) |
10 | | dihmeetlem13.l |
. . . . . . . . 9
β’ β€ =
(leβπΎ) |
11 | | dihmeetlem13.a |
. . . . . . . . 9
β’ π΄ = (AtomsβπΎ) |
12 | | dihmeetlem13.p |
. . . . . . . . 9
β’ π = ((ocβπΎ)βπ) |
13 | | dihmeetlem13.t |
. . . . . . . . 9
β’ π = ((LTrnβπΎ)βπ) |
14 | | dihmeetlem13.e |
. . . . . . . . 9
β’ πΈ = ((TEndoβπΎ)βπ) |
15 | | dihmeetlem13.f |
. . . . . . . . 9
β’ πΉ = (β©β β π (ββπ) = π) |
16 | | vex 3478 |
. . . . . . . . 9
β’ π β V |
17 | | vex 3478 |
. . . . . . . . 9
β’ π β V |
18 | 10, 11, 1, 12, 13, 14, 2, 15, 16, 17 | dihopelvalcqat 40105 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π)) β (β¨π, π β© β (πΌβπ) β (π = (π βπΉ) β§ π β πΈ))) |
19 | 8, 9, 18 | syl2anc 584 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (β¨π, π β© β (πΌβπ) β (π = (π βπΉ) β§ π β πΈ))) |
20 | | simp2r 1200 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (π
β π΄ β§ Β¬ π
β€ π)) |
21 | | dihmeetlem13.g |
. . . . . . . . 9
β’ πΊ = (β©β β π (ββπ) = π
) |
22 | 10, 11, 1, 12, 13, 14, 2, 21, 16, 17 | dihopelvalcqat 40105 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ (π
β π΄ β§ Β¬ π
β€ π)) β (β¨π, π β© β (πΌβπ
) β (π = (π βπΊ) β§ π β πΈ))) |
23 | 8, 20, 22 | syl2anc 584 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (β¨π, π β© β (πΌβπ
) β (π = (π βπΊ) β§ π β πΈ))) |
24 | 19, 23 | anbi12d 631 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β ((β¨π, π β© β (πΌβπ) β§ β¨π, π β© β (πΌβπ
)) β ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)))) |
25 | 7, 24 | bitrid 282 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (β¨π, π β© β ((πΌβπ) β© (πΌβπ
)) β ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)))) |
26 | | simprll 777 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β π = (π βπΉ)) |
27 | | simpl3 1193 |
. . . . . . . . . . 11
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β π β π
) |
28 | | fveq1 6887 |
. . . . . . . . . . . . 13
β’ (πΉ = πΊ β (πΉβπ) = (πΊβπ)) |
29 | | simpl1 1191 |
. . . . . . . . . . . . . . 15
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (πΎ β HL β§ π β π»)) |
30 | 10, 11, 1, 12 | lhpocnel2 38878 |
. . . . . . . . . . . . . . . 16
β’ ((πΎ β HL β§ π β π») β (π β π΄ β§ Β¬ π β€ π)) |
31 | 29, 30 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (π β π΄ β§ Β¬ π β€ π)) |
32 | | simpl2l 1226 |
. . . . . . . . . . . . . . 15
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (π β π΄ β§ Β¬ π β€ π)) |
33 | 10, 11, 1, 13, 15 | ltrniotaval 39440 |
. . . . . . . . . . . . . . 15
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β (πΉβπ) = π) |
34 | 29, 31, 32, 33 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (πΉβπ) = π) |
35 | | simpl2r 1227 |
. . . . . . . . . . . . . . 15
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (π
β π΄ β§ Β¬ π
β€ π)) |
36 | 10, 11, 1, 13, 21 | ltrniotaval 39440 |
. . . . . . . . . . . . . . 15
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β (πΊβπ) = π
) |
37 | 29, 31, 35, 36 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (πΊβπ) = π
) |
38 | 34, 37 | eqeq12d 2748 |
. . . . . . . . . . . . 13
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β ((πΉβπ) = (πΊβπ) β π = π
)) |
39 | 28, 38 | imbitrid 243 |
. . . . . . . . . . . 12
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (πΉ = πΊ β π = π
)) |
40 | 39 | necon3d 2961 |
. . . . . . . . . . 11
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (π β π
β πΉ β πΊ)) |
41 | 27, 40 | mpd 15 |
. . . . . . . . . 10
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β πΉ β πΊ) |
42 | | simp2ll 1240 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β π = (π βπΉ)) |
43 | | simp2rl 1242 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β π = (π βπΊ)) |
44 | 42, 43 | eqtr3d 2774 |
. . . . . . . . . . . . 13
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β (π βπΉ) = (π βπΊ)) |
45 | | simp11 1203 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β (πΎ β HL β§ π β π»)) |
46 | | simp2rr 1243 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β π β πΈ) |
47 | | simp3 1138 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β π β π) |
48 | 45, 30 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β (π β π΄ β§ Β¬ π β€ π)) |
49 | | simp12l 1286 |
. . . . . . . . . . . . . . 15
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β (π β π΄ β§ Β¬ π β€ π)) |
50 | 10, 11, 1, 13, 15 | ltrniotacl 39438 |
. . . . . . . . . . . . . . 15
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β πΉ β π) |
51 | 45, 48, 49, 50 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β πΉ β π) |
52 | | simp12r 1287 |
. . . . . . . . . . . . . . 15
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β (π
β π΄ β§ Β¬ π
β€ π)) |
53 | 10, 11, 1, 13, 21 | ltrniotacl 39438 |
. . . . . . . . . . . . . . 15
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β πΊ β π) |
54 | 45, 48, 52, 53 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β πΊ β π) |
55 | | dihmeetlem13.b |
. . . . . . . . . . . . . . 15
β’ π΅ = (BaseβπΎ) |
56 | | dihmeetlem13.o |
. . . . . . . . . . . . . . 15
β’ π = (β β π β¦ ( I βΎ π΅)) |
57 | 55, 1, 13, 14, 56 | tendospcanN 39882 |
. . . . . . . . . . . . . 14
β’ (((πΎ β HL β§ π β π») β§ (π β πΈ β§ π β π) β§ (πΉ β π β§ πΊ β π)) β ((π βπΉ) = (π βπΊ) β πΉ = πΊ)) |
58 | 45, 46, 47, 51, 54, 57 | syl122anc 1379 |
. . . . . . . . . . . . 13
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β ((π βπΉ) = (π βπΊ) β πΉ = πΊ)) |
59 | 44, 58 | mpbid 231 |
. . . . . . . . . . . 12
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β§ π β π) β πΉ = πΊ) |
60 | 59 | 3expia 1121 |
. . . . . . . . . . 11
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (π β π β πΉ = πΊ)) |
61 | 60 | necon1d 2962 |
. . . . . . . . . 10
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (πΉ β πΊ β π = π)) |
62 | 41, 61 | mpd 15 |
. . . . . . . . 9
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β π = π) |
63 | 62 | fveq1d 6890 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (π βπΉ) = (πβπΉ)) |
64 | 29, 31, 32, 50 | syl3anc 1371 |
. . . . . . . . 9
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β πΉ β π) |
65 | 56, 55 | tendo02 39646 |
. . . . . . . . 9
β’ (πΉ β π β (πβπΉ) = ( I βΎ π΅)) |
66 | 64, 65 | syl 17 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (πβπΉ) = ( I βΎ π΅)) |
67 | 26, 63, 66 | 3eqtrd 2776 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β π = ( I βΎ π΅)) |
68 | 67, 62 | jca 512 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β§ ((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ))) β (π = ( I βΎ π΅) β§ π = π)) |
69 | 68 | ex 413 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (((π = (π βπΉ) β§ π β πΈ) β§ (π = (π βπΊ) β§ π β πΈ)) β (π = ( I βΎ π΅) β§ π = π))) |
70 | 25, 69 | sylbid 239 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (β¨π, π β© β ((πΌβπ) β© (πΌβπ
)) β (π = ( I βΎ π΅) β§ π = π))) |
71 | | opex 5463 |
. . . . . . 7
β’
β¨π, π β© β V |
72 | 71 | elsn 4642 |
. . . . . 6
β’
(β¨π, π β© β {β¨( I βΎ
π΅), πβ©} β β¨π, π β© = β¨( I βΎ π΅), πβ©) |
73 | 16, 17 | opth 5475 |
. . . . . 6
β’
(β¨π, π β© = β¨( I βΎ π΅), πβ© β (π = ( I βΎ π΅) β§ π = π)) |
74 | 72, 73 | bitr2i 275 |
. . . . 5
β’ ((π = ( I βΎ π΅) β§ π = π) β β¨π, π β© β {β¨( I βΎ π΅), πβ©}) |
75 | | dihmeetlem13.u |
. . . . . . . . 9
β’ π = ((DVecHβπΎ)βπ) |
76 | | dihmeetlem13.z |
. . . . . . . . 9
β’ 0 =
(0gβπ) |
77 | 55, 1, 13, 75, 76, 56 | dvh0g 39970 |
. . . . . . . 8
β’ ((πΎ β HL β§ π β π») β 0 = β¨( I βΎ π΅), πβ©) |
78 | 77 | 3ad2ant1 1133 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β 0 = β¨( I βΎ π΅), πβ©) |
79 | 78 | sneqd 4639 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β { 0 } = {β¨( I βΎ
π΅), πβ©}) |
80 | 79 | eleq2d 2819 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (β¨π, π β© β { 0 } β β¨π, π β© β {β¨( I βΎ π΅), πβ©})) |
81 | 74, 80 | bitr4id 289 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β ((π = ( I βΎ π΅) β§ π = π) β β¨π, π β© β { 0 })) |
82 | 70, 81 | sylibd 238 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (β¨π, π β© β ((πΌβπ) β© (πΌβπ
)) β β¨π, π β© β { 0 })) |
83 | 6, 82 | relssdv 5786 |
. 2
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β ((πΌβπ) β© (πΌβπ
)) β { 0 }) |
84 | 1, 75, 8 | dvhlmod 39969 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β π β LMod) |
85 | | simp2ll 1240 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β π β π΄) |
86 | 55, 11 | atbase 38147 |
. . . . . 6
β’ (π β π΄ β π β π΅) |
87 | 85, 86 | syl 17 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β π β π΅) |
88 | | eqid 2732 |
. . . . . 6
β’
(LSubSpβπ) =
(LSubSpβπ) |
89 | 55, 1, 2, 75, 88 | dihlss 40109 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ π β π΅) β (πΌβπ) β (LSubSpβπ)) |
90 | 8, 87, 89 | syl2anc 584 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (πΌβπ) β (LSubSpβπ)) |
91 | | simp2rl 1242 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β π
β π΄) |
92 | 55, 11 | atbase 38147 |
. . . . . 6
β’ (π
β π΄ β π
β π΅) |
93 | 91, 92 | syl 17 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β π
β π΅) |
94 | 55, 1, 2, 75, 88 | dihlss 40109 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ π
β π΅) β (πΌβπ
) β (LSubSpβπ)) |
95 | 8, 93, 94 | syl2anc 584 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β (πΌβπ
) β (LSubSpβπ)) |
96 | 88 | lssincl 20568 |
. . . 4
β’ ((π β LMod β§ (πΌβπ) β (LSubSpβπ) β§ (πΌβπ
) β (LSubSpβπ)) β ((πΌβπ) β© (πΌβπ
)) β (LSubSpβπ)) |
97 | 84, 90, 95, 96 | syl3anc 1371 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β ((πΌβπ) β© (πΌβπ
)) β (LSubSpβπ)) |
98 | 76, 88 | lss0ss 20551 |
. . 3
β’ ((π β LMod β§ ((πΌβπ) β© (πΌβπ
)) β (LSubSpβπ)) β { 0 } β ((πΌβπ) β© (πΌβπ
))) |
99 | 84, 97, 98 | syl2anc 584 |
. 2
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β { 0 } β ((πΌβπ) β© (πΌβπ
))) |
100 | 83, 99 | eqssd 3998 |
1
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β§ π β π
) β ((πΌβπ) β© (πΌβπ
)) = { 0 }) |