Metamath Proof Explorer


Theorem evpmodpmf1o

Description: The function for performing an even permutation after a fixed odd permutation is one to one onto all odd permutations. (Contributed by SO, 9-Jul-2018)

Ref Expression
Hypotheses evpmodpmf1o.s S=SymGrpD
evpmodpmf1o.p P=BaseS
Assertion evpmodpmf1o DFinFPpmEvenDfpmEvenDF+Sf:pmEvenD1-1 ontoPpmEvenD

Proof

Step Hyp Ref Expression
1 evpmodpmf1o.s S=SymGrpD
2 evpmodpmf1o.p P=BaseS
3 simpll DFinFPpmEvenDfpmEvenDDFin
4 1 symggrp DFinSGrp
5 4 ad2antrr DFinFPpmEvenDfpmEvenDSGrp
6 eldifi FPpmEvenDFP
7 6 ad2antlr DFinFPpmEvenDfpmEvenDFP
8 1 2 evpmss pmEvenDP
9 8 sseli fpmEvenDfP
10 9 adantl DFinFPpmEvenDfpmEvenDfP
11 eqid +S=+S
12 2 11 grpcl SGrpFPfPF+SfP
13 5 7 10 12 syl3anc DFinFPpmEvenDfpmEvenDF+SfP
14 eqid pmSgnD=pmSgnD
15 eqid mulGrpfld𝑠11=mulGrpfld𝑠11
16 1 14 15 psgnghm2 DFinpmSgnDSGrpHommulGrpfld𝑠11
17 16 ad2antrr DFinFPpmEvenDfpmEvenDpmSgnDSGrpHommulGrpfld𝑠11
18 prex 11V
19 eqid mulGrpfld=mulGrpfld
20 cnfldmul ×=fld
21 19 20 mgpplusg ×=+mulGrpfld
22 15 21 ressplusg 11V×=+mulGrpfld𝑠11
23 18 22 ax-mp ×=+mulGrpfld𝑠11
24 2 11 23 ghmlin pmSgnDSGrpHommulGrpfld𝑠11FPfPpmSgnDF+Sf=pmSgnDFpmSgnDf
25 17 7 10 24 syl3anc DFinFPpmEvenDfpmEvenDpmSgnDF+Sf=pmSgnDFpmSgnDf
26 1 2 14 psgnodpm DFinFPpmEvenDpmSgnDF=1
27 26 adantr DFinFPpmEvenDfpmEvenDpmSgnDF=1
28 1 2 14 psgnevpm DFinfpmEvenDpmSgnDf=1
29 28 adantlr DFinFPpmEvenDfpmEvenDpmSgnDf=1
30 27 29 oveq12d DFinFPpmEvenDfpmEvenDpmSgnDFpmSgnDf=-11
31 ax-1cn 1
32 31 mulm1i -11=1
33 30 32 eqtrdi DFinFPpmEvenDfpmEvenDpmSgnDFpmSgnDf=1
34 25 33 eqtrd DFinFPpmEvenDfpmEvenDpmSgnDF+Sf=1
35 1 2 14 psgnodpmr DFinF+SfPpmSgnDF+Sf=1F+SfPpmEvenD
36 3 13 34 35 syl3anc DFinFPpmEvenDfpmEvenDF+SfPpmEvenD
37 36 fmpttd DFinFPpmEvenDfpmEvenDF+Sf:pmEvenDPpmEvenD
38 4 ad2antrr DFinFPpmEvenDgPpmEvenDSGrp
39 eqid invgS=invgS
40 2 39 grpinvcl SGrpFPinvgSFP
41 4 6 40 syl2an DFinFPpmEvenDinvgSFP
42 41 adantr DFinFPpmEvenDgPpmEvenDinvgSFP
43 eldifi gPpmEvenDgP
44 43 adantl DFinFPpmEvenDgPpmEvenDgP
45 2 11 grpcl SGrpinvgSFPgPinvgSF+SgP
46 38 42 44 45 syl3anc DFinFPpmEvenDgPpmEvenDinvgSF+SgP
47 16 ad2antrr DFinFPpmEvenDgPpmEvenDpmSgnDSGrpHommulGrpfld𝑠11
48 2 11 23 ghmlin pmSgnDSGrpHommulGrpfld𝑠11invgSFPgPpmSgnDinvgSF+Sg=pmSgnDinvgSFpmSgnDg
49 47 42 44 48 syl3anc DFinFPpmEvenDgPpmEvenDpmSgnDinvgSF+Sg=pmSgnDinvgSFpmSgnDg
50 1 2 39 symginv FPinvgSF=F-1
51 6 50 syl FPpmEvenDinvgSF=F-1
52 51 ad2antlr DFinFPpmEvenDgPpmEvenDinvgSF=F-1
53 52 fveq2d DFinFPpmEvenDgPpmEvenDpmSgnDinvgSF=pmSgnDF-1
54 1 2 14 psgnodpm DFingPpmEvenDpmSgnDg=1
55 54 adantlr DFinFPpmEvenDgPpmEvenDpmSgnDg=1
56 53 55 oveq12d DFinFPpmEvenDgPpmEvenDpmSgnDinvgSFpmSgnDg=pmSgnDF-1-1
57 simpll DFinFPpmEvenDgPpmEvenDDFin
58 6 ad2antlr DFinFPpmEvenDgPpmEvenDFP
59 1 14 2 psgninv DFinFPpmSgnDF-1=pmSgnDF
60 57 58 59 syl2anc DFinFPpmEvenDgPpmEvenDpmSgnDF-1=pmSgnDF
61 26 adantr DFinFPpmEvenDgPpmEvenDpmSgnDF=1
62 60 61 eqtrd DFinFPpmEvenDgPpmEvenDpmSgnDF-1=1
63 62 oveq1d DFinFPpmEvenDgPpmEvenDpmSgnDF-1-1=-1-1
64 neg1mulneg1e1 -1-1=1
65 63 64 eqtrdi DFinFPpmEvenDgPpmEvenDpmSgnDF-1-1=1
66 49 56 65 3eqtrd DFinFPpmEvenDgPpmEvenDpmSgnDinvgSF+Sg=1
67 1 2 14 psgnevpmb DFininvgSF+SgpmEvenDinvgSF+SgPpmSgnDinvgSF+Sg=1
68 67 ad2antrr DFinFPpmEvenDgPpmEvenDinvgSF+SgpmEvenDinvgSF+SgPpmSgnDinvgSF+Sg=1
69 46 66 68 mpbir2and DFinFPpmEvenDgPpmEvenDinvgSF+SgpmEvenD
70 69 fmpttd DFinFPpmEvenDgPpmEvenDinvgSF+Sg:PpmEvenDpmEvenD
71 eqidd DFinFPpmEvenDfpmEvenDF+Sf=fpmEvenDF+Sf
72 eqidd DFinFPpmEvenDgPpmEvenDinvgSF+Sg=gPpmEvenDinvgSF+Sg
73 oveq2 g=F+SfinvgSF+Sg=invgSF+SF+Sf
74 36 71 72 73 fmptco DFinFPpmEvenDgPpmEvenDinvgSF+SgfpmEvenDF+Sf=fpmEvenDinvgSF+SF+Sf
75 eqid 0S=0S
76 2 11 75 39 grplinv SGrpFPinvgSF+SF=0S
77 5 7 76 syl2anc DFinFPpmEvenDfpmEvenDinvgSF+SF=0S
78 77 oveq1d DFinFPpmEvenDfpmEvenDinvgSF+SF+Sf=0S+Sf
79 41 adantr DFinFPpmEvenDfpmEvenDinvgSFP
80 2 11 grpass SGrpinvgSFPFPfPinvgSF+SF+Sf=invgSF+SF+Sf
81 5 79 7 10 80 syl13anc DFinFPpmEvenDfpmEvenDinvgSF+SF+Sf=invgSF+SF+Sf
82 2 11 75 grplid SGrpfP0S+Sf=f
83 5 10 82 syl2anc DFinFPpmEvenDfpmEvenD0S+Sf=f
84 78 81 83 3eqtr3d DFinFPpmEvenDfpmEvenDinvgSF+SF+Sf=f
85 84 mpteq2dva DFinFPpmEvenDfpmEvenDinvgSF+SF+Sf=fpmEvenDf
86 74 85 eqtrd DFinFPpmEvenDgPpmEvenDinvgSF+SgfpmEvenDF+Sf=fpmEvenDf
87 mptresid IpmEvenD=fpmEvenDf
88 86 87 eqtr4di DFinFPpmEvenDgPpmEvenDinvgSF+SgfpmEvenDF+Sf=IpmEvenD
89 oveq2 f=invgSF+SgF+Sf=F+SinvgSF+Sg
90 69 72 71 89 fmptco DFinFPpmEvenDfpmEvenDF+SfgPpmEvenDinvgSF+Sg=gPpmEvenDF+SinvgSF+Sg
91 2 11 75 39 grprinv SGrpFPF+SinvgSF=0S
92 4 6 91 syl2an DFinFPpmEvenDF+SinvgSF=0S
93 92 oveq1d DFinFPpmEvenDF+SinvgSF+Sg=0S+Sg
94 93 adantr DFinFPpmEvenDgPpmEvenDF+SinvgSF+Sg=0S+Sg
95 2 11 grpass SGrpFPinvgSFPgPF+SinvgSF+Sg=F+SinvgSF+Sg
96 38 58 42 44 95 syl13anc DFinFPpmEvenDgPpmEvenDF+SinvgSF+Sg=F+SinvgSF+Sg
97 2 11 75 grplid SGrpgP0S+Sg=g
98 38 44 97 syl2anc DFinFPpmEvenDgPpmEvenD0S+Sg=g
99 94 96 98 3eqtr3d DFinFPpmEvenDgPpmEvenDF+SinvgSF+Sg=g
100 99 mpteq2dva DFinFPpmEvenDgPpmEvenDF+SinvgSF+Sg=gPpmEvenDg
101 90 100 eqtrd DFinFPpmEvenDfpmEvenDF+SfgPpmEvenDinvgSF+Sg=gPpmEvenDg
102 mptresid IPpmEvenD=gPpmEvenDg
103 101 102 eqtr4di DFinFPpmEvenDfpmEvenDF+SfgPpmEvenDinvgSF+Sg=IPpmEvenD
104 37 70 88 103 fcof1od DFinFPpmEvenDfpmEvenDF+Sf:pmEvenD1-1 ontoPpmEvenD