Metamath Proof Explorer


Theorem isfunc

Description: Value of the set of functors between two categories. (Contributed by Mario Carneiro, 2-Jan-2017)

Ref Expression
Hypotheses isfunc.b โŠข ๐ต = ( Base โ€˜ ๐ท )
isfunc.c โŠข ๐ถ = ( Base โ€˜ ๐ธ )
isfunc.h โŠข ๐ป = ( Hom โ€˜ ๐ท )
isfunc.j โŠข ๐ฝ = ( Hom โ€˜ ๐ธ )
isfunc.1 โŠข 1 = ( Id โ€˜ ๐ท )
isfunc.i โŠข ๐ผ = ( Id โ€˜ ๐ธ )
isfunc.x โŠข ยท = ( comp โ€˜ ๐ท )
isfunc.o โŠข ๐‘‚ = ( comp โ€˜ ๐ธ )
isfunc.d โŠข ( ๐œ‘ โ†’ ๐ท โˆˆ Cat )
isfunc.e โŠข ( ๐œ‘ โ†’ ๐ธ โˆˆ Cat )
Assertion isfunc ( ๐œ‘ โ†’ ( ๐น ( ๐ท Func ๐ธ ) ๐บ โ†” ( ๐น : ๐ต โŸถ ๐ถ โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )

Proof

Step Hyp Ref Expression
1 isfunc.b โŠข ๐ต = ( Base โ€˜ ๐ท )
2 isfunc.c โŠข ๐ถ = ( Base โ€˜ ๐ธ )
3 isfunc.h โŠข ๐ป = ( Hom โ€˜ ๐ท )
4 isfunc.j โŠข ๐ฝ = ( Hom โ€˜ ๐ธ )
5 isfunc.1 โŠข 1 = ( Id โ€˜ ๐ท )
6 isfunc.i โŠข ๐ผ = ( Id โ€˜ ๐ธ )
7 isfunc.x โŠข ยท = ( comp โ€˜ ๐ท )
8 isfunc.o โŠข ๐‘‚ = ( comp โ€˜ ๐ธ )
9 isfunc.d โŠข ( ๐œ‘ โ†’ ๐ท โˆˆ Cat )
10 isfunc.e โŠข ( ๐œ‘ โ†’ ๐ธ โˆˆ Cat )
11 fvexd โŠข ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โ†’ ( Base โ€˜ ๐‘‘ ) โˆˆ V )
12 simpl โŠข ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โ†’ ๐‘‘ = ๐ท )
13 12 fveq2d โŠข ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โ†’ ( Base โ€˜ ๐‘‘ ) = ( Base โ€˜ ๐ท ) )
14 13 1 eqtr4di โŠข ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โ†’ ( Base โ€˜ ๐‘‘ ) = ๐ต )
15 simpr โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ๐‘ = ๐ต )
16 simplr โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ๐‘’ = ๐ธ )
17 16 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Base โ€˜ ๐‘’ ) = ( Base โ€˜ ๐ธ ) )
18 17 2 eqtr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Base โ€˜ ๐‘’ ) = ๐ถ )
19 15 18 feq23d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ๐‘“ : ๐‘ โŸถ ( Base โ€˜ ๐‘’ ) โ†” ๐‘“ : ๐ต โŸถ ๐ถ ) )
20 2 fvexi โŠข ๐ถ โˆˆ V
21 1 fvexi โŠข ๐ต โˆˆ V
22 20 21 elmap โŠข ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โ†” ๐‘“ : ๐ต โŸถ ๐ถ )
23 19 22 bitr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ๐‘“ : ๐‘ โŸถ ( Base โ€˜ ๐‘’ ) โ†” ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) ) )
24 15 sqxpeqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ๐‘ ร— ๐‘ ) = ( ๐ต ร— ๐ต ) )
25 24 ixpeq1d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) = X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) )
26 16 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Hom โ€˜ ๐‘’ ) = ( Hom โ€˜ ๐ธ ) )
27 26 4 eqtr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Hom โ€˜ ๐‘’ ) = ๐ฝ )
28 27 oveqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) = ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) )
29 simpll โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ๐‘‘ = ๐ท )
30 29 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Hom โ€˜ ๐‘‘ ) = ( Hom โ€˜ ๐ท ) )
31 30 3 eqtr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Hom โ€˜ ๐‘‘ ) = ๐ป )
32 31 fveq1d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) = ( ๐ป โ€˜ ๐‘ง ) )
33 28 32 oveq12d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) = ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) )
34 33 ixpeq2dv โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) = X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) )
35 25 34 eqtrd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) = X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) )
36 35 eleq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) โ†” ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) )
37 29 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Id โ€˜ ๐‘‘ ) = ( Id โ€˜ ๐ท ) )
38 37 5 eqtr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Id โ€˜ ๐‘‘ ) = 1 )
39 38 fveq1d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) = ( 1 โ€˜ ๐‘ฅ ) )
40 39 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) )
41 16 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Id โ€˜ ๐‘’ ) = ( Id โ€˜ ๐ธ ) )
42 41 6 eqtr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( Id โ€˜ ๐‘’ ) = ๐ผ )
43 42 fveq1d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) )
44 40 43 eqeq12d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โ†” ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) ) )
45 31 oveqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) = ( ๐‘ฅ ๐ป ๐‘ฆ ) )
46 31 oveqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) = ( ๐‘ฆ ๐ป ๐‘ง ) )
47 29 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( comp โ€˜ ๐‘‘ ) = ( comp โ€˜ ๐ท ) )
48 47 7 eqtr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( comp โ€˜ ๐‘‘ ) = ยท )
49 48 oveqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) = ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) )
50 49 oveqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) = ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) )
51 50 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) )
52 16 fveq2d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( comp โ€˜ ๐‘’ ) = ( comp โ€˜ ๐ธ ) )
53 52 8 eqtr4di โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( comp โ€˜ ๐‘’ ) = ๐‘‚ )
54 53 oveqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) = ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) )
55 54 oveqd โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) )
56 51 55 eqeq12d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
57 46 56 raleqbidv โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
58 45 57 raleqbidv โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
59 15 58 raleqbidv โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
60 15 59 raleqbidv โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
61 44 60 anbi12d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) โ†” ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
62 15 61 raleqbidv โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( โˆ€ ๐‘ฅ โˆˆ ๐‘ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) โ†” โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
63 23 36 62 3anbi123d โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ๐‘“ : ๐‘ โŸถ ( Base โ€˜ ๐‘’ ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†” ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )
64 df-3an โŠข ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†” ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
65 63 64 bitrdi โŠข ( ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โˆง ๐‘ = ๐ต ) โ†’ ( ( ๐‘“ : ๐‘ โŸถ ( Base โ€˜ ๐‘’ ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†” ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )
66 11 14 65 sbcied2 โŠข ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โ†’ ( [ ( Base โ€˜ ๐‘‘ ) / ๐‘ ] ( ๐‘“ : ๐‘ โŸถ ( Base โ€˜ ๐‘’ ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†” ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )
67 66 opabbidv โŠข ( ( ๐‘‘ = ๐ท โˆง ๐‘’ = ๐ธ ) โ†’ { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ [ ( Base โ€˜ ๐‘‘ ) / ๐‘ ] ( ๐‘“ : ๐‘ โŸถ ( Base โ€˜ ๐‘’ ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } = { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } )
68 df-func โŠข Func = ( ๐‘‘ โˆˆ Cat , ๐‘’ โˆˆ Cat โ†ฆ { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ [ ( Base โ€˜ ๐‘‘ ) / ๐‘ ] ( ๐‘“ : ๐‘ โŸถ ( Base โ€˜ ๐‘’ ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐‘ ร— ๐‘ ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ( Hom โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ( Hom โ€˜ ๐‘‘ ) โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( ( Id โ€˜ ๐‘‘ ) โ€˜ ๐‘ฅ ) ) = ( ( Id โ€˜ ๐‘’ ) โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐‘ โˆ€ ๐‘ง โˆˆ ๐‘ โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ( Hom โ€˜ ๐‘‘ ) ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ( Hom โ€˜ ๐‘‘ ) ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ( comp โ€˜ ๐‘‘ ) ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ( comp โ€˜ ๐‘’ ) ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } )
69 ovex โŠข ( ๐ถ โ†‘m ๐ต ) โˆˆ V
70 vsnex โŠข { ๐‘“ } โˆˆ V
71 ovex โŠข ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆˆ V
72 71 rgenw โŠข โˆ€ ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆˆ V
73 ixpexg โŠข ( โˆ€ ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆˆ V โ†’ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆˆ V )
74 72 73 ax-mp โŠข X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆˆ V
75 70 74 xpex โŠข ( { ๐‘“ } ร— X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆˆ V
76 69 75 iunex โŠข โˆช ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) ( { ๐‘“ } ร— X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆˆ V
77 simpl โŠข ( ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†’ ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) )
78 77 anim2i โŠข ( ( ๐‘‘ = โŸจ ๐‘“ , ๐‘” โŸฉ โˆง ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) โ†’ ( ๐‘‘ = โŸจ ๐‘“ , ๐‘” โŸฉ โˆง ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) ) )
79 78 2eximi โŠข ( โˆƒ ๐‘“ โˆƒ ๐‘” ( ๐‘‘ = โŸจ ๐‘“ , ๐‘” โŸฉ โˆง ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) โ†’ โˆƒ ๐‘“ โˆƒ ๐‘” ( ๐‘‘ = โŸจ ๐‘“ , ๐‘” โŸฉ โˆง ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) ) )
80 elopab โŠข ( ๐‘‘ โˆˆ { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } โ†” โˆƒ ๐‘“ โˆƒ ๐‘” ( ๐‘‘ = โŸจ ๐‘“ , ๐‘” โŸฉ โˆง ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )
81 eliunxp โŠข ( ๐‘‘ โˆˆ โˆช ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) ( { ๐‘“ } ร— X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โ†” โˆƒ ๐‘“ โˆƒ ๐‘” ( ๐‘‘ = โŸจ ๐‘“ , ๐‘” โŸฉ โˆง ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) ) )
82 79 80 81 3imtr4i โŠข ( ๐‘‘ โˆˆ { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } โ†’ ๐‘‘ โˆˆ โˆช ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) ( { ๐‘“ } ร— X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) )
83 82 ssriv โŠข { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } โІ โˆช ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) ( { ๐‘“ } ร— X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) )
84 76 83 ssexi โŠข { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } โˆˆ V
85 67 68 84 ovmpoa โŠข ( ( ๐ท โˆˆ Cat โˆง ๐ธ โˆˆ Cat ) โ†’ ( ๐ท Func ๐ธ ) = { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } )
86 9 10 85 syl2anc โŠข ( ๐œ‘ โ†’ ( ๐ท Func ๐ธ ) = { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } )
87 86 breqd โŠข ( ๐œ‘ โ†’ ( ๐น ( ๐ท Func ๐ธ ) ๐บ โ†” ๐น { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } ๐บ ) )
88 brabv โŠข ( ๐น { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } ๐บ โ†’ ( ๐น โˆˆ V โˆง ๐บ โˆˆ V ) )
89 elex โŠข ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โ†’ ๐น โˆˆ V )
90 elex โŠข ( ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โ†’ ๐บ โˆˆ V )
91 89 90 anim12i โŠข ( ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โ†’ ( ๐น โˆˆ V โˆง ๐บ โˆˆ V ) )
92 91 3adant3 โŠข ( ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†’ ( ๐น โˆˆ V โˆง ๐บ โˆˆ V ) )
93 simpl โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ๐‘“ = ๐น )
94 93 eleq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โ†” ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) ) )
95 simpr โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ๐‘” = ๐บ )
96 93 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) = ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) )
97 93 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) = ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) )
98 96 97 oveq12d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) = ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) )
99 98 oveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) = ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) )
100 99 ixpeq2dv โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) = X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) )
101 95 100 eleq12d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โ†” ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) )
102 95 oveqd โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘ฅ ๐‘” ๐‘ฅ ) = ( ๐‘ฅ ๐บ ๐‘ฅ ) )
103 102 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) )
104 93 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘“ โ€˜ ๐‘ฅ ) = ( ๐น โ€˜ ๐‘ฅ ) )
105 104 fveq2d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) )
106 103 105 eqeq12d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โ†” ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) ) )
107 95 oveqd โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘ฅ ๐‘” ๐‘ง ) = ( ๐‘ฅ ๐บ ๐‘ง ) )
108 107 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) )
109 93 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘“ โ€˜ ๐‘ฆ ) = ( ๐น โ€˜ ๐‘ฆ ) )
110 104 109 opeq12d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ = โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ )
111 93 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘“ โ€˜ ๐‘ง ) = ( ๐น โ€˜ ๐‘ง ) )
112 110 111 oveq12d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) = ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) )
113 95 oveqd โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘ฆ ๐‘” ๐‘ง ) = ( ๐‘ฆ ๐บ ๐‘ง ) )
114 113 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) = ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) )
115 95 oveqd โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘ฅ ๐‘” ๐‘ฆ ) = ( ๐‘ฅ ๐บ ๐‘ฆ ) )
116 115 fveq1d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) = ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) )
117 112 114 116 oveq123d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) )
118 108 117 eqeq12d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
119 118 2ralbidv โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
120 119 2ralbidv โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) โ†” โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) )
121 106 120 anbi12d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) โ†” ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
122 121 ralbidv โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) โ†” โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
123 94 101 122 3anbi123d โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†” ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )
124 64 123 bitr3id โŠข ( ( ๐‘“ = ๐น โˆง ๐‘” = ๐บ ) โ†’ ( ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†” ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )
125 eqid โŠข { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } = { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) }
126 124 125 brabga โŠข ( ( ๐น โˆˆ V โˆง ๐บ โˆˆ V ) โ†’ ( ๐น { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } ๐บ โ†” ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )
127 88 92 126 pm5.21nii โŠข ( ๐น { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } ๐บ โ†” ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
128 20 21 elmap โŠข ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โ†” ๐น : ๐ต โŸถ ๐ถ )
129 128 3anbi1i โŠข ( ( ๐น โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) โ†” ( ๐น : ๐ต โŸถ ๐ถ โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
130 127 129 bitri โŠข ( ๐น { โŸจ ๐‘“ , ๐‘” โŸฉ โˆฃ ( ( ๐‘“ โˆˆ ( ๐ถ โ†‘m ๐ต ) โˆง ๐‘” โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐‘“ โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐‘“ โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐‘” ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐‘“ โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐‘” ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐‘” ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐‘“ โ€˜ ๐‘ฅ ) , ( ๐‘“ โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐‘“ โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐‘” ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) } ๐บ โ†” ( ๐น : ๐ต โŸถ ๐ถ โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) )
131 87 130 bitrdi โŠข ( ๐œ‘ โ†’ ( ๐น ( ๐ท Func ๐ธ ) ๐บ โ†” ( ๐น : ๐ต โŸถ ๐ถ โˆง ๐บ โˆˆ X ๐‘ง โˆˆ ( ๐ต ร— ๐ต ) ( ( ( ๐น โ€˜ ( 1st โ€˜ ๐‘ง ) ) ๐ฝ ( ๐น โ€˜ ( 2nd โ€˜ ๐‘ง ) ) ) โ†‘m ( ๐ป โ€˜ ๐‘ง ) ) โˆง โˆ€ ๐‘ฅ โˆˆ ๐ต ( ( ( ๐‘ฅ ๐บ ๐‘ฅ ) โ€˜ ( 1 โ€˜ ๐‘ฅ ) ) = ( ๐ผ โ€˜ ( ๐น โ€˜ ๐‘ฅ ) ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘š โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘› โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘ฅ ๐บ ๐‘ง ) โ€˜ ( ๐‘› ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘š ) ) = ( ( ( ๐‘ฆ ๐บ ๐‘ง ) โ€˜ ๐‘› ) ( โŸจ ( ๐น โ€˜ ๐‘ฅ ) , ( ๐น โ€˜ ๐‘ฆ ) โŸฉ ๐‘‚ ( ๐น โ€˜ ๐‘ง ) ) ( ( ๐‘ฅ ๐บ ๐‘ฆ ) โ€˜ ๐‘š ) ) ) ) ) )