Step | Hyp | Ref
| Expression |
1 | | simp1 1136 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (πΎ β HL β§ π β π»)) |
2 | | simp3l 1201 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β π β πΈ) |
3 | | dicvscacl.l |
. . . . . . . 8
β’ β€ =
(leβπΎ) |
4 | | dicvscacl.a |
. . . . . . . 8
β’ π΄ = (AtomsβπΎ) |
5 | | dicvscacl.h |
. . . . . . . 8
β’ π» = (LHypβπΎ) |
6 | | dicvscacl.i |
. . . . . . . 8
β’ πΌ = ((DIsoCβπΎ)βπ) |
7 | | dicvscacl.u |
. . . . . . . 8
β’ π = ((DVecHβπΎ)βπ) |
8 | | eqid 2731 |
. . . . . . . 8
β’
(Baseβπ) =
(Baseβπ) |
9 | 3, 4, 5, 6, 7, 8 | dicssdvh 39755 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π)) β (πΌβπ) β (Baseβπ)) |
10 | | eqid 2731 |
. . . . . . . . . 10
β’
((LTrnβπΎ)βπ) = ((LTrnβπΎ)βπ) |
11 | | dicvscacl.e |
. . . . . . . . . 10
β’ πΈ = ((TEndoβπΎ)βπ) |
12 | 5, 10, 11, 7, 8 | dvhvbase 39656 |
. . . . . . . . 9
β’ ((πΎ β HL β§ π β π») β (Baseβπ) = (((LTrnβπΎ)βπ) Γ πΈ)) |
13 | 12 | eqcomd 2737 |
. . . . . . . 8
β’ ((πΎ β HL β§ π β π») β (((LTrnβπΎ)βπ) Γ πΈ) = (Baseβπ)) |
14 | 13 | adantr 481 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π)) β (((LTrnβπΎ)βπ) Γ πΈ) = (Baseβπ)) |
15 | 9, 14 | sseqtrrd 4003 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π)) β (πΌβπ) β (((LTrnβπΎ)βπ) Γ πΈ)) |
16 | 15 | 3adant3 1132 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (πΌβπ) β (((LTrnβπΎ)βπ) Γ πΈ)) |
17 | | simp3r 1202 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β π β (πΌβπ)) |
18 | 16, 17 | sseldd 3963 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β π β (((LTrnβπΎ)βπ) Γ πΈ)) |
19 | | dicvscacl.s |
. . . . 5
β’ Β· = (
Β·π βπ) |
20 | 5, 10, 11, 7, 19 | dvhvsca 39670 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β πΈ β§ π β (((LTrnβπΎ)βπ) Γ πΈ))) β (π Β· π) = β¨(πβ(1st βπ)), (π β (2nd βπ))β©) |
21 | 1, 2, 18, 20 | syl12anc 835 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (π Β· π) = β¨(πβ(1st βπ)), (π β (2nd βπ))β©) |
22 | | fvi 6937 |
. . . . . 6
β’ (π β πΈ β ( I βπ) = π) |
23 | 2, 22 | syl 17 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β ( I βπ) = π) |
24 | 23 | coeq1d 5837 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (( I βπ) β (2nd βπ)) = (π β (2nd βπ))) |
25 | 24 | opeq2d 4857 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β β¨(πβ(1st βπ)), (( I βπ) β (2nd
βπ))β© =
β¨(πβ(1st βπ)), (π β (2nd βπ))β©) |
26 | 21, 25 | eqtr4d 2774 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (π Β· π) = β¨(πβ(1st βπ)), (( I βπ) β (2nd
βπ))β©) |
27 | | eqid 2731 |
. . . . . . . 8
β’
((ocβπΎ)βπ) = ((ocβπΎ)βπ) |
28 | 3, 4, 5, 27, 10, 6 | dicelval1sta 39756 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ π β (πΌβπ)) β (1st βπ) = ((2nd
βπ)β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π))) |
29 | 28 | 3adant3l 1180 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (1st βπ) = ((2nd
βπ)β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π))) |
30 | 29 | fveq2d 6866 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (πβ(1st βπ)) = (πβ((2nd βπ)β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)))) |
31 | 3, 4, 5, 11, 6 | dicelval2nd 39758 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ π β (πΌβπ)) β (2nd βπ) β πΈ) |
32 | 31 | 3adant3l 1180 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (2nd βπ) β πΈ) |
33 | 5, 10, 11 | tendof 39332 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (2nd βπ) β πΈ) β (2nd βπ):((LTrnβπΎ)βπ)βΆ((LTrnβπΎ)βπ)) |
34 | 1, 32, 33 | syl2anc 584 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (2nd βπ):((LTrnβπΎ)βπ)βΆ((LTrnβπΎ)βπ)) |
35 | | eqid 2731 |
. . . . . . . . 9
β’
(ocβπΎ) =
(ocβπΎ) |
36 | 3, 35, 4, 5 | lhpocnel 38587 |
. . . . . . . 8
β’ ((πΎ β HL β§ π β π») β (((ocβπΎ)βπ) β π΄ β§ Β¬ ((ocβπΎ)βπ) β€ π)) |
37 | 36 | 3ad2ant1 1133 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (((ocβπΎ)βπ) β π΄ β§ Β¬ ((ocβπΎ)βπ) β€ π)) |
38 | | simp2 1137 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (π β π΄ β§ Β¬ π β€ π)) |
39 | | eqid 2731 |
. . . . . . . 8
β’
(β©π
β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π) = (β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π) |
40 | 3, 4, 5, 10, 39 | ltrniotacl 39148 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (((ocβπΎ)βπ) β π΄ β§ Β¬ ((ocβπΎ)βπ) β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β (β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π) β ((LTrnβπΎ)βπ)) |
41 | 1, 37, 38, 40 | syl3anc 1371 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π) β ((LTrnβπΎ)βπ)) |
42 | | fvco3 6960 |
. . . . . 6
β’
(((2nd βπ):((LTrnβπΎ)βπ)βΆ((LTrnβπΎ)βπ) β§ (β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π) β ((LTrnβπΎ)βπ)) β ((π β (2nd βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)) = (πβ((2nd βπ)β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)))) |
43 | 34, 41, 42 | syl2anc 584 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β ((π β (2nd βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)) = (πβ((2nd βπ)β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)))) |
44 | 30, 43 | eqtr4d 2774 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (πβ(1st βπ)) = ((π β (2nd βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π))) |
45 | 24 | fveq1d 6864 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β ((( I βπ) β (2nd βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)) = ((π β (2nd βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π))) |
46 | 44, 45 | eqtr4d 2774 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (πβ(1st βπ)) = ((( I βπ) β (2nd
βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π))) |
47 | 5, 11 | tendococl 39341 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ π β πΈ β§ (2nd βπ) β πΈ) β (π β (2nd βπ)) β πΈ) |
48 | 1, 2, 32, 47 | syl3anc 1371 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (π β (2nd βπ)) β πΈ) |
49 | 24, 48 | eqeltrd 2832 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (( I βπ) β (2nd βπ)) β πΈ) |
50 | | fvex 6875 |
. . . . 5
β’ (πβ(1st
βπ)) β
V |
51 | | fvex 6875 |
. . . . . 6
β’ ( I
βπ) β
V |
52 | | fvex 6875 |
. . . . . 6
β’
(2nd βπ) β V |
53 | 51, 52 | coex 7887 |
. . . . 5
β’ (( I
βπ) β
(2nd βπ))
β V |
54 | 3, 4, 5, 27, 10, 11, 6, 50, 53 | dicopelval 39746 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π)) β (β¨(πβ(1st βπ)), (( I βπ) β (2nd
βπ))β© β
(πΌβπ) β ((πβ(1st βπ)) = ((( I βπ) β (2nd
βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)) β§ (( I βπ) β (2nd βπ)) β πΈ))) |
55 | 54 | 3adant3 1132 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (β¨(πβ(1st βπ)), (( I βπ) β (2nd
βπ))β© β
(πΌβπ) β ((πβ(1st βπ)) = ((( I βπ) β (2nd
βπ))β(β©π β ((LTrnβπΎ)βπ)(πβ((ocβπΎ)βπ)) = π)) β§ (( I βπ) β (2nd βπ)) β πΈ))) |
56 | 46, 49, 55 | mpbir2and 711 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β β¨(πβ(1st βπ)), (( I βπ) β (2nd
βπ))β© β
(πΌβπ)) |
57 | 26, 56 | eqeltrd 2832 |
1
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β πΈ β§ π β (πΌβπ))) β (π Β· π) β (πΌβπ)) |