Metamath Proof Explorer


Theorem sigarac

Description: Signed area is anticommutative. (Contributed by Saveliy Skresanov, 19-Sep-2017)

Ref Expression
Hypothesis sigar โŠข ๐บ = ( ๐‘ฅ โˆˆ โ„‚ , ๐‘ฆ โˆˆ โ„‚ โ†ฆ ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐‘ฅ ) ยท ๐‘ฆ ) ) )
Assertion sigarac ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด ๐บ ๐ต ) = - ( ๐ต ๐บ ๐ด ) )

Proof

Step Hyp Ref Expression
1 sigar โŠข ๐บ = ( ๐‘ฅ โˆˆ โ„‚ , ๐‘ฆ โˆˆ โ„‚ โ†ฆ ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐‘ฅ ) ยท ๐‘ฆ ) ) )
2 1 sigarval โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด ๐บ ๐ต ) = ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐ด ) ยท ๐ต ) ) )
3 cjcl โŠข ( ๐ต โˆˆ โ„‚ โ†’ ( โˆ— โ€˜ ๐ต ) โˆˆ โ„‚ )
4 3 adantl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( โˆ— โ€˜ ๐ต ) โˆˆ โ„‚ )
5 simpl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ๐ด โˆˆ โ„‚ )
6 4 5 cjmuld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( โˆ— โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) = ( ( โˆ— โ€˜ ( โˆ— โ€˜ ๐ต ) ) ยท ( โˆ— โ€˜ ๐ด ) ) )
7 simpr โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ๐ต โˆˆ โ„‚ )
8 7 cjcjd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( โˆ— โ€˜ ( โˆ— โ€˜ ๐ต ) ) = ๐ต )
9 8 oveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( โˆ— โ€˜ ( โˆ— โ€˜ ๐ต ) ) ยท ( โˆ— โ€˜ ๐ด ) ) = ( ๐ต ยท ( โˆ— โ€˜ ๐ด ) ) )
10 5 cjcld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( โˆ— โ€˜ ๐ด ) โˆˆ โ„‚ )
11 7 10 mulcomd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ต ยท ( โˆ— โ€˜ ๐ด ) ) = ( ( โˆ— โ€˜ ๐ด ) ยท ๐ต ) )
12 6 9 11 3eqtrrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( โˆ— โ€˜ ๐ด ) ยท ๐ต ) = ( โˆ— โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) )
13 12 fveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐ด ) ยท ๐ต ) ) = ( โ„‘ โ€˜ ( โˆ— โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) ) )
14 4 5 mulcld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) โˆˆ โ„‚ )
15 14 imcjd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( โ„‘ โ€˜ ( โˆ— โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) ) = - ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) )
16 2 13 15 3eqtrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด ๐บ ๐ต ) = - ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) )
17 1 sigarval โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( ๐ต ๐บ ๐ด ) = ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) )
18 17 ancoms โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ต ๐บ ๐ด ) = ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) )
19 18 negeqd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ - ( ๐ต ๐บ ๐ด ) = - ( โ„‘ โ€˜ ( ( โˆ— โ€˜ ๐ต ) ยท ๐ด ) ) )
20 16 19 eqtr4d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด ๐บ ๐ต ) = - ( ๐ต ๐บ ๐ด ) )