Metamath Proof Explorer


Theorem mdetmul

Description: Multiplicativity of the determinant function: the determinant of a matrix product of square matrices equals the product of their determinants. Proposition 4.15 in Lang p. 517. (Contributed by Stefan O'Rear, 16-Jul-2018)

Ref Expression
Hypotheses mdetmul.a โŠข ๐ด = ( ๐‘ Mat ๐‘… )
mdetmul.b โŠข ๐ต = ( Base โ€˜ ๐ด )
mdetmul.d โŠข ๐ท = ( ๐‘ maDet ๐‘… )
mdetmul.t1 โŠข ยท = ( .r โ€˜ ๐‘… )
mdetmul.t2 โŠข โˆ™ = ( .r โ€˜ ๐ด )
Assertion mdetmul ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐ท โ€˜ ( ๐น โˆ™ ๐บ ) ) = ( ( ๐ท โ€˜ ๐น ) ยท ( ๐ท โ€˜ ๐บ ) ) )

Proof

Step Hyp Ref Expression
1 mdetmul.a โŠข ๐ด = ( ๐‘ Mat ๐‘… )
2 mdetmul.b โŠข ๐ต = ( Base โ€˜ ๐ด )
3 mdetmul.d โŠข ๐ท = ( ๐‘ maDet ๐‘… )
4 mdetmul.t1 โŠข ยท = ( .r โ€˜ ๐‘… )
5 mdetmul.t2 โŠข โˆ™ = ( .r โ€˜ ๐ด )
6 eqid โŠข ( Base โ€˜ ๐‘… ) = ( Base โ€˜ ๐‘… )
7 eqid โŠข ( 0g โ€˜ ๐‘… ) = ( 0g โ€˜ ๐‘… )
8 eqid โŠข ( 1r โ€˜ ๐‘… ) = ( 1r โ€˜ ๐‘… )
9 eqid โŠข ( +g โ€˜ ๐‘… ) = ( +g โ€˜ ๐‘… )
10 1 2 matrcl โŠข ( ๐น โˆˆ ๐ต โ†’ ( ๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ V ) )
11 10 simpld โŠข ( ๐น โˆˆ ๐ต โ†’ ๐‘ โˆˆ Fin )
12 11 3ad2ant2 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐‘ โˆˆ Fin )
13 crngring โŠข ( ๐‘… โˆˆ CRing โ†’ ๐‘… โˆˆ Ring )
14 13 3ad2ant1 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐‘… โˆˆ Ring )
15 3 1 2 6 mdetf โŠข ( ๐‘… โˆˆ CRing โ†’ ๐ท : ๐ต โŸถ ( Base โ€˜ ๐‘… ) )
16 15 3ad2ant1 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐ท : ๐ต โŸถ ( Base โ€˜ ๐‘… ) )
17 16 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ๐‘Ž โˆˆ ๐ต ) โ†’ ๐ท : ๐ต โŸถ ( Base โ€˜ ๐‘… ) )
18 1 matring โŠข ( ( ๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ Ring ) โ†’ ๐ด โˆˆ Ring )
19 12 14 18 syl2anc โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐ด โˆˆ Ring )
20 19 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ๐‘Ž โˆˆ ๐ต ) โ†’ ๐ด โˆˆ Ring )
21 simpr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ๐‘Ž โˆˆ ๐ต ) โ†’ ๐‘Ž โˆˆ ๐ต )
22 simpl3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ๐‘Ž โˆˆ ๐ต ) โ†’ ๐บ โˆˆ ๐ต )
23 2 5 ringcl โŠข ( ( ๐ด โˆˆ Ring โˆง ๐‘Ž โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐‘Ž โˆ™ ๐บ ) โˆˆ ๐ต )
24 20 21 22 23 syl3anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ๐‘Ž โˆˆ ๐ต ) โ†’ ( ๐‘Ž โˆ™ ๐บ ) โˆˆ ๐ต )
25 17 24 ffvelcdmd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ๐‘Ž โˆˆ ๐ต ) โ†’ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) โˆˆ ( Base โ€˜ ๐‘… ) )
26 25 fmpttd โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) : ๐ต โŸถ ( Base โ€˜ ๐‘… ) )
27 simp21 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ๐‘ โˆˆ ๐ต )
28 fvoveq1 โŠข ( ๐‘Ž = ๐‘ โ†’ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
29 eqid โŠข ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) = ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) )
30 fvex โŠข ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) โˆˆ V
31 28 29 30 fvmpt โŠข ( ๐‘ โˆˆ ๐ต โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
32 27 31 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
33 simp11 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ๐‘… โˆˆ CRing )
34 19 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โ†’ ๐ด โˆˆ Ring )
35 simpr1 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โ†’ ๐‘ โˆˆ ๐ต )
36 simpl3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โ†’ ๐บ โˆˆ ๐ต )
37 2 5 ringcl โŠข ( ( ๐ด โˆˆ Ring โˆง ๐‘ โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
38 34 35 36 37 syl3anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
39 38 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
40 simp22 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ๐‘ โˆˆ ๐‘ )
41 simp23 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ๐‘‘ โˆˆ ๐‘ )
42 simp3l โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ๐‘ โ‰  ๐‘‘ )
43 simpl3r โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) )
44 eqid โŠข ๐‘ = ๐‘
45 oveq1 โŠข ( ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) โ†’ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) = ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) )
46 45 ralimi โŠข ( โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) โ†’ โˆ€ ๐‘’ โˆˆ ๐‘ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) = ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) )
47 mpteq12 โŠข ( ( ๐‘ = ๐‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) = ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) โ†’ ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) = ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) )
48 44 46 47 sylancr โŠข ( โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) โ†’ ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) = ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) )
49 48 oveq2d โŠข ( โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) โ†’ ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
50 43 49 syl โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
51 simp1 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐‘… โˆˆ CRing )
52 eqid โŠข ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) = ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ )
53 1 52 matmulr โŠข ( ( ๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ CRing ) โ†’ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) = ( .r โ€˜ ๐ด ) )
54 53 5 eqtr4di โŠข ( ( ๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ CRing ) โ†’ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) = โˆ™ )
55 12 51 54 syl2anc โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) = โˆ™ )
56 55 ad2antrr โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) = โˆ™ )
57 56 oveqd โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ๐‘ โˆ™ ๐บ ) )
58 57 oveqd โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ๐‘Ž ) = ( ๐‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) )
59 simpll1 โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐‘… โˆˆ CRing )
60 12 ad2antrr โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐‘ โˆˆ Fin )
61 simplr1 โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐‘ โˆˆ ๐ต )
62 1 6 2 matbas2i โŠข ( ๐‘ โˆˆ ๐ต โ†’ ๐‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
63 61 62 syl โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
64 1 6 2 matbas2i โŠข ( ๐บ โˆˆ ๐ต โ†’ ๐บ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
65 64 3ad2ant3 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐บ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
66 65 ad2antrr โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐บ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
67 simplr2 โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐‘ โˆˆ ๐‘ )
68 simpr โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐‘Ž โˆˆ ๐‘ )
69 52 6 4 59 60 60 60 63 66 67 68 mamufv โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ๐‘Ž ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
70 58 69 eqtr3d โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
71 70 3adantl3 โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
72 57 oveqd โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘‘ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ๐‘Ž ) = ( ๐‘‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) )
73 simplr3 โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ๐‘‘ โˆˆ ๐‘ )
74 52 6 4 59 60 60 60 63 66 73 68 mamufv โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘‘ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ๐‘Ž ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
75 72 74 eqtr3d โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
76 75 3adantl3 โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) = ( ๐‘… ฮฃg ( ๐‘’ โˆˆ ๐‘ โ†ฆ ( ( ๐‘‘ ๐‘ ๐‘’ ) ยท ( ๐‘’ ๐บ ๐‘Ž ) ) ) ) )
77 50 71 76 3eqtr4d โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โˆง ๐‘Ž โˆˆ ๐‘ ) โ†’ ( ๐‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) = ( ๐‘‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) )
78 77 ralrimiva โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ โˆ€ ๐‘Ž โˆˆ ๐‘ ( ๐‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) = ( ๐‘‘ ( ๐‘ โˆ™ ๐บ ) ๐‘Ž ) )
79 3 1 2 7 33 39 40 41 42 78 mdetralt โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) = ( 0g โ€˜ ๐‘… ) )
80 32 79 eqtrd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) โˆง ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( 0g โ€˜ ๐‘… ) )
81 80 3expia โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐‘ โˆง ๐‘‘ โˆˆ ๐‘ ) ) โ†’ ( ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( 0g โ€˜ ๐‘… ) ) )
82 81 ralrimivvva โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ โˆ€ ๐‘ โˆˆ ๐ต โˆ€ ๐‘ โˆˆ ๐‘ โˆ€ ๐‘‘ โˆˆ ๐‘ ( ( ๐‘ โ‰  ๐‘‘ โˆง โˆ€ ๐‘’ โˆˆ ๐‘ ( ๐‘ ๐‘ ๐‘’ ) = ( ๐‘‘ ๐‘ ๐‘’ ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( 0g โ€˜ ๐‘… ) ) )
83 simp11 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ๐‘… โˆˆ CRing )
84 19 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐ด โˆˆ Ring )
85 simprll โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ ๐ต )
86 simpl3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐บ โˆˆ ๐ต )
87 84 85 86 37 syl3anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
88 87 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
89 simprlr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ ๐ต )
90 2 5 ringcl โŠข ( ( ๐ด โˆˆ Ring โˆง ๐‘ โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
91 84 89 86 90 syl3anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
92 91 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
93 simprrl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘‘ โˆˆ ๐ต )
94 2 5 ringcl โŠข ( ( ๐ด โˆˆ Ring โˆง ๐‘‘ โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐‘‘ โˆ™ ๐บ ) โˆˆ ๐ต )
95 84 93 86 94 syl3anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘‘ โˆ™ ๐บ ) โˆˆ ๐ต )
96 95 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘‘ โˆ™ ๐บ ) โˆˆ ๐ต )
97 simp2rr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ๐‘’ โˆˆ ๐‘ )
98 simp31 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) )
99 98 oveq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
100 14 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘… โˆˆ Ring )
101 eqid โŠข ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) = ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ )
102 snfi โŠข { ๐‘’ } โˆˆ Fin
103 102 a1i โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ { ๐‘’ } โˆˆ Fin )
104 12 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ Fin )
105 1 6 2 matbas2i โŠข ( ๐‘ โˆˆ ๐ต โ†’ ๐‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
106 89 105 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
107 simprrr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘’ โˆˆ ๐‘ )
108 107 snssd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ { ๐‘’ } โІ ๐‘ )
109 xpss1 โŠข ( { ๐‘’ } โІ ๐‘ โ†’ ( { ๐‘’ } ร— ๐‘ ) โІ ( ๐‘ ร— ๐‘ ) )
110 108 109 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( { ๐‘’ } ร— ๐‘ ) โІ ( ๐‘ ร— ๐‘ ) )
111 elmapssres โŠข ( ( ๐‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) โˆง ( { ๐‘’ } ร— ๐‘ ) โІ ( ๐‘ ร— ๐‘ ) ) โ†’ ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( { ๐‘’ } ร— ๐‘ ) ) )
112 106 110 111 syl2anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( { ๐‘’ } ร— ๐‘ ) ) )
113 1 6 2 matbas2i โŠข ( ๐‘‘ โˆˆ ๐ต โ†’ ๐‘‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
114 93 113 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
115 elmapssres โŠข ( ( ๐‘‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) โˆง ( { ๐‘’ } ร— ๐‘ ) โІ ( ๐‘ ร— ๐‘ ) ) โ†’ ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( { ๐‘’ } ร— ๐‘ ) ) )
116 114 110 115 syl2anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( { ๐‘’ } ร— ๐‘ ) ) )
117 65 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐บ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
118 6 100 101 103 104 104 9 112 116 117 mamudi โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ) )
119 118 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ) )
120 99 119 eqtrd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ) )
121 55 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) = โˆ™ )
122 121 oveqd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ๐‘ โˆ™ ๐บ ) )
123 122 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) )
124 simpl1 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘… โˆˆ CRing )
125 85 62 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
126 52 101 6 124 104 104 104 108 125 117 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
127 123 126 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
128 127 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
129 121 oveqd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ๐‘ โˆ™ ๐บ ) )
130 129 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) )
131 52 101 6 124 104 104 104 108 106 117 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
132 130 131 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
133 121 oveqd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ๐‘‘ โˆ™ ๐บ ) )
134 133 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) )
135 52 101 6 124 104 104 104 108 114 117 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
136 134 135 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
137 132 136 oveq12d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) = ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ) )
138 137 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) = ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ) )
139 120 128 138 3eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) )
140 simp32 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
141 140 oveq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
142 122 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
143 eqid โŠข ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) = ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ )
144 difssd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ โˆ– { ๐‘’ } ) โІ ๐‘ )
145 52 143 6 124 104 104 104 144 125 117 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
146 142 145 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
147 146 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
148 129 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
149 52 143 6 124 104 104 104 144 106 117 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
150 148 149 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
151 150 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
152 141 147 151 3eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
153 simp33 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
154 153 oveq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
155 133 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
156 52 143 6 124 104 104 104 144 114 117 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
157 155 156 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
158 157 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
159 154 147 158 3eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
160 3 1 2 9 83 88 92 96 97 139 152 159 mdetrlin โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) = ( ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) ( +g โ€˜ ๐‘… ) ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) ) )
161 85 31 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
162 161 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
163 fvoveq1 โŠข ( ๐‘Ž = ๐‘ โ†’ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
164 fvex โŠข ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) โˆˆ V
165 163 29 164 fvmpt โŠข ( ๐‘ โˆˆ ๐ต โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
166 89 165 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
167 fvoveq1 โŠข ( ๐‘Ž = ๐‘‘ โ†’ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) = ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) )
168 fvex โŠข ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) โˆˆ V
169 167 29 168 fvmpt โŠข ( ๐‘‘ โˆˆ ๐ต โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) = ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) )
170 93 169 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) = ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) )
171 166 170 oveq12d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) ( +g โ€˜ ๐‘… ) ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) = ( ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) ( +g โ€˜ ๐‘… ) ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) ) )
172 171 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) ( +g โ€˜ ๐‘… ) ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) = ( ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) ( +g โ€˜ ๐‘… ) ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) ) )
173 160 162 172 3eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) ( +g โ€˜ ๐‘… ) ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) )
174 173 3expia โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) ( +g โ€˜ ๐‘… ) ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
175 174 anassrs โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โ†’ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) ( +g โ€˜ ๐‘… ) ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
176 175 ralrimivva โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ๐ต ) ) โ†’ โˆ€ ๐‘‘ โˆˆ ๐ต โˆ€ ๐‘’ โˆˆ ๐‘ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) ( +g โ€˜ ๐‘… ) ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
177 176 ralrimivva โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ โˆ€ ๐‘ โˆˆ ๐ต โˆ€ ๐‘ โˆˆ ๐ต โˆ€ ๐‘‘ โˆˆ ๐ต โˆ€ ๐‘’ โˆˆ ๐‘ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆ˜f ( +g โ€˜ ๐‘… ) ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) ( +g โ€˜ ๐‘… ) ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
178 simp11 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ๐‘… โˆˆ CRing )
179 19 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐ด โˆˆ Ring )
180 simprll โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ ๐ต )
181 simpl3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐บ โˆˆ ๐ต )
182 179 180 181 37 syl3anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
183 182 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โˆ™ ๐บ ) โˆˆ ๐ต )
184 simp2lr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) )
185 simprrl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘‘ โˆˆ ๐ต )
186 179 185 181 94 syl3anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘‘ โˆ™ ๐บ ) โˆˆ ๐ต )
187 186 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘‘ โˆ™ ๐บ ) โˆˆ ๐ต )
188 simp2rr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ๐‘’ โˆˆ ๐‘ )
189 simp3l โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) )
190 189 oveq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
191 55 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) = โˆ™ )
192 191 oveqd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ๐‘ โˆ™ ๐บ ) )
193 192 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) )
194 simpl1 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘… โˆˆ CRing )
195 12 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ Fin )
196 simprrr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘’ โˆˆ ๐‘ )
197 196 snssd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ { ๐‘’ } โІ ๐‘ )
198 180 62 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
199 65 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐บ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
200 52 101 6 194 195 195 195 197 198 199 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
201 193 200 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
202 201 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
203 191 oveqd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ๐‘‘ โˆ™ ๐บ ) )
204 203 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) )
205 185 113 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘‘ โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( ๐‘ ร— ๐‘ ) ) )
206 52 101 6 194 195 195 195 197 205 199 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
207 204 206 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
208 207 oveq2d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ) )
209 14 adantr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘… โˆˆ Ring )
210 102 a1i โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ { ๐‘’ } โˆˆ Fin )
211 simprlr โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) )
212 197 109 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( { ๐‘’ } ร— ๐‘ ) โІ ( ๐‘ ร— ๐‘ ) )
213 205 212 115 syl2anc โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) โˆˆ ( ( Base โ€˜ ๐‘… ) โ†‘m ( { ๐‘’ } ร— ๐‘ ) ) )
214 6 209 101 210 195 195 4 211 213 199 mamuvs1 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) ) )
215 208 214 eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) = ( ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
216 215 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) = ( ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) ( ๐‘… maMul โŸจ { ๐‘’ } , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
217 190 202 216 3eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) )
218 simp3r โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
219 218 oveq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
220 192 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
221 difssd โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ๐‘ โˆ– { ๐‘’ } ) โІ ๐‘ )
222 52 143 6 194 195 195 195 221 198 199 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
223 220 222 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
224 223 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
225 203 reseq1d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
226 52 143 6 194 195 195 195 221 205 199 mamures โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ ( ๐‘… maMul โŸจ ๐‘ , ๐‘ , ๐‘ โŸฉ ) ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
227 225 226 eqtr3d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
228 227 3adant3 โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ( ๐‘… maMul โŸจ ( ๐‘ โˆ– { ๐‘’ } ) , ๐‘ , ๐‘ โŸฉ ) ๐บ ) )
229 219 224 228 3eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ( ๐‘‘ โˆ™ ๐บ ) โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) )
230 3 1 2 6 4 178 183 184 187 188 217 229 mdetrsca โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) = ( ๐‘ ยท ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) ) )
231 simp2ll โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ๐‘ โˆˆ ๐ต )
232 231 31 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐ท โ€˜ ( ๐‘ โˆ™ ๐บ ) ) )
233 simp2rl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ๐‘‘ โˆˆ ๐ต )
234 169 oveq2d โŠข ( ๐‘‘ โˆˆ ๐ต โ†’ ( ๐‘ ยท ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) = ( ๐‘ ยท ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) ) )
235 233 234 syl โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ๐‘ ยท ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) = ( ๐‘ ยท ( ๐ท โ€˜ ( ๐‘‘ โˆ™ ๐บ ) ) ) )
236 230 232 235 3eqtr4d โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โˆง ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐‘ ยท ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) )
237 236 3expia โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) ) โ†’ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐‘ ยท ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
238 237 anassrs โŠข ( ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) ) โˆง ( ๐‘‘ โˆˆ ๐ต โˆง ๐‘’ โˆˆ ๐‘ ) ) โ†’ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐‘ ยท ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
239 238 ralrimivva โŠข ( ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โˆง ( ๐‘ โˆˆ ๐ต โˆง ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) ) ) โ†’ โˆ€ ๐‘‘ โˆˆ ๐ต โˆ€ ๐‘’ โˆˆ ๐‘ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐‘ ยท ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
240 239 ralrimivva โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ โˆ€ ๐‘ โˆˆ ๐ต โˆ€ ๐‘ โˆˆ ( Base โ€˜ ๐‘… ) โˆ€ ๐‘‘ โˆˆ ๐ต โˆ€ ๐‘’ โˆˆ ๐‘ ( ( ( ๐‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) = ( ( ( { ๐‘’ } ร— ๐‘ ) ร— { ๐‘ } ) โˆ˜f ยท ( ๐‘‘ โ†พ ( { ๐‘’ } ร— ๐‘ ) ) ) โˆง ( ๐‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) = ( ๐‘‘ โ†พ ( ( ๐‘ โˆ– { ๐‘’ } ) ร— ๐‘ ) ) ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘ ) = ( ๐‘ ยท ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐‘‘ ) ) ) )
241 simp2 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐น โˆˆ ๐ต )
242 1 2 6 7 8 9 4 12 14 26 82 177 240 3 51 241 mdetuni0 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐น ) = ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ( 1r โ€˜ ๐ด ) ) ยท ( ๐ท โ€˜ ๐น ) ) )
243 fvoveq1 โŠข ( ๐‘Ž = ๐น โ†’ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) = ( ๐ท โ€˜ ( ๐น โˆ™ ๐บ ) ) )
244 fvex โŠข ( ๐ท โ€˜ ( ๐น โˆ™ ๐บ ) ) โˆˆ V
245 243 29 244 fvmpt โŠข ( ๐น โˆˆ ๐ต โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐น ) = ( ๐ท โ€˜ ( ๐น โˆ™ ๐บ ) ) )
246 245 3ad2ant2 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ๐น ) = ( ๐ท โ€˜ ( ๐น โˆ™ ๐บ ) ) )
247 eqid โŠข ( 1r โ€˜ ๐ด ) = ( 1r โ€˜ ๐ด )
248 2 247 ringidcl โŠข ( ๐ด โˆˆ Ring โ†’ ( 1r โ€˜ ๐ด ) โˆˆ ๐ต )
249 fvoveq1 โŠข ( ๐‘Ž = ( 1r โ€˜ ๐ด ) โ†’ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) = ( ๐ท โ€˜ ( ( 1r โ€˜ ๐ด ) โˆ™ ๐บ ) ) )
250 fvex โŠข ( ๐ท โ€˜ ( ( 1r โ€˜ ๐ด ) โˆ™ ๐บ ) ) โˆˆ V
251 249 29 250 fvmpt โŠข ( ( 1r โ€˜ ๐ด ) โˆˆ ๐ต โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ( 1r โ€˜ ๐ด ) ) = ( ๐ท โ€˜ ( ( 1r โ€˜ ๐ด ) โˆ™ ๐บ ) ) )
252 19 248 251 3syl โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ( 1r โ€˜ ๐ด ) ) = ( ๐ท โ€˜ ( ( 1r โ€˜ ๐ด ) โˆ™ ๐บ ) ) )
253 simp3 โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ๐บ โˆˆ ๐ต )
254 2 5 247 ringlidm โŠข ( ( ๐ด โˆˆ Ring โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( 1r โ€˜ ๐ด ) โˆ™ ๐บ ) = ๐บ )
255 19 253 254 syl2anc โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( 1r โ€˜ ๐ด ) โˆ™ ๐บ ) = ๐บ )
256 255 fveq2d โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐ท โ€˜ ( ( 1r โ€˜ ๐ด ) โˆ™ ๐บ ) ) = ( ๐ท โ€˜ ๐บ ) )
257 252 256 eqtrd โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ( 1r โ€˜ ๐ด ) ) = ( ๐ท โ€˜ ๐บ ) )
258 257 oveq1d โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ( 1r โ€˜ ๐ด ) ) ยท ( ๐ท โ€˜ ๐น ) ) = ( ( ๐ท โ€˜ ๐บ ) ยท ( ๐ท โ€˜ ๐น ) ) )
259 16 253 ffvelcdmd โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐ท โ€˜ ๐บ ) โˆˆ ( Base โ€˜ ๐‘… ) )
260 16 241 ffvelcdmd โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐ท โ€˜ ๐น ) โˆˆ ( Base โ€˜ ๐‘… ) )
261 6 4 crngcom โŠข ( ( ๐‘… โˆˆ CRing โˆง ( ๐ท โ€˜ ๐บ ) โˆˆ ( Base โ€˜ ๐‘… ) โˆง ( ๐ท โ€˜ ๐น ) โˆˆ ( Base โ€˜ ๐‘… ) ) โ†’ ( ( ๐ท โ€˜ ๐บ ) ยท ( ๐ท โ€˜ ๐น ) ) = ( ( ๐ท โ€˜ ๐น ) ยท ( ๐ท โ€˜ ๐บ ) ) )
262 51 259 260 261 syl3anc โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( ๐ท โ€˜ ๐บ ) ยท ( ๐ท โ€˜ ๐น ) ) = ( ( ๐ท โ€˜ ๐น ) ยท ( ๐ท โ€˜ ๐บ ) ) )
263 258 262 eqtrd โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ( ( ๐‘Ž โˆˆ ๐ต โ†ฆ ( ๐ท โ€˜ ( ๐‘Ž โˆ™ ๐บ ) ) ) โ€˜ ( 1r โ€˜ ๐ด ) ) ยท ( ๐ท โ€˜ ๐น ) ) = ( ( ๐ท โ€˜ ๐น ) ยท ( ๐ท โ€˜ ๐บ ) ) )
264 242 246 263 3eqtr3d โŠข ( ( ๐‘… โˆˆ CRing โˆง ๐น โˆˆ ๐ต โˆง ๐บ โˆˆ ๐ต ) โ†’ ( ๐ท โ€˜ ( ๐น โˆ™ ๐บ ) ) = ( ( ๐ท โ€˜ ๐น ) ยท ( ๐ท โ€˜ ๐บ ) ) )