Proof of Theorem vcm
| Step | Hyp | Ref
| Expression |
| 1 | | vcm.3 |
. . . . 5
⊢ X = ran G |
| 2 | 1 | grpass 8044 |
. . . 4
⊢ ((G ∈ Grp ⋀ ((-1SA) ∈ X ⋀ A ∈ X ⋀ (M
‘A) ∈ X)) →
(((-1SA)GA)G(M ‘A)) =
((-1SA)G(AG(M ‘A)))) |
| 3 | | vcm.1 |
. . . . . 6
⊢ G = (1st ‘W) |
| 4 | 3 | vcgrp 8173 |
. . . . 5
⊢ (W ∈ CVec →
G ∈
Grp) |
| 5 | 4 | adantr 391 |
. . . 4
⊢ ((W ∈ CVec ⋀ A ∈ X) →
G ∈
Grp) |
| 6 | | ax1cn 5281 |
. . . . . . 7
⊢ 1 ∈ ℂ |
| 7 | 6 | negcl 5381 |
. . . . . 6
⊢ -1 ∈ ℂ |
| 8 | | vcm.2 |
. . . . . . 7
⊢ S = (2nd ‘W) |
| 9 | 3, 8, 1 | vccl 8165 |
. . . . . 6
⊢ ((W ∈ CVec ⋀ -1 ∈ ℂ ⋀ A ∈ X) → (-1SA) ∈ X) |
| 10 | 7, 9 | mp3an2 906 |
. . . . 5
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(-1SA)
∈ X) |
| 11 | | pm3.27 323 |
. . . . 5
⊢ ((W ∈ CVec ⋀ A ∈ X) →
A ∈
X) |
| 12 | | vcm.4 |
. . . . . . 7
⊢ M = (inv ‘G) |
| 13 | 1, 12 | grpinvcl 8064 |
. . . . . 6
⊢ ((G ∈ Grp ⋀ A ∈ X) →
(M ‘A) ∈ X) |
| 14 | 13, 4 | sylan 450 |
. . . . 5
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(M ‘A) ∈ X) |
| 15 | 10, 11, 14 | 3jca 821 |
. . . 4
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1SA)
∈ X ⋀ A ∈ X ⋀ (M
‘A) ∈ X)) |
| 16 | 2, 5, 15 | sylanc 473 |
. . 3
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(((-1SA)GA)G(M ‘A)) =
((-1SA)G(AG(M ‘A)))) |
| 17 | 3, 8, 1 | vcid 8166 |
. . . . . 6
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(1SA) =
A) |
| 18 | 17 | opreq2d 3982 |
. . . . 5
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1SA)G(1SA)) =
((-1SA)GA)) |
| 19 | 7, 6 | addcom 5334 |
. . . . . . . . 9
⊢ (-1 + 1) = (1 +
-1) |
| 20 | 6 | negid 5392 |
. . . . . . . . 9
⊢ (1 + -1) = 0 |
| 21 | 19, 20 | eqtr 1498 |
. . . . . . . 8
⊢ (-1 + 1) = 0 |
| 22 | 21 | opreq1i 3977 |
. . . . . . 7
⊢ ((-1 + 1)SA) = (0SA) |
| 23 | 22 | a1i 8 |
. . . . . 6
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1 + 1)SA) = (0SA)) |
| 24 | 3, 8, 1 | vcdir 8168 |
. . . . . . . 8
⊢ ((W ∈ CVec ⋀ (-1 ∈ ℂ ⋀ 1 ∈ ℂ ⋀ A ∈ X)) →
((-1 + 1)SA) = ((-1SA)G(1SA))) |
| 25 | 7, 24 | mp3anr1 915 |
. . . . . . 7
⊢ ((W ∈ CVec ⋀ (1 ∈ ℂ ⋀ A ∈ X)) → ((-1 + 1)SA) =
((-1SA)G(1SA))) |
| 26 | 6, 25 | mpanr1 711 |
. . . . . 6
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1 + 1)SA) = ((-1SA)G(1SA))) |
| 27 | | eqid 1478 |
. . . . . . 7
⊢ (Id ‘G) = (Id ‘G) |
| 28 | 3, 8, 1, 27 | vc0 8184 |
. . . . . 6
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(0SA) =
(Id ‘G)) |
| 29 | 23, 26, 28 | 3eqtr3d 1518 |
. . . . 5
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1SA)G(1SA)) = (Id
‘G)) |
| 30 | 18, 29 | eqtr3d 1512 |
. . . 4
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1SA)GA) = (Id ‘G)) |
| 31 | 30 | opreq1d 3981 |
. . 3
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(((-1SA)GA)G(M ‘A)) =
((Id ‘G)G(M
‘A))) |
| 32 | 1, 27, 12 | grprinv 8067 |
. . . . 5
⊢ ((G ∈ Grp ⋀ A ∈ X) →
(AG(M
‘A)) = (Id ‘G)) |
| 33 | 32, 4 | sylan 450 |
. . . 4
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(AG(M
‘A)) = (Id ‘G)) |
| 34 | 33 | opreq2d 3982 |
. . 3
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1SA)G(AG(M ‘A))) =
((-1SA)G(Id
‘G))) |
| 35 | 16, 31, 34 | 3eqtr3d 1518 |
. 2
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((Id ‘G)G(M
‘A)) = ((-1SA)G(Id ‘G))) |
| 36 | 1, 27 | grplid 8057 |
. . 3
⊢ ((G ∈ Grp ⋀ (M
‘A) ∈ X) →
((Id ‘G)G(M
‘A)) = (M ‘A)) |
| 37 | 36, 5, 14 | sylanc 473 |
. 2
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((Id ‘G)G(M
‘A)) = (M ‘A)) |
| 38 | 1, 27 | grprid 8058 |
. . 3
⊢ ((G ∈ Grp ⋀ (-1SA) ∈ X) → ((-1SA)G(Id ‘G))
= (-1SA)) |
| 39 | 38, 5, 10 | sylanc 473 |
. 2
⊢ ((W ∈ CVec ⋀ A ∈ X) →
((-1SA)G(Id
‘G)) = (-1SA)) |
| 40 | 35, 37, 39 | 3eqtr3rd 1519 |
1
⊢ ((W ∈ CVec ⋀ A ∈ X) →
(-1SA)
= (M ‘A)) |