Metamath Proof Explorer


Theorem mulgdirlem

Description: Lemma for mulgdir . (Contributed by Mario Carneiro, 13-Dec-2014)

Ref Expression
Hypotheses mulgnndir.b โŠข ๐ต = ( Base โ€˜ ๐บ )
mulgnndir.t โŠข ยท = ( .g โ€˜ ๐บ )
mulgnndir.p โŠข + = ( +g โ€˜ ๐บ )
Assertion mulgdirlem ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )

Proof

Step Hyp Ref Expression
1 mulgnndir.b โŠข ๐ต = ( Base โ€˜ ๐บ )
2 mulgnndir.t โŠข ยท = ( .g โ€˜ ๐บ )
3 mulgnndir.p โŠข + = ( +g โ€˜ ๐บ )
4 simpl1 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐บ โˆˆ Grp )
5 4 grpmndd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐บ โˆˆ Mnd )
6 simprl โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐‘€ โˆˆ โ„•0 )
7 simprr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐‘ โˆˆ โ„•0 )
8 simpl23 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐‘‹ โˆˆ ๐ต )
9 1 2 3 mulgnn0dir โŠข ( ( ๐บ โˆˆ Mnd โˆง ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘‹ โˆˆ ๐ต ) ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
10 5 6 7 8 9 syl13anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
11 10 anassrs โŠข ( ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
12 simpl1 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐บ โˆˆ Grp )
13 simp22 โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„ค )
14 13 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐‘ โˆˆ โ„ค )
15 simpl23 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐‘‹ โˆˆ ๐ต )
16 eqid โŠข ( invg โ€˜ ๐บ ) = ( invg โ€˜ ๐บ )
17 1 2 16 mulgneg โŠข ( ( ๐บ โˆˆ Grp โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( - ๐‘ ยท ๐‘‹ ) = ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘ ยท ๐‘‹ ) ) )
18 12 14 15 17 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( - ๐‘ ยท ๐‘‹ ) = ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘ ยท ๐‘‹ ) ) )
19 18 oveq1d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( - ๐‘ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) = ( ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘ ยท ๐‘‹ ) ) + ( ๐‘ ยท ๐‘‹ ) ) )
20 1 2 mulgcl โŠข ( ( ๐บ โˆˆ Grp โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ๐‘ ยท ๐‘‹ ) โˆˆ ๐ต )
21 12 14 15 20 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ๐‘ ยท ๐‘‹ ) โˆˆ ๐ต )
22 eqid โŠข ( 0g โ€˜ ๐บ ) = ( 0g โ€˜ ๐บ )
23 1 3 22 16 grplinv โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘ ยท ๐‘‹ ) โˆˆ ๐ต ) โ†’ ( ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘ ยท ๐‘‹ ) ) + ( ๐‘ ยท ๐‘‹ ) ) = ( 0g โ€˜ ๐บ ) )
24 12 21 23 syl2anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘ ยท ๐‘‹ ) ) + ( ๐‘ ยท ๐‘‹ ) ) = ( 0g โ€˜ ๐บ ) )
25 19 24 eqtrd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( - ๐‘ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) = ( 0g โ€˜ ๐บ ) )
26 25 oveq2d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( ( - ๐‘ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) ) = ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( 0g โ€˜ ๐บ ) ) )
27 simpl3 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 )
28 nn0z โŠข ( ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„ค )
29 27 28 syl โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„ค )
30 1 2 mulgcl โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) โˆˆ ๐ต )
31 12 29 15 30 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) โˆˆ ๐ต )
32 1 3 22 grprid โŠข ( ( ๐บ โˆˆ Grp โˆง ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) โˆˆ ๐ต ) โ†’ ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( 0g โ€˜ ๐บ ) ) = ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) )
33 12 31 32 syl2anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( 0g โ€˜ ๐บ ) ) = ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) )
34 26 33 eqtrd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( ( - ๐‘ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) ) = ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) )
35 nn0z โŠข ( - ๐‘ โˆˆ โ„•0 โ†’ - ๐‘ โˆˆ โ„ค )
36 35 ad2antll โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ - ๐‘ โˆˆ โ„ค )
37 1 2 mulgcl โŠข ( ( ๐บ โˆˆ Grp โˆง - ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( - ๐‘ ยท ๐‘‹ ) โˆˆ ๐ต )
38 12 36 15 37 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( - ๐‘ ยท ๐‘‹ ) โˆˆ ๐ต )
39 1 3 grpass โŠข ( ( ๐บ โˆˆ Grp โˆง ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) โˆˆ ๐ต โˆง ( - ๐‘ ยท ๐‘‹ ) โˆˆ ๐ต โˆง ( ๐‘ ยท ๐‘‹ ) โˆˆ ๐ต ) ) โ†’ ( ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( - ๐‘ ยท ๐‘‹ ) ) + ( ๐‘ ยท ๐‘‹ ) ) = ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( ( - ๐‘ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) ) )
40 12 31 38 21 39 syl13anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( - ๐‘ ยท ๐‘‹ ) ) + ( ๐‘ ยท ๐‘‹ ) ) = ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( ( - ๐‘ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) ) )
41 12 grpmndd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐บ โˆˆ Mnd )
42 simprr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ - ๐‘ โˆˆ โ„•0 )
43 1 2 3 mulgnn0dir โŠข ( ( ๐บ โˆˆ Mnd โˆง ( ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 โˆง ๐‘‹ โˆˆ ๐ต ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) + - ๐‘ ) ยท ๐‘‹ ) = ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( - ๐‘ ยท ๐‘‹ ) ) )
44 41 27 42 15 43 syl13anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) + - ๐‘ ) ยท ๐‘‹ ) = ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( - ๐‘ ยท ๐‘‹ ) ) )
45 simp21 โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„ค )
46 45 zcnd โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„‚ )
47 13 zcnd โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„‚ )
48 46 47 addcld โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„‚ )
49 48 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„‚ )
50 47 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐‘ โˆˆ โ„‚ )
51 49 50 negsubd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ๐‘€ + ๐‘ ) + - ๐‘ ) = ( ( ๐‘€ + ๐‘ ) โˆ’ ๐‘ ) )
52 46 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ๐‘€ โˆˆ โ„‚ )
53 52 50 pncand โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ๐‘€ + ๐‘ ) โˆ’ ๐‘ ) = ๐‘€ )
54 51 53 eqtrd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ๐‘€ + ๐‘ ) + - ๐‘ ) = ๐‘€ )
55 54 oveq1d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) + - ๐‘ ) ยท ๐‘‹ ) = ( ๐‘€ ยท ๐‘‹ ) )
56 44 55 eqtr3d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( - ๐‘ ยท ๐‘‹ ) ) = ( ๐‘€ ยท ๐‘‹ ) )
57 56 oveq1d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( - ๐‘ ยท ๐‘‹ ) ) + ( ๐‘ ยท ๐‘‹ ) ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
58 40 57 eqtr3d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) + ( ( - ๐‘ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
59 34 58 eqtr3d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ( ๐‘€ โˆˆ โ„•0 โˆง - ๐‘ โˆˆ โ„•0 ) ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
60 59 anassrs โŠข ( ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ๐‘€ โˆˆ โ„•0 ) โˆง - ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
61 elznn0 โŠข ( ๐‘ โˆˆ โ„ค โ†” ( ๐‘ โˆˆ โ„ โˆง ( ๐‘ โˆˆ โ„•0 โˆจ - ๐‘ โˆˆ โ„•0 ) ) )
62 61 simprbi โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ โˆˆ โ„•0 โˆจ - ๐‘ โˆˆ โ„•0 ) )
63 13 62 syl โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ( ๐‘ โˆˆ โ„•0 โˆจ - ๐‘ โˆˆ โ„•0 ) )
64 63 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘ โˆˆ โ„•0 โˆจ - ๐‘ โˆˆ โ„•0 ) )
65 11 60 64 mpjaodan โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
66 simpl1 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ๐บ โˆˆ Grp )
67 45 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„ค )
68 simpl23 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ๐‘‹ โˆˆ ๐ต )
69 1 2 mulgcl โŠข ( ( ๐บ โˆˆ Grp โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ๐‘€ ยท ๐‘‹ ) โˆˆ ๐ต )
70 66 67 68 69 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘€ ยท ๐‘‹ ) โˆˆ ๐ต )
71 67 znegcld โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ - ๐‘€ โˆˆ โ„ค )
72 1 2 mulgcl โŠข ( ( ๐บ โˆˆ Grp โˆง - ๐‘€ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( - ๐‘€ ยท ๐‘‹ ) โˆˆ ๐ต )
73 66 71 68 72 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( - ๐‘€ ยท ๐‘‹ ) โˆˆ ๐ต )
74 28 3ad2ant3 โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„ค )
75 74 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„ค )
76 66 75 68 30 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) โˆˆ ๐ต )
77 1 3 grpass โŠข ( ( ๐บ โˆˆ Grp โˆง ( ( ๐‘€ ยท ๐‘‹ ) โˆˆ ๐ต โˆง ( - ๐‘€ ยท ๐‘‹ ) โˆˆ ๐ต โˆง ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) โˆˆ ๐ต ) ) โ†’ ( ( ( ๐‘€ ยท ๐‘‹ ) + ( - ๐‘€ ยท ๐‘‹ ) ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ( - ๐‘€ ยท ๐‘‹ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) ) )
78 66 70 73 76 77 syl13anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ( ๐‘€ ยท ๐‘‹ ) + ( - ๐‘€ ยท ๐‘‹ ) ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ( - ๐‘€ ยท ๐‘‹ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) ) )
79 1 2 16 mulgneg โŠข ( ( ๐บ โˆˆ Grp โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( - ๐‘€ ยท ๐‘‹ ) = ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘€ ยท ๐‘‹ ) ) )
80 66 67 68 79 syl3anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( - ๐‘€ ยท ๐‘‹ ) = ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘€ ยท ๐‘‹ ) ) )
81 80 oveq2d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ ยท ๐‘‹ ) + ( - ๐‘€ ยท ๐‘‹ ) ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘€ ยท ๐‘‹ ) ) ) )
82 1 3 22 16 grprinv โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ ยท ๐‘‹ ) โˆˆ ๐ต ) โ†’ ( ( ๐‘€ ยท ๐‘‹ ) + ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘€ ยท ๐‘‹ ) ) ) = ( 0g โ€˜ ๐บ ) )
83 66 70 82 syl2anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ ยท ๐‘‹ ) + ( ( invg โ€˜ ๐บ ) โ€˜ ( ๐‘€ ยท ๐‘‹ ) ) ) = ( 0g โ€˜ ๐บ ) )
84 81 83 eqtrd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ ยท ๐‘‹ ) + ( - ๐‘€ ยท ๐‘‹ ) ) = ( 0g โ€˜ ๐บ ) )
85 84 oveq1d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ( ๐‘€ ยท ๐‘‹ ) + ( - ๐‘€ ยท ๐‘‹ ) ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) = ( ( 0g โ€˜ ๐บ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) )
86 1 3 22 grplid โŠข ( ( ๐บ โˆˆ Grp โˆง ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) โˆˆ ๐ต ) โ†’ ( ( 0g โ€˜ ๐บ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) = ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) )
87 66 76 86 syl2anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( 0g โ€˜ ๐บ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) = ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) )
88 85 87 eqtrd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ( ๐‘€ ยท ๐‘‹ ) + ( - ๐‘€ ยท ๐‘‹ ) ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) = ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) )
89 66 grpmndd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ๐บ โˆˆ Mnd )
90 simpr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ - ๐‘€ โˆˆ โ„•0 )
91 simpl3 โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 )
92 1 2 3 mulgnn0dir โŠข ( ( ๐บ โˆˆ Mnd โˆง ( - ๐‘€ โˆˆ โ„•0 โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 โˆง ๐‘‹ โˆˆ ๐ต ) ) โ†’ ( ( - ๐‘€ + ( ๐‘€ + ๐‘ ) ) ยท ๐‘‹ ) = ( ( - ๐‘€ ยท ๐‘‹ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) )
93 89 90 91 68 92 syl13anc โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( - ๐‘€ + ( ๐‘€ + ๐‘ ) ) ยท ๐‘‹ ) = ( ( - ๐‘€ ยท ๐‘‹ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) )
94 46 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„‚ )
95 94 negcld โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ - ๐‘€ โˆˆ โ„‚ )
96 48 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„‚ )
97 95 96 addcomd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( - ๐‘€ + ( ๐‘€ + ๐‘ ) ) = ( ( ๐‘€ + ๐‘ ) + - ๐‘€ ) )
98 96 94 negsubd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) + - ๐‘€ ) = ( ( ๐‘€ + ๐‘ ) โˆ’ ๐‘€ ) )
99 47 adantr โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„‚ )
100 94 99 pncan2d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) โˆ’ ๐‘€ ) = ๐‘ )
101 97 98 100 3eqtrd โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( - ๐‘€ + ( ๐‘€ + ๐‘ ) ) = ๐‘ )
102 101 oveq1d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( - ๐‘€ + ( ๐‘€ + ๐‘ ) ) ยท ๐‘‹ ) = ( ๐‘ ยท ๐‘‹ ) )
103 93 102 eqtr3d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( - ๐‘€ ยท ๐‘‹ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) = ( ๐‘ ยท ๐‘‹ ) )
104 103 oveq2d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ ยท ๐‘‹ ) + ( ( - ๐‘€ ยท ๐‘‹ ) + ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) ) ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
105 78 88 104 3eqtr3d โŠข ( ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โˆง - ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )
106 elznn0 โŠข ( ๐‘€ โˆˆ โ„ค โ†” ( ๐‘€ โˆˆ โ„ โˆง ( ๐‘€ โˆˆ โ„•0 โˆจ - ๐‘€ โˆˆ โ„•0 ) ) )
107 106 simprbi โŠข ( ๐‘€ โˆˆ โ„ค โ†’ ( ๐‘€ โˆˆ โ„•0 โˆจ - ๐‘€ โˆˆ โ„•0 ) )
108 45 107 syl โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ( ๐‘€ โˆˆ โ„•0 โˆจ - ๐‘€ โˆˆ โ„•0 ) )
109 65 105 108 mpjaodan โŠข ( ( ๐บ โˆˆ Grp โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘‹ โˆˆ ๐ต ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„•0 ) โ†’ ( ( ๐‘€ + ๐‘ ) ยท ๐‘‹ ) = ( ( ๐‘€ ยท ๐‘‹ ) + ( ๐‘ ยท ๐‘‹ ) ) )