Proof of Theorem ghgrpilem3
| Step | Hyp | Ref
| Expression |
| 1 | | ghgrpi.1 |
. . 3
⊢ G
∈ Grp |
| 2 | | ghgrpi.2 |
. . 3
⊢ X =
ran G |
| 3 | | ghgrpi.3 |
. . 3
⊢ F:X–onto→Y |
| 4 | | ghgrpi.4 |
. . 3
⊢ Y
⊆ A |
| 5 | | ghgrpi.5 |
. . 3
⊢ O Fn
(A × A) |
| 6 | | ghgrpi.6 |
. . 3
⊢ ((x
∈ X ⋀ y ∈ X)
→ (F ‘(xGy)) = ((F
‘x)O(F
‘y))) |
| 7 | | ghgrpi.7 |
. . 3
⊢ H =
(O ↾ (Y × Y)) |
| 8 | | opreq1 3953 |
. . . . . . . 8
⊢ (c =
(F ‘(yDx)) → (cH(F ‘x)) =
((F ‘(yDx))H(F ‘x))) |
| 9 | 8 | eqeq1d 1475 |
. . . . . . 7
⊢ (c =
(F ‘(yDx)) → ((cH(F ‘x)) =
(F ‘y) ↔ ((F
‘(yDx))H(F
‘x)) = (F ‘y))) |
| 10 | 9 | rcla4ev 1868 |
. . . . . 6
⊢ (((F
‘(yDx)) ∈
Y ⋀ ((F ‘(yDx))H(F ‘x)) =
(F ‘y)) → ∃c ∈ Y
(cH(F
‘x)) = (F ‘y)) |
| 11 | | ghgrpilem3.10 |
. . . . . . . . . 10
⊢ D = (
/g ‘G) |
| 12 | 2, 11 | grpdivcl 8021 |
. . . . . . . . 9
⊢ ((G
∈ Grp ⋀ y ∈ X ⋀ x
∈ X) → (yDx) ∈ X) |
| 13 | 1, 12 | mp3an1 900 |
. . . . . . . 8
⊢ ((y
∈ X ⋀ x ∈ X)
→ (yDx) ∈
X) |
| 14 | | df-fo 3186 |
. . . . . . . . . . 11
⊢ (F:X–onto→Y
↔ (F Fn X ⋀ ran F
= Y)) |
| 15 | 3, 14 | mpbi 189 |
. . . . . . . . . 10
⊢ (F Fn
X ⋀ ran F = Y) |
| 16 | 15 | pm3.26i 320 |
. . . . . . . . 9
⊢ F Fn
X |
| 17 | | fnfvelrn 3798 |
. . . . . . . . 9
⊢ ((F Fn
X ⋀ (yDx) ∈ X)
→ (F ‘(yDx)) ∈ ran F) |
| 18 | 16, 17 | mpan 693 |
. . . . . . . 8
⊢ ((yDx) ∈ X
→ (F ‘(yDx)) ∈ ran F) |
| 19 | 13, 18 | syl 10 |
. . . . . . 7
⊢ ((y
∈ X ⋀ x ∈ X)
→ (F ‘(yDx)) ∈ ran F) |
| 20 | 15 | pm3.27i 324 |
. . . . . . 7
⊢ ran F
= Y |
| 21 | 19, 20 | syl6eleq 1550 |
. . . . . 6
⊢ ((y
∈ X ⋀ x ∈ X)
→ (F ‘(yDx)) ∈ Y) |
| 22 | 1, 2, 3, 4, 5, 6, 7 | ghgrpilem1 8070 |
. . . . . . . . 9
⊢ (((yDx) ∈ X
⋀ x ∈ X) → (F
‘((yDx)Gx)) =
((F ‘(yDx))H(F ‘x))) |
| 23 | 22, 13 | sylan 448 |
. . . . . . . 8
⊢ (((y
∈ X ⋀ x ∈ X)
⋀ x ∈ X) → (F
‘((yDx)Gx)) =
((F ‘(yDx))H(F ‘x))) |
| 24 | 23 | anabss3 499 |
. . . . . . 7
⊢ ((y
∈ X ⋀ x ∈ X)
→ (F ‘((yDx)Gx)) = ((F
‘(yDx))H(F
‘x))) |
| 25 | 2, 11 | grpnpcan 8026 |
. . . . . . . . 9
⊢ ((G
∈ Grp ⋀ y ∈ X ⋀ x
∈ X) → ((yDx)Gx) = y) |
| 26 | 1, 25 | mp3an1 900 |
. . . . . . . 8
⊢ ((y
∈ X ⋀ x ∈ X)
→ ((yDx)Gx) = y) |
| 27 | 26 | fveq2d 3713 |
. . . . . . 7
⊢ ((y
∈ X ⋀ x ∈ X)
→ (F ‘((yDx)Gx)) = (F
‘y)) |
| 28 | 24, 27 | eqtr3d 1501 |
. . . . . 6
⊢ ((y
∈ X ⋀ x ∈ X)
→ ((F ‘(yDx))H(F ‘x)) =
(F ‘y)) |
| 29 | 10, 21, 28 | sylanc 471 |
. . . . 5
⊢ ((y
∈ X ⋀ x ∈ X)
→ ∃c ∈ Y (cH(F
‘x)) = (F ‘y)) |
| 30 | 29 | ancoms 436 |
. . . 4
⊢ ((x
∈ X ⋀ y ∈ X)
→ ∃c ∈ Y (cH(F
‘x)) = (F ‘y)) |
| 31 | | opreq2 3954 |
. . . . . 6
⊢ ((F
‘x) = a → (cH(F ‘x)) =
(cHa)) |
| 32 | 31 | eqeq1d 1475 |
. . . . 5
⊢ ((F
‘x) = a → ((cH(F ‘x)) =
(F ‘y) ↔ (cHa) = (F
‘y))) |
| 33 | 32 | rexbidv 1656 |
. . . 4
⊢ ((F
‘x) = a → (∃c ∈ Y
(cH(F
‘x)) = (F ‘y)
↔ ∃c ∈ Y (cHa) = (F ‘y))) |
| 34 | 1, 2, 3, 4, 5, 6, 7, 30, 33 | ghgrpilem2 8071 |
. . 3
⊢ ((y
∈ X ⋀ a ∈ Y)
→ ∃c ∈ Y (cHa) = (F ‘y)) |
| 35 | | eqeq2 1476 |
. . . 4
⊢ ((F
‘y) = b → ((cHa) = (F
‘y) ↔ (cHa) = b)) |
| 36 | 35 | rexbidv 1656 |
. . 3
⊢ ((F
‘y) = b → (∃c ∈ Y
(cHa) = (F ‘y)
↔ ∃c ∈ Y (cHa) = b)) |
| 37 | 1, 2, 3, 4, 5, 6, 7, 34, 36 | ghgrpilem2 8071 |
. 2
⊢ ((a
∈ Y ⋀ b ∈ Y)
→ ∃c ∈ Y (cHa) = b) |
| 38 | | opreq2 3954 |
. . . . . . 7
⊢ (c =
(F ‘((N ‘x)Gy)) → ((F
‘x)Hc) = ((F ‘x)H(F ‘((N
‘x)Gy)))) |
| 39 | 38 | eqeq1d 1475 |
. . . . . 6
⊢ (c =
(F ‘((N ‘x)Gy)) → (((F
‘x)Hc) = (F ‘y)
↔ ((F ‘x)H(F ‘((N
‘x)Gy))) =
(F ‘y))) |
| 40 | 39 | rcla4ev 1868 |
. . . . 5
⊢ (((F
‘((N ‘x)Gy)) ∈ Y
⋀ ((F ‘x)H(F ‘((N
‘x)Gy))) =
(F ‘y)) → ∃c ∈ Y
((F ‘x)Hc) = (F
‘y)) |
| 41 | 2 | grpcl 7978 |
. . . . . . . . 9
⊢ ((G
∈ Grp ⋀ (N ‘x) ∈ X
⋀ y ∈ X) → ((N
‘x)Gy) ∈
X) |
| 42 | 1, 41 | mp3an1 900 |
. . . . . . . 8
⊢ (((N
‘x) ∈ X ⋀ y
∈ X) → ((N ‘x)Gy) ∈ X) |
| 43 | | ghgrpilem3.9 |
. . . . . . . . . 10
⊢ N =
(inv ‘G) |
| 44 | 2, 43 | grpinvcl 8002 |
. . . . . . . . 9
⊢ ((G
∈ Grp ⋀ x ∈ X) → (N
‘x) ∈ X) |
| 45 | 1, 44 | mpan 693 |
. . . . . . . 8
⊢ (x
∈ X → (N ‘x)
∈ X) |
| 46 | 42, 45 | sylan 448 |
. . . . . . 7
⊢ ((x
∈ X ⋀ y ∈ X)
→ ((N ‘x)Gy) ∈ X) |
| 47 | | fnfvelrn 3798 |
. . . . . . . 8
⊢ ((F Fn
X ⋀ ((N ‘x)Gy) ∈ X)
→ (F ‘((N ‘x)Gy)) ∈ ran F) |
| 48 | 16, 47 | mpan 693 |
. . . . . . 7
⊢ (((N
‘x)Gy) ∈
X → (F ‘((N
‘x)Gy)) ∈ ran
F) |
| 49 | 46, 48 | syl 10 |
. . . . . 6
⊢ ((x
∈ X ⋀ y ∈ X)
→ (F ‘((N ‘x)Gy)) ∈ ran F) |
| 50 | 49, 20 | syl6eleq 1550 |
. . . . 5
⊢ ((x
∈ X ⋀ y ∈ X)
→ (F ‘((N ‘x)Gy)) ∈ Y) |
| 51 | 1, 2, 3, 4, 5, 6, 7 | ghgrpilem1 8070 |
. . . . . . 7
⊢ ((x
∈ X ⋀ ((N ‘x)Gy) ∈ X)
→ (F ‘(xG((N ‘x)Gy))) = ((F
‘x)H(F
‘((N ‘x)Gy)))) |
| 52 | 46, 51 | syldan 467 |
. . . . . 6
⊢ ((x
∈ X ⋀ y ∈ X)
→ (F ‘(xG((N ‘x)Gy))) = ((F
‘x)H(F
‘((N ‘x)Gy)))) |
| 53 | 2, 43 | grpasscan1 8012 |
. . . . . . . 8
⊢ ((G
∈ Grp ⋀ x ∈ X ⋀ y
∈ X) → (xG((N ‘x)Gy)) = y) |
| 54 | 1, 53 | mp3an1 900 |
. . . . . . 7
⊢ ((x
∈ X ⋀ y ∈ X)
→ (xG((N
‘x)Gy)) = y) |
| 55 | 54 | fveq2d 3713 |
. . . . . 6
⊢ ((x
∈ X ⋀ y ∈ X)
→ (F ‘(xG((N ‘x)Gy))) = (F
‘y)) |
| 56 | 52, 55 | eqtr3d 1501 |
. . . . 5
⊢ ((x
∈ X ⋀ y ∈ X)
→ ((F ‘x)H(F ‘((N
‘x)Gy))) =
(F ‘y)) |
| 57 | 40, 50, 56 | sylanc 471 |
. . . 4
⊢ ((x
∈ X ⋀ y ∈ X)
→ ∃c ∈ Y ((F
‘x)Hc) = (F ‘y)) |
| 58 | | opreq1 3953 |
. . . . . 6
⊢ ((F
‘x) = a → ((F
‘x)Hc) = (aHc)) |
| 59 | 58 | eqeq1d 1475 |
. . . . 5
⊢ ((F
‘x) = a → (((F
‘x)Hc) = (F ‘y)
↔ (aHc) = (F ‘y))) |
| 60 | 59 | rexbidv 1656 |
. . . 4
⊢ ((F
‘x) = a → (∃c ∈ Y
((F ‘x)Hc) = (F
‘y) ↔ ∃c ∈ Y
(aHc) = (F ‘y))) |
| 61 | 1, 2, 3, 4, 5, 6, 7, 57, 60 | ghgrpilem2 8071 |
. . 3
⊢ ((y
∈ X ⋀ a ∈ Y)
→ ∃c ∈ Y (aHc) = (F ‘y)) |
| 62 | | eqeq2 1476 |
. . . 4
⊢ ((F
‘y) = b → ((aHc) = (F
‘y) ↔ (aHc) = b)) |
| 63 | 62 | rexbidv 1656 |
. . 3
⊢ ((F
‘y) = b → (∃c ∈ Y
(aHc) = (F ‘y)
↔ ∃c ∈ Y (aHc) = b)) |
| 64 | 1, 2, 3, 4, 5, 6, 7, 61, 63 | ghgrpilem2 8071 |
. 2
⊢ ((a
∈ Y ⋀ b ∈ Y)
→ ∃c ∈ Y (aHc) = b) |
| 65 | 37, 64 | jca 288 |
1
⊢ ((a
∈ Y ⋀ b ∈ Y)
→ (∃c ∈ Y (cHa) = b ⋀ ∃c ∈ Y
(aHc) = b)) |