Step | Hyp | Ref
| Expression |
1 | | xpccofval.t |
. . 3
โข ๐ = (๐ถ รc ๐ท) |
2 | | xpccofval.b |
. . 3
โข ๐ต = (Baseโ๐) |
3 | | xpccofval.k |
. . 3
โข ๐พ = (Hom โ๐) |
4 | | xpccofval.o1 |
. . 3
โข ยท =
(compโ๐ถ) |
5 | | xpccofval.o2 |
. . 3
โข โ =
(compโ๐ท) |
6 | | xpccofval.o |
. . 3
โข ๐ = (compโ๐) |
7 | 1, 2, 3, 4, 5, 6 | xpccofval 18130 |
. 2
โข ๐ = (๐ฅ โ (๐ต ร ๐ต), ๐ฆ โ ๐ต โฆ (๐ โ ((2nd โ๐ฅ)๐พ๐ฆ), ๐ โ (๐พโ๐ฅ) โฆ โจ((1st โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ)) |
8 | | xpcco.x |
. . . 4
โข (๐ โ ๐ โ ๐ต) |
9 | | xpcco.y |
. . . 4
โข (๐ โ ๐ โ ๐ต) |
10 | 8, 9 | opelxpd 5713 |
. . 3
โข (๐ โ โจ๐, ๐โฉ โ (๐ต ร ๐ต)) |
11 | | xpcco.z |
. . . 4
โข (๐ โ ๐ โ ๐ต) |
12 | 11 | adantr 481 |
. . 3
โข ((๐ โง ๐ฅ = โจ๐, ๐โฉ) โ ๐ โ ๐ต) |
13 | | ovex 7438 |
. . . . 5
โข
((2nd โ๐ฅ)๐พ๐ฆ) โ V |
14 | | fvex 6901 |
. . . . 5
โข (๐พโ๐ฅ) โ V |
15 | 13, 14 | mpoex 8062 |
. . . 4
โข (๐ โ ((2nd
โ๐ฅ)๐พ๐ฆ), ๐ โ (๐พโ๐ฅ) โฆ โจ((1st โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ) โ V |
16 | 15 | a1i 11 |
. . 3
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (๐ โ ((2nd โ๐ฅ)๐พ๐ฆ), ๐ โ (๐พโ๐ฅ) โฆ โจ((1st โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ) โ V) |
17 | | xpcco.g |
. . . . . 6
โข (๐ โ ๐บ โ (๐๐พ๐)) |
18 | 17 | adantr 481 |
. . . . 5
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ๐บ โ (๐๐พ๐)) |
19 | | simprl 769 |
. . . . . . . 8
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ๐ฅ = โจ๐, ๐โฉ) |
20 | 19 | fveq2d 6892 |
. . . . . . 7
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (2nd โ๐ฅ) = (2nd
โโจ๐, ๐โฉ)) |
21 | | op2ndg 7984 |
. . . . . . . . 9
โข ((๐ โ ๐ต โง ๐ โ ๐ต) โ (2nd โโจ๐, ๐โฉ) = ๐) |
22 | 8, 9, 21 | syl2anc 584 |
. . . . . . . 8
โข (๐ โ (2nd
โโจ๐, ๐โฉ) = ๐) |
23 | 22 | adantr 481 |
. . . . . . 7
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (2nd โโจ๐, ๐โฉ) = ๐) |
24 | 20, 23 | eqtrd 2772 |
. . . . . 6
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (2nd โ๐ฅ) = ๐) |
25 | | simprr 771 |
. . . . . 6
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ๐ฆ = ๐) |
26 | 24, 25 | oveq12d 7423 |
. . . . 5
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ((2nd โ๐ฅ)๐พ๐ฆ) = (๐๐พ๐)) |
27 | 18, 26 | eleqtrrd 2836 |
. . . 4
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ๐บ โ ((2nd โ๐ฅ)๐พ๐ฆ)) |
28 | | xpcco.f |
. . . . . . 7
โข (๐ โ ๐น โ (๐๐พ๐)) |
29 | 28 | adantr 481 |
. . . . . 6
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ๐น โ (๐๐พ๐)) |
30 | 19 | fveq2d 6892 |
. . . . . . 7
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (๐พโ๐ฅ) = (๐พโโจ๐, ๐โฉ)) |
31 | | df-ov 7408 |
. . . . . . 7
โข (๐๐พ๐) = (๐พโโจ๐, ๐โฉ) |
32 | 30, 31 | eqtr4di 2790 |
. . . . . 6
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (๐พโ๐ฅ) = (๐๐พ๐)) |
33 | 29, 32 | eleqtrrd 2836 |
. . . . 5
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ๐น โ (๐พโ๐ฅ)) |
34 | 33 | adantr 481 |
. . . 4
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง ๐ = ๐บ) โ ๐น โ (๐พโ๐ฅ)) |
35 | | opex 5463 |
. . . . 5
โข
โจ((1st โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ โ V |
36 | 35 | a1i 11 |
. . . 4
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ โจ((1st
โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ โ V) |
37 | 19 | fveq2d 6892 |
. . . . . . . . . . 11
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (1st โ๐ฅ) = (1st
โโจ๐, ๐โฉ)) |
38 | | op1stg 7983 |
. . . . . . . . . . . . 13
โข ((๐ โ ๐ต โง ๐ โ ๐ต) โ (1st โโจ๐, ๐โฉ) = ๐) |
39 | 8, 9, 38 | syl2anc 584 |
. . . . . . . . . . . 12
โข (๐ โ (1st
โโจ๐, ๐โฉ) = ๐) |
40 | 39 | adantr 481 |
. . . . . . . . . . 11
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (1st โโจ๐, ๐โฉ) = ๐) |
41 | 37, 40 | eqtrd 2772 |
. . . . . . . . . 10
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ (1st โ๐ฅ) = ๐) |
42 | 41 | adantr 481 |
. . . . . . . . 9
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (1st โ๐ฅ) = ๐) |
43 | 42 | fveq2d 6892 |
. . . . . . . 8
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (1st
โ(1st โ๐ฅ)) = (1st โ๐)) |
44 | 24 | adantr 481 |
. . . . . . . . 9
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (2nd โ๐ฅ) = ๐) |
45 | 44 | fveq2d 6892 |
. . . . . . . 8
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (1st
โ(2nd โ๐ฅ)) = (1st โ๐)) |
46 | 43, 45 | opeq12d 4880 |
. . . . . . 7
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ =
โจ(1st โ๐), (1st โ๐)โฉ) |
47 | | simplrr 776 |
. . . . . . . 8
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ ๐ฆ = ๐) |
48 | 47 | fveq2d 6892 |
. . . . . . 7
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (1st โ๐ฆ) = (1st โ๐)) |
49 | 46, 48 | oveq12d 7423 |
. . . . . 6
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))
= (โจ(1st โ๐), (1st โ๐)โฉ ยท (1st
โ๐))) |
50 | | simprl 769 |
. . . . . . 7
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ ๐ = ๐บ) |
51 | 50 | fveq2d 6892 |
. . . . . 6
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (1st โ๐) = (1st โ๐บ)) |
52 | | simprr 771 |
. . . . . . 7
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ ๐ = ๐น) |
53 | 52 | fveq2d 6892 |
. . . . . 6
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (1st โ๐) = (1st โ๐น)) |
54 | 49, 51, 53 | oveq123d 7426 |
. . . . 5
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ ((1st โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)) = ((1st โ๐บ)(โจ(1st
โ๐), (1st
โ๐)โฉ ยท
(1st โ๐))(1st โ๐น))) |
55 | 42 | fveq2d 6892 |
. . . . . . . 8
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (2nd
โ(1st โ๐ฅ)) = (2nd โ๐)) |
56 | 44 | fveq2d 6892 |
. . . . . . . 8
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (2nd
โ(2nd โ๐ฅ)) = (2nd โ๐)) |
57 | 55, 56 | opeq12d 4880 |
. . . . . . 7
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ =
โจ(2nd โ๐), (2nd โ๐)โฉ) |
58 | 47 | fveq2d 6892 |
. . . . . . 7
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (2nd โ๐ฆ) = (2nd โ๐)) |
59 | 57, 58 | oveq12d 7423 |
. . . . . 6
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))
= (โจ(2nd โ๐), (2nd โ๐)โฉ โ (2nd
โ๐))) |
60 | 50 | fveq2d 6892 |
. . . . . 6
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (2nd โ๐) = (2nd โ๐บ)) |
61 | 52 | fveq2d 6892 |
. . . . . 6
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ (2nd โ๐) = (2nd โ๐น)) |
62 | 59, 60, 61 | oveq123d 7426 |
. . . . 5
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐)) = ((2nd โ๐บ)(โจ(2nd
โ๐), (2nd
โ๐)โฉ โ
(2nd โ๐))(2nd โ๐น))) |
63 | 54, 62 | opeq12d 4880 |
. . . 4
โข (((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โง (๐ = ๐บ โง ๐ = ๐น)) โ โจ((1st
โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ = โจ((1st
โ๐บ)(โจ(1st โ๐), (1st โ๐)โฉ ยท (1st
โ๐))(1st
โ๐น)),
((2nd โ๐บ)(โจ(2nd โ๐), (2nd โ๐)โฉ โ (2nd
โ๐))(2nd
โ๐น))โฉ) |
64 | 27, 34, 36, 63 | ovmpodv2 7562 |
. . 3
โข ((๐ โง (๐ฅ = โจ๐, ๐โฉ โง ๐ฆ = ๐)) โ ((โจ๐, ๐โฉ๐๐) = (๐ โ ((2nd โ๐ฅ)๐พ๐ฆ), ๐ โ (๐พโ๐ฅ) โฆ โจ((1st โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ) โ (๐บ(โจ๐, ๐โฉ๐๐)๐น) = โจ((1st โ๐บ)(โจ(1st
โ๐), (1st
โ๐)โฉ ยท
(1st โ๐))(1st โ๐น)), ((2nd โ๐บ)(โจ(2nd
โ๐), (2nd
โ๐)โฉ โ
(2nd โ๐))(2nd โ๐น))โฉ)) |
65 | 10, 12, 16, 64 | ovmpodv 7561 |
. 2
โข (๐ โ (๐ = (๐ฅ โ (๐ต ร ๐ต), ๐ฆ โ ๐ต โฆ (๐ โ ((2nd โ๐ฅ)๐พ๐ฆ), ๐ โ (๐พโ๐ฅ) โฆ โจ((1st โ๐)(โจ(1st
โ(1st โ๐ฅ)), (1st โ(2nd
โ๐ฅ))โฉ ยท
(1st โ๐ฆ))(1st โ๐)), ((2nd โ๐)(โจ(2nd
โ(1st โ๐ฅ)), (2nd โ(2nd
โ๐ฅ))โฉ โ
(2nd โ๐ฆ))(2nd โ๐))โฉ)) โ (๐บ(โจ๐, ๐โฉ๐๐)๐น) = โจ((1st โ๐บ)(โจ(1st
โ๐), (1st
โ๐)โฉ ยท
(1st โ๐))(1st โ๐น)), ((2nd โ๐บ)(โจ(2nd
โ๐), (2nd
โ๐)โฉ โ
(2nd โ๐))(2nd โ๐น))โฉ)) |
66 | 7, 65 | mpi 20 |
1
โข (๐ โ (๐บ(โจ๐, ๐โฉ๐๐)๐น) = โจ((1st โ๐บ)(โจ(1st
โ๐), (1st
โ๐)โฉ ยท
(1st โ๐))(1st โ๐น)), ((2nd โ๐บ)(โจ(2nd
โ๐), (2nd
โ๐)โฉ โ
(2nd โ๐))(2nd โ๐น))โฉ) |