Metamath Proof Explorer


Theorem imasgrp2

Description: The image structure of a group is a group. (Contributed by Mario Carneiro, 24-Feb-2015) (Revised by Mario Carneiro, 5-Sep-2015)

Ref Expression
Hypotheses imasgrp.u φU=F𝑠R
imasgrp.v φV=BaseR
imasgrp.p φ+˙=+R
imasgrp.f φF:VontoB
imasgrp.e φaVbVpVqVFa=FpFb=FqFa+˙b=Fp+˙q
imasgrp2.r φRW
imasgrp2.1 φxVyVx+˙yV
imasgrp2.2 φxVyVzVFx+˙y+˙z=Fx+˙y+˙z
imasgrp2.3 φ0˙V
imasgrp2.4 φxVF0˙+˙x=Fx
imasgrp2.5 φxVNV
imasgrp2.6 φxVFN+˙x=F0˙
Assertion imasgrp2 φUGrpF0˙=0U

Proof

Step Hyp Ref Expression
1 imasgrp.u φU=F𝑠R
2 imasgrp.v φV=BaseR
3 imasgrp.p φ+˙=+R
4 imasgrp.f φF:VontoB
5 imasgrp.e φaVbVpVqVFa=FpFb=FqFa+˙b=Fp+˙q
6 imasgrp2.r φRW
7 imasgrp2.1 φxVyVx+˙yV
8 imasgrp2.2 φxVyVzVFx+˙y+˙z=Fx+˙y+˙z
9 imasgrp2.3 φ0˙V
10 imasgrp2.4 φxVF0˙+˙x=Fx
11 imasgrp2.5 φxVNV
12 imasgrp2.6 φxVFN+˙x=F0˙
13 1 2 4 6 imasbas φB=BaseU
14 eqidd φ+U=+U
15 3 oveqd φa+˙b=a+Rb
16 15 fveq2d φFa+˙b=Fa+Rb
17 3 oveqd φp+˙q=p+Rq
18 17 fveq2d φFp+˙q=Fp+Rq
19 16 18 eqeq12d φFa+˙b=Fp+˙qFa+Rb=Fp+Rq
20 19 3ad2ant1 φaVbVpVqVFa+˙b=Fp+˙qFa+Rb=Fp+Rq
21 5 20 sylibd φaVbVpVqVFa=FpFb=FqFa+Rb=Fp+Rq
22 eqid +R=+R
23 eqid +U=+U
24 17 adantr φpVqVp+˙q=p+Rq
25 7 3expb φxVyVx+˙yV
26 25 caovclg φpVqVp+˙qV
27 24 26 eqeltrrd φpVqVp+RqV
28 4 21 1 2 6 22 23 27 imasaddf φ+U:B×BB
29 fovrn +U:B×BBuBvBu+UvB
30 28 29 syl3an1 φuBvBu+UvB
31 forn F:VontoBranF=B
32 4 31 syl φranF=B
33 32 eleq2d φuranFuB
34 32 eleq2d φvranFvB
35 32 eleq2d φwranFwB
36 33 34 35 3anbi123d φuranFvranFwranFuBvBwB
37 fofn F:VontoBFFnV
38 4 37 syl φFFnV
39 fvelrnb FFnVuranFxVFx=u
40 fvelrnb FFnVvranFyVFy=v
41 fvelrnb FFnVwranFzVFz=w
42 39 40 41 3anbi123d FFnVuranFvranFwranFxVFx=uyVFy=vzVFz=w
43 38 42 syl φuranFvranFwranFxVFx=uyVFy=vzVFz=w
44 36 43 bitr3d φuBvBwBxVFx=uyVFy=vzVFz=w
45 3reeanv xVyVzVFx=uFy=vFz=wxVFx=uyVFy=vzVFz=w
46 44 45 bitr4di φuBvBwBxVyVzVFx=uFy=vFz=w
47 3 adantr φxVyVzV+˙=+R
48 47 oveqd φxVyVzVx+˙y+˙z=x+˙y+Rz
49 48 fveq2d φxVyVzVFx+˙y+˙z=Fx+˙y+Rz
50 47 oveqd φxVyVzVx+˙y+˙z=x+Ry+˙z
51 50 fveq2d φxVyVzVFx+˙y+˙z=Fx+Ry+˙z
52 8 49 51 3eqtr3d φxVyVzVFx+˙y+Rz=Fx+Ry+˙z
53 simpl φxVyVzVφ
54 7 3adant3r3 φxVyVzVx+˙yV
55 simpr3 φxVyVzVzV
56 4 21 1 2 6 22 23 imasaddval φx+˙yVzVFx+˙y+UFz=Fx+˙y+Rz
57 53 54 55 56 syl3anc φxVyVzVFx+˙y+UFz=Fx+˙y+Rz
58 simpr1 φxVyVzVxV
59 26 caovclg φyVzVy+˙zV
60 59 3adantr1 φxVyVzVy+˙zV
61 4 21 1 2 6 22 23 imasaddval φxVy+˙zVFx+UFy+˙z=Fx+Ry+˙z
62 53 58 60 61 syl3anc φxVyVzVFx+UFy+˙z=Fx+Ry+˙z
63 52 57 62 3eqtr4d φxVyVzVFx+˙y+UFz=Fx+UFy+˙z
64 4 21 1 2 6 22 23 imasaddval φxVyVFx+UFy=Fx+Ry
65 64 3adant3r3 φxVyVzVFx+UFy=Fx+Ry
66 47 oveqd φxVyVzVx+˙y=x+Ry
67 66 fveq2d φxVyVzVFx+˙y=Fx+Ry
68 65 67 eqtr4d φxVyVzVFx+UFy=Fx+˙y
69 68 oveq1d φxVyVzVFx+UFy+UFz=Fx+˙y+UFz
70 4 21 1 2 6 22 23 imasaddval φyVzVFy+UFz=Fy+Rz
71 70 3adant3r1 φxVyVzVFy+UFz=Fy+Rz
72 47 oveqd φxVyVzVy+˙z=y+Rz
73 72 fveq2d φxVyVzVFy+˙z=Fy+Rz
74 71 73 eqtr4d φxVyVzVFy+UFz=Fy+˙z
75 74 oveq2d φxVyVzVFx+UFy+UFz=Fx+UFy+˙z
76 63 69 75 3eqtr4d φxVyVzVFx+UFy+UFz=Fx+UFy+UFz
77 simp1 Fx=uFy=vFz=wFx=u
78 simp2 Fx=uFy=vFz=wFy=v
79 77 78 oveq12d Fx=uFy=vFz=wFx+UFy=u+Uv
80 simp3 Fx=uFy=vFz=wFz=w
81 79 80 oveq12d Fx=uFy=vFz=wFx+UFy+UFz=u+Uv+Uw
82 78 80 oveq12d Fx=uFy=vFz=wFy+UFz=v+Uw
83 77 82 oveq12d Fx=uFy=vFz=wFx+UFy+UFz=u+Uv+Uw
84 81 83 eqeq12d Fx=uFy=vFz=wFx+UFy+UFz=Fx+UFy+UFzu+Uv+Uw=u+Uv+Uw
85 76 84 syl5ibcom φxVyVzVFx=uFy=vFz=wu+Uv+Uw=u+Uv+Uw
86 85 3exp2 φxVyVzVFx=uFy=vFz=wu+Uv+Uw=u+Uv+Uw
87 86 imp32 φxVyVzVFx=uFy=vFz=wu+Uv+Uw=u+Uv+Uw
88 87 rexlimdv φxVyVzVFx=uFy=vFz=wu+Uv+Uw=u+Uv+Uw
89 88 rexlimdvva φxVyVzVFx=uFy=vFz=wu+Uv+Uw=u+Uv+Uw
90 46 89 sylbid φuBvBwBu+Uv+Uw=u+Uv+Uw
91 90 imp φuBvBwBu+Uv+Uw=u+Uv+Uw
92 fof F:VontoBF:VB
93 4 92 syl φF:VB
94 93 9 ffvelrnd φF0˙B
95 38 39 syl φuranFxVFx=u
96 33 95 bitr3d φuBxVFx=u
97 simpl φxVφ
98 9 adantr φxV0˙V
99 simpr φxVxV
100 4 21 1 2 6 22 23 imasaddval φ0˙VxVF0˙+UFx=F0˙+Rx
101 97 98 99 100 syl3anc φxVF0˙+UFx=F0˙+Rx
102 3 adantr φxV+˙=+R
103 102 oveqd φxV0˙+˙x=0˙+Rx
104 103 fveq2d φxVF0˙+˙x=F0˙+Rx
105 101 104 10 3eqtr2d φxVF0˙+UFx=Fx
106 oveq2 Fx=uF0˙+UFx=F0˙+Uu
107 id Fx=uFx=u
108 106 107 eqeq12d Fx=uF0˙+UFx=FxF0˙+Uu=u
109 105 108 syl5ibcom φxVFx=uF0˙+Uu=u
110 109 rexlimdva φxVFx=uF0˙+Uu=u
111 96 110 sylbid φuBF0˙+Uu=u
112 111 imp φuBF0˙+Uu=u
113 93 adantr φxVF:VB
114 113 11 ffvelrnd φxVFNB
115 4 21 1 2 6 22 23 imasaddval φNVxVFN+UFx=FN+Rx
116 97 11 99 115 syl3anc φxVFN+UFx=FN+Rx
117 102 oveqd φxVN+˙x=N+Rx
118 117 fveq2d φxVFN+˙x=FN+Rx
119 116 118 12 3eqtr2d φxVFN+UFx=F0˙
120 oveq1 v=FNv+UFx=FN+UFx
121 120 eqeq1d v=FNv+UFx=F0˙FN+UFx=F0˙
122 121 rspcev FNBFN+UFx=F0˙vBv+UFx=F0˙
123 114 119 122 syl2anc φxVvBv+UFx=F0˙
124 oveq2 Fx=uv+UFx=v+Uu
125 124 eqeq1d Fx=uv+UFx=F0˙v+Uu=F0˙
126 125 rexbidv Fx=uvBv+UFx=F0˙vBv+Uu=F0˙
127 123 126 syl5ibcom φxVFx=uvBv+Uu=F0˙
128 127 rexlimdva φxVFx=uvBv+Uu=F0˙
129 96 128 sylbid φuBvBv+Uu=F0˙
130 129 imp φuBvBv+Uu=F0˙
131 13 14 30 91 94 112 130 isgrpde φUGrp
132 13 14 94 112 131 grpidd2 φF0˙=0U
133 131 132 jca φUGrpF0˙=0U