Proof of Theorem vcoprne
| Step | Hyp | Ref
| Expression |
| 1 | | ax1ne0 5292 |
. . . . 5
⊢ 1 ≠ 0 |
| 2 | | df-ne 1590 |
. . . . 5
⊢ (1 ≠ 0 ↔ ¬ 1 =
0) |
| 3 | 1, 2 | mpbi 189 |
. . . 4
⊢ ¬ 1 = 0 |
| 4 | | vcoprnelem 8193 |
. . . . . . . . 9
⊢ (〈G, G〉 ∈ CVec → G:(ℂ ×
ℂ)–→ℂ) |
| 5 | | axcnex 5279 |
. . . . . . . . . . 11
⊢ ℂ ∈
V |
| 6 | 5, 5 | xpex 3266 |
. . . . . . . . . 10
⊢ (ℂ × ℂ)
∈ V |
| 7 | | fex 3658 |
. . . . . . . . . 10
⊢ ((G:(ℂ ×
ℂ)–→ℂ ⋀ (ℂ × ℂ)
∈ V) → G ∈
V) |
| 8 | 6, 7 | mpan2 698 |
. . . . . . . . 9
⊢ (G:(ℂ ×
ℂ)–→ℂ → G
∈ V) |
| 9 | 4, 8 | syl 10 |
. . . . . . . 8
⊢ (〈G, G〉 ∈ CVec → G
∈ V) |
| 10 | | op1stg 4093 |
. . . . . . . 8
⊢ (G ∈ V
→ (1st ‘〈G, G〉) = G) |
| 11 | 9, 10 | syl 10 |
. . . . . . 7
⊢ (〈G, G〉 ∈ CVec → (1st ‘〈G, G〉) = G) |
| 12 | 11 | opreqd 3983 |
. . . . . 6
⊢ (〈G, G〉 ∈ CVec → (0(1st ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = (0G(Id
‘(1st ‘〈G, G〉)))) |
| 13 | 11 | rneqd 3347 |
. . . . . . . . . . . 12
⊢ (〈G, G〉 ∈ CVec → ran (1st ‘〈G, G〉) = ran G) |
| 14 | | eqid 1478 |
. . . . . . . . . . . . . . 15
⊢ (1st
‘〈G, G〉) = (1st ‘〈G, G〉) |
| 15 | 14 | vcgrp 8173 |
. . . . . . . . . . . . . 14
⊢ (〈G, G〉 ∈ CVec → (1st ‘〈G, G〉) ∈ Grp) |
| 16 | 11, 15 | eqeltrrd 1552 |
. . . . . . . . . . . . 13
⊢ (〈G, G〉 ∈ CVec → G
∈ Grp) |
| 17 | | grprndm 8051 |
. . . . . . . . . . . . 13
⊢ (G ∈ Grp → ran
G = dom dom G) |
| 18 | 16, 17 | syl 10 |
. . . . . . . . . . . 12
⊢ (〈G, G〉 ∈ CVec → ran G = dom dom G) |
| 19 | | fdm 3637 |
. . . . . . . . . . . . . . 15
⊢ (G:(ℂ ×
ℂ)–→ℂ → dom G
= (ℂ × ℂ)) |
| 20 | 4, 19 | syl 10 |
. . . . . . . . . . . . . 14
⊢ (〈G, G〉 ∈ CVec → dom G = (ℂ ×
ℂ)) |
| 21 | 20 | dmeqd 3319 |
. . . . . . . . . . . . 13
⊢ (〈G, G〉 ∈ CVec → dom dom G = dom (ℂ
× ℂ)) |
| 22 | | dmxpid 3339 |
. . . . . . . . . . . . 13
⊢ dom (ℂ × ℂ) =
ℂ |
| 23 | 21, 22 | syl6eq 1526 |
. . . . . . . . . . . 12
⊢ (〈G, G〉 ∈ CVec → dom dom G = ℂ) |
| 24 | 13, 18, 23 | 3eqtrd 1514 |
. . . . . . . . . . 11
⊢ (〈G, G〉 ∈ CVec → ran (1st ‘〈G, G〉) = ℂ) |
| 25 | | ax1cn 5281 |
. . . . . . . . . . 11
⊢ 1 ∈ ℂ |
| 26 | 24, 25 | syl5eleqr 1558 |
. . . . . . . . . 10
⊢ (〈G, G〉 ∈ CVec → 1 ∈
ran (1st ‘〈G, G〉)) |
| 27 | | eqid 1478 |
. . . . . . . . . . 11
⊢ ran (1st
‘〈G, G〉) = ran (1st ‘〈G, G〉) |
| 28 | | eqid 1478 |
. . . . . . . . . . 11
⊢ (Id ‘(1st
‘〈G, G〉)) = (Id ‘(1st ‘〈G, G〉)) |
| 29 | 14, 27, 28 | vc0rid 8182 |
. . . . . . . . . 10
⊢ ((〈G, G〉 ∈ CVec ⋀ 1 ∈ ran (1st ‘〈G, G〉)) →
(1(1st ‘〈G, G〉)(Id ‘(1st ‘〈G, G〉))) =
1) |
| 30 | 26, 29 | mpdan 706 |
. . . . . . . . 9
⊢ (〈G, G〉 ∈ CVec → (1(1st ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = 1) |
| 31 | | eqid 1478 |
. . . . . . . . . . 11
⊢ (2nd
‘〈G, G〉) = (2nd ‘〈G, G〉) |
| 32 | 14, 31, 27 | vcid 8166 |
. . . . . . . . . 10
⊢ ((〈G, G〉 ∈ CVec ⋀ 1 ∈ ran (1st ‘〈G, G〉)) →
(1(2nd ‘〈G, G〉)1) = 1) |
| 33 | 26, 32 | mpdan 706 |
. . . . . . . . 9
⊢ (〈G, G〉 ∈ CVec → (1(2nd ‘〈G, G〉)1) =
1) |
| 34 | | op2ndg 4094 |
. . . . . . . . . . . . 13
⊢ ((G ∈ V ⋀ G ∈ V) → (2nd ‘〈G, G〉) = G) |
| 35 | 34 | anidms 436 |
. . . . . . . . . . . 12
⊢ (G ∈ V
→ (2nd ‘〈G, G〉) = G) |
| 36 | 9, 35 | syl 10 |
. . . . . . . . . . 11
⊢ (〈G, G〉 ∈ CVec → (2nd ‘〈G, G〉) = G) |
| 37 | 36, 11 | eqtr4d 1513 |
. . . . . . . . . 10
⊢ (〈G, G〉 ∈ CVec → (2nd ‘〈G, G〉) =
(1st ‘〈G, G〉)) |
| 38 | 37 | opreqd 3983 |
. . . . . . . . 9
⊢ (〈G, G〉 ∈ CVec → (1(2nd ‘〈G, G〉)1) =
(1(1st ‘〈G, G〉)1)) |
| 39 | 30, 33, 38 | 3eqtr2d 1516 |
. . . . . . . 8
⊢ (〈G, G〉 ∈ CVec → (1(1st ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = (1(1st ‘〈G, G〉)1)) |
| 40 | 14, 27, 28 | vczcl 8181 |
. . . . . . . . . 10
⊢ (〈G, G〉 ∈ CVec → (Id ‘(1st
‘〈G, G〉)) ∈ ran
(1st ‘〈G, G〉)) |
| 41 | 40, 26, 26 | 3jca 821 |
. . . . . . . . 9
⊢ (〈G, G〉 ∈ CVec → ((Id ‘(1st
‘〈G, G〉)) ∈ ran
(1st ‘〈G, G〉) ⋀ 1 ∈ ran (1st ‘〈G, G〉) ⋀ 1 ∈ ran
(1st ‘〈G, G〉))) |
| 42 | 14, 27 | vclcan 8180 |
. . . . . . . . 9
⊢ ((〈G, G〉 ∈ CVec ⋀ ((Id
‘(1st ‘〈G, G〉)) ∈ ran
(1st ‘〈G, G〉) ⋀ 1 ∈ ran (1st ‘〈G, G〉) ⋀ 1 ∈ ran
(1st ‘〈G, G〉))) → ((1(1st ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = (1(1st ‘〈G, G〉)1) ↔ (Id
‘(1st ‘〈G, G〉)) = 1)) |
| 43 | 41, 42 | mpdan 706 |
. . . . . . . 8
⊢ (〈G, G〉 ∈ CVec → ((1(1st ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = (1(1st ‘〈G, G〉)1) ↔ (Id
‘(1st ‘〈G, G〉)) = 1)) |
| 44 | 39, 43 | mpbid 195 |
. . . . . . 7
⊢ (〈G, G〉 ∈ CVec → (Id ‘(1st
‘〈G, G〉)) = 1) |
| 45 | 44 | opreq2d 3982 |
. . . . . 6
⊢ (〈G, G〉 ∈ CVec → (0G(Id ‘(1st ‘〈G, G〉))) = (0G1)) |
| 46 | 12, 45 | eqtr2d 1511 |
. . . . 5
⊢ (〈G, G〉 ∈ CVec → (0G1) = (0(1st ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉)))) |
| 47 | | 0cn 5340 |
. . . . . . 7
⊢ 0 ∈ ℂ |
| 48 | 14, 31, 27, 28 | vcz 8185 |
. . . . . . 7
⊢ ((〈G, G〉 ∈ CVec ⋀ 0 ∈ ℂ) →
(0(2nd ‘〈G, G〉)(Id ‘(1st ‘〈G, G〉))) = (Id
‘(1st ‘〈G, G〉))) |
| 49 | 47, 48 | mpan2 698 |
. . . . . 6
⊢ (〈G, G〉 ∈ CVec → (0(2nd ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = (Id ‘(1st ‘〈G, G〉))) |
| 50 | 36 | opreqd 3983 |
. . . . . . 7
⊢ (〈G, G〉 ∈ CVec → (0(2nd ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = (0G(Id
‘(1st ‘〈G, G〉)))) |
| 51 | 50, 45 | eqtrd 1510 |
. . . . . 6
⊢ (〈G, G〉 ∈ CVec → (0(2nd ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = (0G1)) |
| 52 | 49, 51, 44 | 3eqtr3d 1518 |
. . . . 5
⊢ (〈G, G〉 ∈ CVec → (0G1) = 1) |
| 53 | 24, 47 | syl5eleqr 1558 |
. . . . . 6
⊢ (〈G, G〉 ∈ CVec → 0 ∈
ran (1st ‘〈G, G〉)) |
| 54 | 14, 27, 28 | vc0rid 8182 |
. . . . . 6
⊢ ((〈G, G〉 ∈ CVec ⋀ 0 ∈ ran (1st ‘〈G, G〉)) →
(0(1st ‘〈G, G〉)(Id ‘(1st ‘〈G, G〉))) =
0) |
| 55 | 53, 54 | mpdan 706 |
. . . . 5
⊢ (〈G, G〉 ∈ CVec → (0(1st ‘〈G, G〉)(Id
‘(1st ‘〈G, G〉))) = 0) |
| 56 | 46, 52, 55 | 3eqtr3d 1518 |
. . . 4
⊢ (〈G, G〉 ∈ CVec → 1 = 0) |
| 57 | 3, 56 | mto 106 |
. . 3
⊢ ¬ 〈G, G〉 ∈ CVec |
| 58 | | opeq2 2492 |
. . . 4
⊢ (G = S →
〈G,
G〉 =
〈G,
S〉) |
| 59 | 58 | eleq1d 1543 |
. . 3
⊢ (G = S →
(〈G,
G〉 ∈ CVec ↔ 〈G, S〉 ∈ CVec)) |
| 60 | 57, 59 | mtbii 718 |
. 2
⊢ (G = S →
¬ 〈G,
S〉 ∈ CVec) |
| 61 | 60 | necon2ai 1614 |
1
⊢ (〈G, S〉 ∈ CVec → G
≠ S) |