Metamath Proof Explorer


Theorem symgfisg

Description: The symmetric group has a subgroup of permutations that move finitely many points. (Contributed by Stefan O'Rear, 24-Aug-2015)

Ref Expression
Hypotheses symgsssg.g G=SymGrpD
symgsssg.b B=BaseG
Assertion symgfisg DVxB|domxIFinSubGrpG

Proof

Step Hyp Ref Expression
1 symgsssg.g G=SymGrpD
2 symgsssg.b B=BaseG
3 eqidd DVG𝑠xB|domxIFin=G𝑠xB|domxIFin
4 eqidd DV0G=0G
5 eqidd DV+G=+G
6 ssrab2 xB|domxIFinB
7 6 2 sseqtri xB|domxIFinBaseG
8 7 a1i DVxB|domxIFinBaseG
9 difeq1 x=0GxI=0GI
10 9 dmeqd x=0GdomxI=dom0GI
11 10 eleq1d x=0GdomxIFindom0GIFin
12 1 symggrp DVGGrp
13 eqid 0G=0G
14 2 13 grpidcl GGrp0GB
15 12 14 syl DV0GB
16 1 symgid DVID=0G
17 16 difeq1d DVIDI=0GI
18 17 dmeqd DVdomIDI=dom0GI
19 resss IDI
20 ssdif0 IDIIDI=
21 19 20 mpbi IDI=
22 21 dmeqi domIDI=dom
23 dm0 dom=
24 22 23 eqtri domIDI=
25 0fin Fin
26 24 25 eqeltri domIDIFin
27 18 26 eqeltrrdi DVdom0GIFin
28 11 15 27 elrabd DV0GxB|domxIFin
29 biid DVDV
30 difeq1 x=yxI=yI
31 30 dmeqd x=ydomxI=domyI
32 31 eleq1d x=ydomxIFindomyIFin
33 32 elrab yxB|domxIFinyBdomyIFin
34 difeq1 x=zxI=zI
35 34 dmeqd x=zdomxI=domzI
36 35 eleq1d x=zdomxIFindomzIFin
37 36 elrab zxB|domxIFinzBdomzIFin
38 difeq1 x=y+GzxI=y+GzI
39 38 dmeqd x=y+GzdomxI=domy+GzI
40 39 eleq1d x=y+GzdomxIFindomy+GzIFin
41 12 3ad2ant1 DVyBdomyIFinzBdomzIFinGGrp
42 simp2l DVyBdomyIFinzBdomzIFinyB
43 simp3l DVyBdomyIFinzBdomzIFinzB
44 eqid +G=+G
45 2 44 grpcl GGrpyBzBy+GzB
46 41 42 43 45 syl3anc DVyBdomyIFinzBdomzIFiny+GzB
47 1 2 44 symgov yBzBy+Gz=yz
48 42 43 47 syl2anc DVyBdomyIFinzBdomzIFiny+Gz=yz
49 48 difeq1d DVyBdomyIFinzBdomzIFiny+GzI=yzI
50 49 dmeqd DVyBdomyIFinzBdomzIFindomy+GzI=domyzI
51 simp2r DVyBdomyIFinzBdomzIFindomyIFin
52 simp3r DVyBdomyIFinzBdomzIFindomzIFin
53 unfi domyIFindomzIFindomyIdomzIFin
54 51 52 53 syl2anc DVyBdomyIFinzBdomzIFindomyIdomzIFin
55 mvdco domyzIdomyIdomzI
56 ssfi domyIdomzIFindomyzIdomyIdomzIdomyzIFin
57 54 55 56 sylancl DVyBdomyIFinzBdomzIFindomyzIFin
58 50 57 eqeltrd DVyBdomyIFinzBdomzIFindomy+GzIFin
59 40 46 58 elrabd DVyBdomyIFinzBdomzIFiny+GzxB|domxIFin
60 29 33 37 59 syl3anb DVyxB|domxIFinzxB|domxIFiny+GzxB|domxIFin
61 difeq1 x=invgGyxI=invgGyI
62 61 dmeqd x=invgGydomxI=dominvgGyI
63 62 eleq1d x=invgGydomxIFindominvgGyIFin
64 simprl DVyBdomyIFinyB
65 eqid invgG=invgG
66 2 65 grpinvcl GGrpyBinvgGyB
67 12 64 66 syl2an2r DVyBdomyIFininvgGyB
68 1 2 65 symginv yBinvgGy=y-1
69 68 ad2antrl DVyBdomyIFininvgGy=y-1
70 69 difeq1d DVyBdomyIFininvgGyI=y-1I
71 70 dmeqd DVyBdomyIFindominvgGyI=domy-1I
72 1 2 symgbasf1o yBy:D1-1 ontoD
73 72 ad2antrl DVyBdomyIFiny:D1-1 ontoD
74 f1omvdcnv y:D1-1 ontoDdomy-1I=domyI
75 73 74 syl DVyBdomyIFindomy-1I=domyI
76 71 75 eqtrd DVyBdomyIFindominvgGyI=domyI
77 simprr DVyBdomyIFindomyIFin
78 76 77 eqeltrd DVyBdomyIFindominvgGyIFin
79 63 67 78 elrabd DVyBdomyIFininvgGyxB|domxIFin
80 33 79 sylan2b DVyxB|domxIFininvgGyxB|domxIFin
81 3 4 5 8 28 60 80 12 issubgrpd2 DVxB|domxIFinSubGrpG