Step | Hyp | Ref
| Expression |
1 | | funcoppc.o |
. . 3
β’ π = (oppCatβπΆ) |
2 | | eqid 2733 |
. . 3
β’
(BaseβπΆ) =
(BaseβπΆ) |
3 | 1, 2 | oppcbas 17659 |
. 2
β’
(BaseβπΆ) =
(Baseβπ) |
4 | | funcoppc.p |
. . 3
β’ π = (oppCatβπ·) |
5 | | eqid 2733 |
. . 3
β’
(Baseβπ·) =
(Baseβπ·) |
6 | 4, 5 | oppcbas 17659 |
. 2
β’
(Baseβπ·) =
(Baseβπ) |
7 | | eqid 2733 |
. 2
β’ (Hom
βπ) = (Hom
βπ) |
8 | | eqid 2733 |
. 2
β’ (Hom
βπ) = (Hom
βπ) |
9 | | eqid 2733 |
. 2
β’
(Idβπ) =
(Idβπ) |
10 | | eqid 2733 |
. 2
β’
(Idβπ) =
(Idβπ) |
11 | | eqid 2733 |
. 2
β’
(compβπ) =
(compβπ) |
12 | | eqid 2733 |
. 2
β’
(compβπ) =
(compβπ) |
13 | | funcoppc.f |
. . . . . 6
β’ (π β πΉ(πΆ Func π·)πΊ) |
14 | | df-br 5148 |
. . . . . 6
β’ (πΉ(πΆ Func π·)πΊ β β¨πΉ, πΊβ© β (πΆ Func π·)) |
15 | 13, 14 | sylib 217 |
. . . . 5
β’ (π β β¨πΉ, πΊβ© β (πΆ Func π·)) |
16 | | funcrcl 17809 |
. . . . 5
β’
(β¨πΉ, πΊβ© β (πΆ Func π·) β (πΆ β Cat β§ π· β Cat)) |
17 | 15, 16 | syl 17 |
. . . 4
β’ (π β (πΆ β Cat β§ π· β Cat)) |
18 | 17 | simpld 496 |
. . 3
β’ (π β πΆ β Cat) |
19 | 1 | oppccat 17664 |
. . 3
β’ (πΆ β Cat β π β Cat) |
20 | 18, 19 | syl 17 |
. 2
β’ (π β π β Cat) |
21 | 4 | oppccat 17664 |
. . 3
β’ (π· β Cat β π β Cat) |
22 | 17, 21 | simpl2im 505 |
. 2
β’ (π β π β Cat) |
23 | 2, 5, 13 | funcf1 17812 |
. 2
β’ (π β πΉ:(BaseβπΆ)βΆ(Baseβπ·)) |
24 | 2, 13 | funcfn2 17815 |
. . 3
β’ (π β πΊ Fn ((BaseβπΆ) Γ (BaseβπΆ))) |
25 | | tposfn 8235 |
. . 3
β’ (πΊ Fn ((BaseβπΆ) Γ (BaseβπΆ)) β tpos πΊ Fn ((BaseβπΆ) Γ (BaseβπΆ))) |
26 | 24, 25 | syl 17 |
. 2
β’ (π β tpos πΊ Fn ((BaseβπΆ) Γ (BaseβπΆ))) |
27 | | eqid 2733 |
. . . 4
β’ (Hom
βπΆ) = (Hom
βπΆ) |
28 | | eqid 2733 |
. . . 4
β’ (Hom
βπ·) = (Hom
βπ·) |
29 | 13 | adantr 482 |
. . . 4
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ))) β πΉ(πΆ Func π·)πΊ) |
30 | | simprr 772 |
. . . 4
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ))) β π¦ β (BaseβπΆ)) |
31 | | simprl 770 |
. . . 4
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ))) β π₯ β (BaseβπΆ)) |
32 | 2, 27, 28, 29, 30, 31 | funcf2 17814 |
. . 3
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ))) β (π¦πΊπ₯):(π¦(Hom βπΆ)π₯)βΆ((πΉβπ¦)(Hom βπ·)(πΉβπ₯))) |
33 | | ovtpos 8221 |
. . . . 5
β’ (π₯tpos πΊπ¦) = (π¦πΊπ₯) |
34 | 33 | feq1i 6705 |
. . . 4
β’ ((π₯tpos πΊπ¦):(π₯(Hom βπ)π¦)βΆ((πΉβπ₯)(Hom βπ)(πΉβπ¦)) β (π¦πΊπ₯):(π₯(Hom βπ)π¦)βΆ((πΉβπ₯)(Hom βπ)(πΉβπ¦))) |
35 | 27, 1 | oppchom 17656 |
. . . . 5
β’ (π₯(Hom βπ)π¦) = (π¦(Hom βπΆ)π₯) |
36 | 28, 4 | oppchom 17656 |
. . . . 5
β’ ((πΉβπ₯)(Hom βπ)(πΉβπ¦)) = ((πΉβπ¦)(Hom βπ·)(πΉβπ₯)) |
37 | 35, 36 | feq23i 6708 |
. . . 4
β’ ((π¦πΊπ₯):(π₯(Hom βπ)π¦)βΆ((πΉβπ₯)(Hom βπ)(πΉβπ¦)) β (π¦πΊπ₯):(π¦(Hom βπΆ)π₯)βΆ((πΉβπ¦)(Hom βπ·)(πΉβπ₯))) |
38 | 34, 37 | bitri 275 |
. . 3
β’ ((π₯tpos πΊπ¦):(π₯(Hom βπ)π¦)βΆ((πΉβπ₯)(Hom βπ)(πΉβπ¦)) β (π¦πΊπ₯):(π¦(Hom βπΆ)π₯)βΆ((πΉβπ¦)(Hom βπ·)(πΉβπ₯))) |
39 | 32, 38 | sylibr 233 |
. 2
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ))) β (π₯tpos πΊπ¦):(π₯(Hom βπ)π¦)βΆ((πΉβπ₯)(Hom βπ)(πΉβπ¦))) |
40 | | eqid 2733 |
. . . 4
β’
(IdβπΆ) =
(IdβπΆ) |
41 | | eqid 2733 |
. . . 4
β’
(Idβπ·) =
(Idβπ·) |
42 | 13 | adantr 482 |
. . . 4
β’ ((π β§ π₯ β (BaseβπΆ)) β πΉ(πΆ Func π·)πΊ) |
43 | | simpr 486 |
. . . 4
β’ ((π β§ π₯ β (BaseβπΆ)) β π₯ β (BaseβπΆ)) |
44 | 2, 40, 41, 42, 43 | funcid 17816 |
. . 3
β’ ((π β§ π₯ β (BaseβπΆ)) β ((π₯πΊπ₯)β((IdβπΆ)βπ₯)) = ((Idβπ·)β(πΉβπ₯))) |
45 | | ovtpos 8221 |
. . . . 5
β’ (π₯tpos πΊπ₯) = (π₯πΊπ₯) |
46 | 45 | a1i 11 |
. . . 4
β’ ((π β§ π₯ β (BaseβπΆ)) β (π₯tpos πΊπ₯) = (π₯πΊπ₯)) |
47 | 1, 40 | oppcid 17663 |
. . . . . . 7
β’ (πΆ β Cat β
(Idβπ) =
(IdβπΆ)) |
48 | 18, 47 | syl 17 |
. . . . . 6
β’ (π β (Idβπ) = (IdβπΆ)) |
49 | 48 | adantr 482 |
. . . . 5
β’ ((π β§ π₯ β (BaseβπΆ)) β (Idβπ) = (IdβπΆ)) |
50 | 49 | fveq1d 6890 |
. . . 4
β’ ((π β§ π₯ β (BaseβπΆ)) β ((Idβπ)βπ₯) = ((IdβπΆ)βπ₯)) |
51 | 46, 50 | fveq12d 6895 |
. . 3
β’ ((π β§ π₯ β (BaseβπΆ)) β ((π₯tpos πΊπ₯)β((Idβπ)βπ₯)) = ((π₯πΊπ₯)β((IdβπΆ)βπ₯))) |
52 | 4, 41 | oppcid 17663 |
. . . . . 6
β’ (π· β Cat β
(Idβπ) =
(Idβπ·)) |
53 | 17, 52 | simpl2im 505 |
. . . . 5
β’ (π β (Idβπ) = (Idβπ·)) |
54 | 53 | adantr 482 |
. . . 4
β’ ((π β§ π₯ β (BaseβπΆ)) β (Idβπ) = (Idβπ·)) |
55 | 54 | fveq1d 6890 |
. . 3
β’ ((π β§ π₯ β (BaseβπΆ)) β ((Idβπ)β(πΉβπ₯)) = ((Idβπ·)β(πΉβπ₯))) |
56 | 44, 51, 55 | 3eqtr4d 2783 |
. 2
β’ ((π β§ π₯ β (BaseβπΆ)) β ((π₯tpos πΊπ₯)β((Idβπ)βπ₯)) = ((Idβπ)β(πΉβπ₯))) |
57 | | eqid 2733 |
. . . . 5
β’
(compβπΆ) =
(compβπΆ) |
58 | | eqid 2733 |
. . . . 5
β’
(compβπ·) =
(compβπ·) |
59 | 13 | 3ad2ant1 1134 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β πΉ(πΆ Func π·)πΊ) |
60 | | simp23 1209 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β π§ β (BaseβπΆ)) |
61 | | simp22 1208 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β π¦ β (BaseβπΆ)) |
62 | | simp21 1207 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β π₯ β (BaseβπΆ)) |
63 | | simp3r 1203 |
. . . . . 6
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β π β (π¦(Hom βπ)π§)) |
64 | 27, 1 | oppchom 17656 |
. . . . . 6
β’ (π¦(Hom βπ)π§) = (π§(Hom βπΆ)π¦) |
65 | 63, 64 | eleqtrdi 2844 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β π β (π§(Hom βπΆ)π¦)) |
66 | | simp3l 1202 |
. . . . . 6
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β π β (π₯(Hom βπ)π¦)) |
67 | 66, 35 | eleqtrdi 2844 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β π β (π¦(Hom βπΆ)π₯)) |
68 | 2, 27, 57, 58, 59, 60, 61, 62, 65, 67 | funcco 17817 |
. . . 4
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β ((π§πΊπ₯)β(π(β¨π§, π¦β©(compβπΆ)π₯)π)) = (((π¦πΊπ₯)βπ)(β¨(πΉβπ§), (πΉβπ¦)β©(compβπ·)(πΉβπ₯))((π§πΊπ¦)βπ))) |
69 | 2, 57, 1, 62, 61, 60 | oppcco 17658 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β (π(β¨π₯, π¦β©(compβπ)π§)π) = (π(β¨π§, π¦β©(compβπΆ)π₯)π)) |
70 | 69 | fveq2d 6892 |
. . . 4
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β ((π§πΊπ₯)β(π(β¨π₯, π¦β©(compβπ)π§)π)) = ((π§πΊπ₯)β(π(β¨π§, π¦β©(compβπΆ)π₯)π))) |
71 | 23 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β πΉ:(BaseβπΆ)βΆ(Baseβπ·)) |
72 | 71, 62 | ffvelcdmd 7083 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β (πΉβπ₯) β (Baseβπ·)) |
73 | 71, 61 | ffvelcdmd 7083 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β (πΉβπ¦) β (Baseβπ·)) |
74 | 71, 60 | ffvelcdmd 7083 |
. . . . 5
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β (πΉβπ§) β (Baseβπ·)) |
75 | 5, 58, 4, 72, 73, 74 | oppcco 17658 |
. . . 4
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β (((π§πΊπ¦)βπ)(β¨(πΉβπ₯), (πΉβπ¦)β©(compβπ)(πΉβπ§))((π¦πΊπ₯)βπ)) = (((π¦πΊπ₯)βπ)(β¨(πΉβπ§), (πΉβπ¦)β©(compβπ·)(πΉβπ₯))((π§πΊπ¦)βπ))) |
76 | 68, 70, 75 | 3eqtr4d 2783 |
. . 3
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β ((π§πΊπ₯)β(π(β¨π₯, π¦β©(compβπ)π§)π)) = (((π§πΊπ¦)βπ)(β¨(πΉβπ₯), (πΉβπ¦)β©(compβπ)(πΉβπ§))((π¦πΊπ₯)βπ))) |
77 | | ovtpos 8221 |
. . . 4
β’ (π₯tpos πΊπ§) = (π§πΊπ₯) |
78 | 77 | fveq1i 6889 |
. . 3
β’ ((π₯tpos πΊπ§)β(π(β¨π₯, π¦β©(compβπ)π§)π)) = ((π§πΊπ₯)β(π(β¨π₯, π¦β©(compβπ)π§)π)) |
79 | | ovtpos 8221 |
. . . . 5
β’ (π¦tpos πΊπ§) = (π§πΊπ¦) |
80 | 79 | fveq1i 6889 |
. . . 4
β’ ((π¦tpos πΊπ§)βπ) = ((π§πΊπ¦)βπ) |
81 | 33 | fveq1i 6889 |
. . . 4
β’ ((π₯tpos πΊπ¦)βπ) = ((π¦πΊπ₯)βπ) |
82 | 80, 81 | oveq12i 7416 |
. . 3
β’ (((π¦tpos πΊπ§)βπ)(β¨(πΉβπ₯), (πΉβπ¦)β©(compβπ)(πΉβπ§))((π₯tpos πΊπ¦)βπ)) = (((π§πΊπ¦)βπ)(β¨(πΉβπ₯), (πΉβπ¦)β©(compβπ)(πΉβπ§))((π¦πΊπ₯)βπ)) |
83 | 76, 78, 82 | 3eqtr4g 2798 |
. 2
β’ ((π β§ (π₯ β (BaseβπΆ) β§ π¦ β (BaseβπΆ) β§ π§ β (BaseβπΆ)) β§ (π β (π₯(Hom βπ)π¦) β§ π β (π¦(Hom βπ)π§))) β ((π₯tpos πΊπ§)β(π(β¨π₯, π¦β©(compβπ)π§)π)) = (((π¦tpos πΊπ§)βπ)(β¨(πΉβπ₯), (πΉβπ¦)β©(compβπ)(πΉβπ§))((π₯tpos πΊπ¦)βπ))) |
84 | 3, 6, 7, 8, 9, 10,
11, 12, 20, 22, 23, 26, 39, 56, 83 | isfuncd 17811 |
1
β’ (π β πΉ(π Func π)tpos πΊ) |