Metamath Proof Explorer


Theorem colinearalglem1

Description: Lemma for colinearalg . Expand out a multiplication. (Contributed by Scott Fenton, 24-Jun-2013)

Ref Expression
Assertion colinearalglem1 ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ต โˆ’ ๐ด ) ยท ( ๐น โˆ’ ๐ท ) ) = ( ( ๐ธ โˆ’ ๐ท ) ยท ( ๐ถ โˆ’ ๐ด ) ) โ†” ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) = ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) ) )

Proof

Step Hyp Ref Expression
1 simpl2 โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ๐ต โˆˆ โ„‚ )
2 simpl1 โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ๐ด โˆˆ โ„‚ )
3 1 2 subcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ต โˆ’ ๐ด ) โˆˆ โ„‚ )
4 simpr3 โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ๐น โˆˆ โ„‚ )
5 simpr1 โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ๐ท โˆˆ โ„‚ )
6 3 4 5 subdid โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ต โˆ’ ๐ด ) ยท ( ๐น โˆ’ ๐ท ) ) = ( ( ( ๐ต โˆ’ ๐ด ) ยท ๐น ) โˆ’ ( ( ๐ต โˆ’ ๐ด ) ยท ๐ท ) ) )
7 1 2 4 subdird โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ต โˆ’ ๐ด ) ยท ๐น ) = ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) )
8 1 2 5 subdird โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ต โˆ’ ๐ด ) ยท ๐ท ) = ( ( ๐ต ยท ๐ท ) โˆ’ ( ๐ด ยท ๐ท ) ) )
9 7 8 oveq12d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ต โˆ’ ๐ด ) ยท ๐น ) โˆ’ ( ( ๐ต โˆ’ ๐ด ) ยท ๐ท ) ) = ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) โˆ’ ( ( ๐ต ยท ๐ท ) โˆ’ ( ๐ด ยท ๐ท ) ) ) )
10 simp2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ๐ต โˆˆ โ„‚ )
11 simp3 โŠข ( ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) โ†’ ๐น โˆˆ โ„‚ )
12 mulcl โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) โ†’ ( ๐ต ยท ๐น ) โˆˆ โ„‚ )
13 10 11 12 syl2an โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ต ยท ๐น ) โˆˆ โ„‚ )
14 simp1 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ๐ด โˆˆ โ„‚ )
15 mulcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) โ†’ ( ๐ด ยท ๐น ) โˆˆ โ„‚ )
16 14 11 15 syl2an โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ด ยท ๐น ) โˆˆ โ„‚ )
17 13 16 subcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) โˆˆ โ„‚ )
18 simp1 โŠข ( ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) โ†’ ๐ท โˆˆ โ„‚ )
19 mulcl โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ๐ท โˆˆ โ„‚ ) โ†’ ( ๐ต ยท ๐ท ) โˆˆ โ„‚ )
20 10 18 19 syl2an โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ต ยท ๐ท ) โˆˆ โ„‚ )
21 mulcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ท โˆˆ โ„‚ ) โ†’ ( ๐ด ยท ๐ท ) โˆˆ โ„‚ )
22 14 18 21 syl2an โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ด ยท ๐ท ) โˆˆ โ„‚ )
23 17 20 22 subsub3d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) โˆ’ ( ( ๐ต ยท ๐ท ) โˆ’ ( ๐ด ยท ๐ท ) ) ) = ( ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) + ( ๐ด ยท ๐ท ) ) โˆ’ ( ๐ต ยท ๐ท ) ) )
24 17 22 20 addsubd โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) + ( ๐ด ยท ๐ท ) ) โˆ’ ( ๐ต ยท ๐ท ) ) = ( ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) โˆ’ ( ๐ต ยท ๐ท ) ) + ( ๐ด ยท ๐ท ) ) )
25 9 23 24 3eqtrrd โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) โˆ’ ( ๐ต ยท ๐ท ) ) + ( ๐ด ยท ๐ท ) ) = ( ( ( ๐ต โˆ’ ๐ด ) ยท ๐น ) โˆ’ ( ( ๐ต โˆ’ ๐ด ) ยท ๐ท ) ) )
26 13 16 20 subsub4d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) โˆ’ ( ๐ต ยท ๐ท ) ) = ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) )
27 26 oveq1d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ( ๐ต ยท ๐น ) โˆ’ ( ๐ด ยท ๐น ) ) โˆ’ ( ๐ต ยท ๐ท ) ) + ( ๐ด ยท ๐ท ) ) = ( ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) )
28 6 25 27 3eqtr2d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ต โˆ’ ๐ด ) ยท ( ๐น โˆ’ ๐ท ) ) = ( ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) )
29 simpr2 โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ๐ธ โˆˆ โ„‚ )
30 29 5 subcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ธ โˆ’ ๐ท ) โˆˆ โ„‚ )
31 simpl3 โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ๐ถ โˆˆ โ„‚ )
32 31 2 subcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ถ โˆ’ ๐ด ) โˆˆ โ„‚ )
33 30 32 mulcomd โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ธ โˆ’ ๐ท ) ยท ( ๐ถ โˆ’ ๐ด ) ) = ( ( ๐ถ โˆ’ ๐ด ) ยท ( ๐ธ โˆ’ ๐ท ) ) )
34 32 29 5 subdid โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ถ โˆ’ ๐ด ) ยท ( ๐ธ โˆ’ ๐ท ) ) = ( ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ธ ) โˆ’ ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ท ) ) )
35 31 2 29 subdird โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ธ ) = ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) )
36 31 2 5 subdird โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ท ) = ( ( ๐ถ ยท ๐ท ) โˆ’ ( ๐ด ยท ๐ท ) ) )
37 35 36 oveq12d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ธ ) โˆ’ ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ท ) ) = ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) โˆ’ ( ( ๐ถ ยท ๐ท ) โˆ’ ( ๐ด ยท ๐ท ) ) ) )
38 simp3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ๐ถ โˆˆ โ„‚ )
39 simp2 โŠข ( ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) โ†’ ๐ธ โˆˆ โ„‚ )
40 mulcl โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ ) โ†’ ( ๐ถ ยท ๐ธ ) โˆˆ โ„‚ )
41 38 39 40 syl2an โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ถ ยท ๐ธ ) โˆˆ โ„‚ )
42 mulcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ ) โ†’ ( ๐ด ยท ๐ธ ) โˆˆ โ„‚ )
43 14 39 42 syl2an โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ด ยท ๐ธ ) โˆˆ โ„‚ )
44 41 43 subcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) โˆˆ โ„‚ )
45 mulcl โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ท โˆˆ โ„‚ ) โ†’ ( ๐ถ ยท ๐ท ) โˆˆ โ„‚ )
46 38 18 45 syl2an โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ๐ถ ยท ๐ท ) โˆˆ โ„‚ )
47 44 46 22 subsub3d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) โˆ’ ( ( ๐ถ ยท ๐ท ) โˆ’ ( ๐ด ยท ๐ท ) ) ) = ( ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) + ( ๐ด ยท ๐ท ) ) โˆ’ ( ๐ถ ยท ๐ท ) ) )
48 44 22 46 addsubd โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) + ( ๐ด ยท ๐ท ) ) โˆ’ ( ๐ถ ยท ๐ท ) ) = ( ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) โˆ’ ( ๐ถ ยท ๐ท ) ) + ( ๐ด ยท ๐ท ) ) )
49 37 47 48 3eqtrrd โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) โˆ’ ( ๐ถ ยท ๐ท ) ) + ( ๐ด ยท ๐ท ) ) = ( ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ธ ) โˆ’ ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ท ) ) )
50 41 43 46 subsub4d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) โˆ’ ( ๐ถ ยท ๐ท ) ) = ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) )
51 50 oveq1d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ๐ด ยท ๐ธ ) ) โˆ’ ( ๐ถ ยท ๐ท ) ) + ( ๐ด ยท ๐ท ) ) = ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) )
52 49 51 eqtr3d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ธ ) โˆ’ ( ( ๐ถ โˆ’ ๐ด ) ยท ๐ท ) ) = ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) )
53 33 34 52 3eqtrd โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ธ โˆ’ ๐ท ) ยท ( ๐ถ โˆ’ ๐ด ) ) = ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) )
54 28 53 eqeq12d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ต โˆ’ ๐ด ) ยท ( ๐น โˆ’ ๐ท ) ) = ( ( ๐ธ โˆ’ ๐ท ) ยท ( ๐ถ โˆ’ ๐ด ) ) โ†” ( ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) = ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) ) )
55 16 20 addcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) โˆˆ โ„‚ )
56 13 55 subcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) โˆˆ โ„‚ )
57 43 46 addcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) โˆˆ โ„‚ )
58 41 57 subcld โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) โˆˆ โ„‚ )
59 56 58 22 addcan2d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) = ( ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) + ( ๐ด ยท ๐ท ) ) โ†” ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) = ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) ) )
60 54 59 bitrd โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ธ โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚ ) ) โ†’ ( ( ( ๐ต โˆ’ ๐ด ) ยท ( ๐น โˆ’ ๐ท ) ) = ( ( ๐ธ โˆ’ ๐ท ) ยท ( ๐ถ โˆ’ ๐ด ) ) โ†” ( ( ๐ต ยท ๐น ) โˆ’ ( ( ๐ด ยท ๐น ) + ( ๐ต ยท ๐ท ) ) ) = ( ( ๐ถ ยท ๐ธ ) โˆ’ ( ( ๐ด ยท ๐ธ ) + ( ๐ถ ยท ๐ท ) ) ) ) )