Metamath Proof Explorer


Theorem odmodnn0

Description: Reduce the argument of a group multiple by modding out the order of the element. (Contributed by Mario Carneiro, 23-Sep-2015)

Ref Expression
Hypotheses odcl.1 โŠข ๐‘‹ = ( Base โ€˜ ๐บ )
odcl.2 โŠข ๐‘‚ = ( od โ€˜ ๐บ )
odid.3 โŠข ยท = ( .g โ€˜ ๐บ )
odid.4 โŠข 0 = ( 0g โ€˜ ๐บ )
Assertion odmodnn0 ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) = ( ๐‘ ยท ๐ด ) )

Proof

Step Hyp Ref Expression
1 odcl.1 โŠข ๐‘‹ = ( Base โ€˜ ๐บ )
2 odcl.2 โŠข ๐‘‚ = ( od โ€˜ ๐บ )
3 odid.3 โŠข ยท = ( .g โ€˜ ๐บ )
4 odid.4 โŠข 0 = ( 0g โ€˜ ๐บ )
5 simpl1 โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ๐บ โˆˆ Mnd )
6 nnnn0 โŠข ( ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• โ†’ ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„•0 )
7 6 adantl โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„•0 )
8 simpl3 โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ๐‘ โˆˆ โ„•0 )
9 8 nn0red โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ๐‘ โˆˆ โ„ )
10 nnrp โŠข ( ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• โ†’ ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„+ )
11 10 adantl โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„+ )
12 9 11 rerpdivcld โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) โˆˆ โ„ )
13 8 nn0ge0d โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ 0 โ‰ค ๐‘ )
14 nnre โŠข ( ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• โ†’ ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„ )
15 14 adantl โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„ )
16 nngt0 โŠข ( ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• โ†’ 0 < ( ๐‘‚ โ€˜ ๐ด ) )
17 16 adantl โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ 0 < ( ๐‘‚ โ€˜ ๐ด ) )
18 divge0 โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ( ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„ โˆง 0 < ( ๐‘‚ โ€˜ ๐ด ) ) ) โ†’ 0 โ‰ค ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) )
19 9 13 15 17 18 syl22anc โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ 0 โ‰ค ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) )
20 flge0nn0 โŠข ( ( ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) โˆˆ โ„ โˆง 0 โ‰ค ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) โˆˆ โ„•0 )
21 12 19 20 syl2anc โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) โˆˆ โ„•0 )
22 7 21 nn0mulcld โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) โˆˆ โ„•0 )
23 8 nn0zd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ๐‘ โˆˆ โ„ค )
24 zmodcl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) โˆˆ โ„•0 )
25 23 24 sylancom โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) โˆˆ โ„•0 )
26 simpl2 โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ๐ด โˆˆ ๐‘‹ )
27 eqid โŠข ( +g โ€˜ ๐บ ) = ( +g โ€˜ ๐บ )
28 1 3 27 mulgnn0dir โŠข ( ( ๐บ โˆˆ Mnd โˆง ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) โˆˆ โ„•0 โˆง ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) โˆˆ โ„•0 โˆง ๐ด โˆˆ ๐‘‹ ) ) โ†’ ( ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ๐ด ) = ( ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ยท ๐ด ) ( +g โ€˜ ๐บ ) ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) ) )
29 5 22 25 26 28 syl13anc โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ๐ด ) = ( ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ยท ๐ด ) ( +g โ€˜ ๐บ ) ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) ) )
30 15 recnd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„‚ )
31 21 nn0cnd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) โˆˆ โ„‚ )
32 30 31 mulcomd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) = ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ๐‘‚ โ€˜ ๐ด ) ) )
33 32 oveq1d โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ยท ๐ด ) = ( ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) )
34 1 3 mulgnn0ass โŠข ( ( ๐บ โˆˆ Mnd โˆง ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) โˆˆ โ„•0 โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„•0 โˆง ๐ด โˆˆ ๐‘‹ ) ) โ†’ ( ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) = ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ( ๐‘‚ โ€˜ ๐ด ) ยท ๐ด ) ) )
35 5 21 7 26 34 syl13anc โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) = ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ( ๐‘‚ โ€˜ ๐ด ) ยท ๐ด ) ) )
36 1 2 3 4 odid โŠข ( ๐ด โˆˆ ๐‘‹ โ†’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ๐ด ) = 0 )
37 26 36 syl โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ๐ด ) = 0 )
38 37 oveq2d โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ( ๐‘‚ โ€˜ ๐ด ) ยท ๐ด ) ) = ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท 0 ) )
39 1 3 4 mulgnn0z โŠข ( ( ๐บ โˆˆ Mnd โˆง ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) โˆˆ โ„•0 ) โ†’ ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท 0 ) = 0 )
40 5 21 39 syl2anc โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท 0 ) = 0 )
41 38 40 eqtrd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ( ๐‘‚ โ€˜ ๐ด ) ยท ๐ด ) ) = 0 )
42 35 41 eqtrd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) = 0 )
43 33 42 eqtrd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ยท ๐ด ) = 0 )
44 43 oveq1d โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ยท ๐ด ) ( +g โ€˜ ๐บ ) ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) ) = ( 0 ( +g โ€˜ ๐บ ) ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) ) )
45 29 44 eqtrd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ๐ด ) = ( 0 ( +g โ€˜ ๐บ ) ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) ) )
46 modval โŠข ( ( ๐‘ โˆˆ โ„ โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„+ ) โ†’ ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) = ( ๐‘ โˆ’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ) )
47 9 11 46 syl2anc โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) = ( ๐‘ โˆ’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ) )
48 47 oveq2d โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ) = ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ โˆ’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ) ) )
49 22 nn0cnd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) โˆˆ โ„‚ )
50 8 nn0cnd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ๐‘ โˆˆ โ„‚ )
51 49 50 pncan3d โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ โˆ’ ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) ) ) = ๐‘ )
52 48 51 eqtrd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ) = ๐‘ )
53 52 oveq1d โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ( ( ๐‘‚ โ€˜ ๐ด ) ยท ( โŒŠ โ€˜ ( ๐‘ / ( ๐‘‚ โ€˜ ๐ด ) ) ) ) + ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ) ยท ๐ด ) = ( ๐‘ ยท ๐ด ) )
54 1 3 5 25 26 mulgnn0cld โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) โˆˆ ๐‘‹ )
55 1 27 4 mndlid โŠข ( ( ๐บ โˆˆ Mnd โˆง ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) โˆˆ ๐‘‹ ) โ†’ ( 0 ( +g โ€˜ ๐บ ) ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) ) = ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) )
56 5 54 55 syl2anc โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( 0 ( +g โ€˜ ๐บ ) ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) ) = ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) )
57 45 53 56 3eqtr3rd โŠข ( ( ( ๐บ โˆˆ Mnd โˆง ๐ด โˆˆ ๐‘‹ โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐‘‚ โ€˜ ๐ด ) โˆˆ โ„• ) โ†’ ( ( ๐‘ mod ( ๐‘‚ โ€˜ ๐ด ) ) ยท ๐ด ) = ( ๐‘ ยท ๐ด ) )