Metamath Proof Explorer


Theorem grpokerinj

Description: A group homomorphism is injective if and only if its kernel is zero. (Contributed by Jeff Madsen, 16-Jun-2011)

Ref Expression
Hypotheses grpkerinj.1 X=ranG
grpkerinj.2 W=GIdG
grpkerinj.3 Y=ranH
grpkerinj.4 U=GIdH
Assertion grpokerinj GGrpOpHGrpOpFGGrpOpHomHF:X1-1YF-1U=W

Proof

Step Hyp Ref Expression
1 grpkerinj.1 X=ranG
2 grpkerinj.2 W=GIdG
3 grpkerinj.3 Y=ranH
4 grpkerinj.4 U=GIdH
5 2 4 ghomidOLD GGrpOpHGrpOpFGGrpOpHomHFW=U
6 5 sneqd GGrpOpHGrpOpFGGrpOpHomHFW=U
7 1 3 ghomf GGrpOpHGrpOpFGGrpOpHomHF:XY
8 7 ffnd GGrpOpHGrpOpFGGrpOpHomHFFnX
9 1 2 grpoidcl GGrpOpWX
10 9 3ad2ant1 GGrpOpHGrpOpFGGrpOpHomHWX
11 fnsnfv FFnXWXFW=FW
12 8 10 11 syl2anc GGrpOpHGrpOpFGGrpOpHomHFW=FW
13 6 12 eqtr3d GGrpOpHGrpOpFGGrpOpHomHU=FW
14 13 imaeq2d GGrpOpHGrpOpFGGrpOpHomHF-1U=F-1FW
15 14 adantl F:X1-1YGGrpOpHGrpOpFGGrpOpHomHF-1U=F-1FW
16 9 snssd GGrpOpWX
17 16 3ad2ant1 GGrpOpHGrpOpFGGrpOpHomHWX
18 f1imacnv F:X1-1YWXF-1FW=W
19 17 18 sylan2 F:X1-1YGGrpOpHGrpOpFGGrpOpHomHF-1FW=W
20 15 19 eqtrd F:X1-1YGGrpOpHGrpOpFGGrpOpHomHF-1U=W
21 20 expcom GGrpOpHGrpOpFGGrpOpHomHF:X1-1YF-1U=W
22 7 adantr GGrpOpHGrpOpFGGrpOpHomHF-1U=WF:XY
23 simpl2 GGrpOpHGrpOpFGGrpOpHomHxXyXHGrpOp
24 7 ffvelrnda GGrpOpHGrpOpFGGrpOpHomHxXFxY
25 24 adantrr GGrpOpHGrpOpFGGrpOpHomHxXyXFxY
26 7 ffvelrnda GGrpOpHGrpOpFGGrpOpHomHyXFyY
27 26 adantrl GGrpOpHGrpOpFGGrpOpHomHxXyXFyY
28 eqid /gH=/gH
29 3 4 28 grpoeqdivid HGrpOpFxYFyYFx=FyFx/gHFy=U
30 23 25 27 29 syl3anc GGrpOpHGrpOpFGGrpOpHomHxXyXFx=FyFx/gHFy=U
31 30 adantlr GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx=FyFx/gHFy=U
32 eqid /gG=/gG
33 1 32 28 ghomdiv GGrpOpHGrpOpFGGrpOpHomHxXyXFx/gGy=Fx/gHFy
34 33 adantlr GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx/gGy=Fx/gHFy
35 34 eqeq1d GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx/gGy=UFx/gHFy=U
36 4 fvexi UV
37 36 snid UU
38 eleq1 Fx/gGy=UFx/gGyUUU
39 37 38 mpbiri Fx/gGy=UFx/gGyU
40 7 ffund GGrpOpHGrpOpFGGrpOpHomHFunF
41 40 adantr GGrpOpHGrpOpFGGrpOpHomHxXyXFunF
42 1 32 grpodivcl GGrpOpxXyXx/gGyX
43 42 3expb GGrpOpxXyXx/gGyX
44 43 3ad2antl1 GGrpOpHGrpOpFGGrpOpHomHxXyXx/gGyX
45 7 fdmd GGrpOpHGrpOpFGGrpOpHomHdomF=X
46 45 adantr GGrpOpHGrpOpFGGrpOpHomHxXyXdomF=X
47 44 46 eleqtrrd GGrpOpHGrpOpFGGrpOpHomHxXyXx/gGydomF
48 fvimacnv FunFx/gGydomFFx/gGyUx/gGyF-1U
49 41 47 48 syl2anc GGrpOpHGrpOpFGGrpOpHomHxXyXFx/gGyUx/gGyF-1U
50 eleq2 F-1U=Wx/gGyF-1Ux/gGyW
51 49 50 sylan9bb GGrpOpHGrpOpFGGrpOpHomHxXyXF-1U=WFx/gGyUx/gGyW
52 51 an32s GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx/gGyUx/gGyW
53 elsni x/gGyWx/gGy=W
54 1 2 32 grpoeqdivid GGrpOpxXyXx=yx/gGy=W
55 54 biimprd GGrpOpxXyXx/gGy=Wx=y
56 55 3expb GGrpOpxXyXx/gGy=Wx=y
57 56 3ad2antl1 GGrpOpHGrpOpFGGrpOpHomHxXyXx/gGy=Wx=y
58 53 57 syl5 GGrpOpHGrpOpFGGrpOpHomHxXyXx/gGyWx=y
59 58 adantlr GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXx/gGyWx=y
60 52 59 sylbid GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx/gGyUx=y
61 39 60 syl5 GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx/gGy=Ux=y
62 35 61 sylbird GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx/gHFy=Ux=y
63 31 62 sylbid GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx=Fyx=y
64 63 ralrimivva GGrpOpHGrpOpFGGrpOpHomHF-1U=WxXyXFx=Fyx=y
65 dff13 F:X1-1YF:XYxXyXFx=Fyx=y
66 22 64 65 sylanbrc GGrpOpHGrpOpFGGrpOpHomHF-1U=WF:X1-1Y
67 66 ex GGrpOpHGrpOpFGGrpOpHomHF-1U=WF:X1-1Y
68 21 67 impbid GGrpOpHGrpOpFGGrpOpHomHF:X1-1YF-1U=W