MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  symgfisg Structured version   Visualization version   GIF version

Theorem symgfisg 19584
Description: The symmetric group has a subgroup of permutations that move finitely many points. (Contributed by Stefan O'Rear, 24-Aug-2015.)
Hypotheses
Ref Expression
symgsssg.g 𝐺 = (SymGrp‘𝐷)
symgsssg.b 𝐵 = (Base‘𝐺)
Assertion
Ref Expression
symgfisg (𝐷𝑉 → {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ∈ (SubGrp‘𝐺))
Distinct variable groups:   𝑥,𝐵   𝑥,𝐺
Allowed substitution hints:   𝐷(𝑥)   𝑉(𝑥)

Proof of Theorem symgfisg
Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqidd 2766 . 2 (𝐷𝑉 → (𝐺s {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin}) = (𝐺s {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin}))
2 eqidd 2766 . 2 (𝐷𝑉 → (0g𝐺) = (0g𝐺))
3 eqidd 2766 . 2 (𝐷𝑉 → (+g𝐺) = (+g𝐺))
4 ssrab2 4035 . . . 4 {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ⊆ 𝐵
5 symgsssg.b . . . 4 𝐵 = (Base‘𝐺)
64, 5sseqtri 3986 . . 3 {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ⊆ (Base‘𝐺)
76a1i 11 . 2 (𝐷𝑉 → {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ⊆ (Base‘𝐺))
8 difeq1 4074 . . . . 5 (𝑥 = (0g𝐺) → (𝑥 ∖ I ) = ((0g𝐺) ∖ I ))
98dmeqd 5897 . . . 4 (𝑥 = (0g𝐺) → dom (𝑥 ∖ I ) = dom ((0g𝐺) ∖ I ))
109eleq1d 2850 . . 3 (𝑥 = (0g𝐺) → (dom (𝑥 ∖ I ) ∈ Fin ↔ dom ((0g𝐺) ∖ I ) ∈ Fin))
11 symgsssg.g . . . . 5 𝐺 = (SymGrp‘𝐷)
1211symggrp 19516 . . . 4 (𝐷𝑉𝐺 ∈ Grp)
13 eqid 2765 . . . . 5 (0g𝐺) = (0g𝐺)
145, 13grpidcl 19078 . . . 4 (𝐺 ∈ Grp → (0g𝐺) ∈ 𝐵)
1512, 14syl 18 . . 3 (𝐷𝑉 → (0g𝐺) ∈ 𝐵)
1611symgid 19517 . . . . . 6 (𝐷𝑉 → ( I ↾ 𝐷) = (0g𝐺))
1716difeq1d 4080 . . . . 5 (𝐷𝑉 → (( I ↾ 𝐷) ∖ I ) = ((0g𝐺) ∖ I ))
1817dmeqd 5897 . . . 4 (𝐷𝑉 → dom (( I ↾ 𝐷) ∖ I ) = dom ((0g𝐺) ∖ I ))
19 resss 6002 . . . . . . . 8 ( I ↾ 𝐷) ⊆ I
20 ssdif0 4321 . . . . . . . 8 (( I ↾ 𝐷) ⊆ I ↔ (( I ↾ 𝐷) ∖ I ) = ∅)
2119, 20mpbi 233 . . . . . . 7 (( I ↾ 𝐷) ∖ I ) = ∅
2221dmeqi 5896 . . . . . 6 dom (( I ↾ 𝐷) ∖ I ) = dom ∅
23 dm0 5912 . . . . . 6 dom ∅ = ∅
2422, 23eqtri 2788 . . . . 5 dom (( I ↾ 𝐷) ∖ I ) = ∅
25 0fi 9046 . . . . 5 ∅ ∈ Fin
2624, 25eqeltri 2861 . . . 4 dom (( I ↾ 𝐷) ∖ I ) ∈ Fin
2718, 26eqeltrrdi 2874 . . 3 (𝐷𝑉 → dom ((0g𝐺) ∖ I ) ∈ Fin)
2810, 15, 27elrabd 3654 . 2 (𝐷𝑉 → (0g𝐺) ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin})
29 biid 264 . . 3 (𝐷𝑉𝐷𝑉)
30 difeq1 4074 . . . . . 6 (𝑥 = 𝑦 → (𝑥 ∖ I ) = (𝑦 ∖ I ))
3130dmeqd 5897 . . . . 5 (𝑥 = 𝑦 → dom (𝑥 ∖ I ) = dom (𝑦 ∖ I ))
3231eleq1d 2850 . . . 4 (𝑥 = 𝑦 → (dom (𝑥 ∖ I ) ∈ Fin ↔ dom (𝑦 ∖ I ) ∈ Fin))
3332elrab 3652 . . 3 (𝑦 ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ↔ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin))
34 difeq1 4074 . . . . . 6 (𝑥 = 𝑧 → (𝑥 ∖ I ) = (𝑧 ∖ I ))
3534dmeqd 5897 . . . . 5 (𝑥 = 𝑧 → dom (𝑥 ∖ I ) = dom (𝑧 ∖ I ))
3635eleq1d 2850 . . . 4 (𝑥 = 𝑧 → (dom (𝑥 ∖ I ) ∈ Fin ↔ dom (𝑧 ∖ I ) ∈ Fin))
3736elrab 3652 . . 3 (𝑧 ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ↔ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin))
38 difeq1 4074 . . . . . 6 (𝑥 = (𝑦(+g𝐺)𝑧) → (𝑥 ∖ I ) = ((𝑦(+g𝐺)𝑧) ∖ I ))
3938dmeqd 5897 . . . . 5 (𝑥 = (𝑦(+g𝐺)𝑧) → dom (𝑥 ∖ I ) = dom ((𝑦(+g𝐺)𝑧) ∖ I ))
4039eleq1d 2850 . . . 4 (𝑥 = (𝑦(+g𝐺)𝑧) → (dom (𝑥 ∖ I ) ∈ Fin ↔ dom ((𝑦(+g𝐺)𝑧) ∖ I ) ∈ Fin))
41123ad2ant1 1151 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → 𝐺 ∈ Grp)
42 simp2l 1218 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → 𝑦𝐵)
43 simp3l 1220 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → 𝑧𝐵)
44 eqid 2765 . . . . . 6 (+g𝐺) = (+g𝐺)
455, 44grpcl 19054 . . . . 5 ((𝐺 ∈ Grp ∧ 𝑦𝐵𝑧𝐵) → (𝑦(+g𝐺)𝑧) ∈ 𝐵)
4641, 42, 43, 45syl3anc 1398 . . . 4 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → (𝑦(+g𝐺)𝑧) ∈ 𝐵)
4711, 5, 44symgov 19500 . . . . . . . 8 ((𝑦𝐵𝑧𝐵) → (𝑦(+g𝐺)𝑧) = (𝑦𝑧))
4842, 43, 47syl2anc 596 . . . . . . 7 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → (𝑦(+g𝐺)𝑧) = (𝑦𝑧))
4948difeq1d 4080 . . . . . 6 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → ((𝑦(+g𝐺)𝑧) ∖ I ) = ((𝑦𝑧) ∖ I ))
5049dmeqd 5897 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → dom ((𝑦(+g𝐺)𝑧) ∖ I ) = dom ((𝑦𝑧) ∖ I ))
51 simp2r 1219 . . . . . . 7 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → dom (𝑦 ∖ I ) ∈ Fin)
52 simp3r 1221 . . . . . . 7 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → dom (𝑧 ∖ I ) ∈ Fin)
53 unfi 9162 . . . . . . 7 ((dom (𝑦 ∖ I ) ∈ Fin ∧ dom (𝑧 ∖ I ) ∈ Fin) → (dom (𝑦 ∖ I ) ∪ dom (𝑧 ∖ I )) ∈ Fin)
5451, 52, 53syl2anc 596 . . . . . 6 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → (dom (𝑦 ∖ I ) ∪ dom (𝑧 ∖ I )) ∈ Fin)
55 mvdco 19561 . . . . . 6 dom ((𝑦𝑧) ∖ I ) ⊆ (dom (𝑦 ∖ I ) ∪ dom (𝑧 ∖ I ))
56 ssfi 9164 . . . . . 6 (((dom (𝑦 ∖ I ) ∪ dom (𝑧 ∖ I )) ∈ Fin ∧ dom ((𝑦𝑧) ∖ I ) ⊆ (dom (𝑦 ∖ I ) ∪ dom (𝑧 ∖ I ))) → dom ((𝑦𝑧) ∖ I ) ∈ Fin)
5754, 55, 56sylancl 598 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → dom ((𝑦𝑧) ∖ I ) ∈ Fin)
5850, 57eqeltrd 2865 . . . 4 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → dom ((𝑦(+g𝐺)𝑧) ∖ I ) ∈ Fin)
5940, 46, 58elrabd 3654 . . 3 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin) ∧ (𝑧𝐵 ∧ dom (𝑧 ∖ I ) ∈ Fin)) → (𝑦(+g𝐺)𝑧) ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin})
6029, 33, 37, 59syl3anb 1179 . 2 ((𝐷𝑉𝑦 ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ∧ 𝑧 ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin}) → (𝑦(+g𝐺)𝑧) ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin})
61 difeq1 4074 . . . . . 6 (𝑥 = ((invg𝐺)‘𝑦) → (𝑥 ∖ I ) = (((invg𝐺)‘𝑦) ∖ I ))
6261dmeqd 5897 . . . . 5 (𝑥 = ((invg𝐺)‘𝑦) → dom (𝑥 ∖ I ) = dom (((invg𝐺)‘𝑦) ∖ I ))
6362eleq1d 2850 . . . 4 (𝑥 = ((invg𝐺)‘𝑦) → (dom (𝑥 ∖ I ) ∈ Fin ↔ dom (((invg𝐺)‘𝑦) ∖ I ) ∈ Fin))
64 simprl 783 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → 𝑦𝐵)
65 eqid 2765 . . . . . 6 (invg𝐺) = (invg𝐺)
665, 65grpinvcl 19100 . . . . 5 ((𝐺 ∈ Grp ∧ 𝑦𝐵) → ((invg𝐺)‘𝑦) ∈ 𝐵)
6712, 64, 66syl2an2r 698 . . . 4 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → ((invg𝐺)‘𝑦) ∈ 𝐵)
6811, 5, 65symginv 19518 . . . . . . . . 9 (𝑦𝐵 → ((invg𝐺)‘𝑦) = 𝑦)
6968ad2antrl 741 . . . . . . . 8 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → ((invg𝐺)‘𝑦) = 𝑦)
7069difeq1d 4080 . . . . . . 7 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → (((invg𝐺)‘𝑦) ∖ I ) = (𝑦 ∖ I ))
7170dmeqd 5897 . . . . . 6 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → dom (((invg𝐺)‘𝑦) ∖ I ) = dom (𝑦 ∖ I ))
7211, 5symgbasf1o 19491 . . . . . . . 8 (𝑦𝐵𝑦:𝐷1-1-onto𝐷)
7372ad2antrl 741 . . . . . . 7 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → 𝑦:𝐷1-1-onto𝐷)
74 f1omvdcnv 19560 . . . . . . 7 (𝑦:𝐷1-1-onto𝐷 → dom (𝑦 ∖ I ) = dom (𝑦 ∖ I ))
7573, 74syl 18 . . . . . 6 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → dom (𝑦 ∖ I ) = dom (𝑦 ∖ I ))
7671, 75eqtrd 2800 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → dom (((invg𝐺)‘𝑦) ∖ I ) = dom (𝑦 ∖ I ))
77 simprr 785 . . . . 5 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → dom (𝑦 ∖ I ) ∈ Fin)
7876, 77eqeltrd 2865 . . . 4 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → dom (((invg𝐺)‘𝑦) ∖ I ) ∈ Fin)
7963, 67, 78elrabd 3654 . . 3 ((𝐷𝑉 ∧ (𝑦𝐵 ∧ dom (𝑦 ∖ I ) ∈ Fin)) → ((invg𝐺)‘𝑦) ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin})
8033, 79sylan2b 606 . 2 ((𝐷𝑉𝑦 ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin}) → ((invg𝐺)‘𝑦) ∈ {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin})
811, 2, 3, 7, 28, 60, 80, 12issubgrpd2 19255 1 (𝐷𝑉 → {𝑥𝐵 ∣ dom (𝑥 ∖ I ) ∈ Fin} ∈ (SubGrp‘𝐺))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wa 401  w3a 1103   = wceq 1570  wcel 2146  {crab 3418  cdif 3903  cun 3904  wss 3906  c0 4286   I cid 5557  ccnv 5662  dom cdm 5663  cres 5665  ccom 5667  1-1-ontowf1o 6539  cfv 6540  (class class class)co 7419  Fincfn 8949  Basecbs 17293  s cress 17314  +gcplusg 17334  0gc0g 17516  Grpcgrp 19046  invgcminusg 19047  SubGrpcsubg 19232  SymGrpcsymg 19485
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11173  ax-resscn 11174  ax-1cn 11175  ax-icn 11176  ax-addcl 11177  ax-addrcl 11178  ax-mulcl 11179  ax-mulrcl 11180  ax-mulcom 11181  ax-addass 11182  ax-mulass 11183  ax-distr 11184  ax-i2m1 11185  ax-1ne0 11186  ax-1rid 11187  ax-rnegex 11188  ax-rrecex 11189  ax-cnre 11190  ax-pre-lttri 11191  ax-pre-lttrn 11192  ax-pre-ltadd 11193  ax-pre-mulgt0 11194
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-map 8832  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-pnf 11262  df-mnf 11263  df-xr 11264  df-ltxr 11265  df-le 11266  df-sub 11460  df-neg 11461  df-nn 12251  df-2 12320  df-3 12321  df-4 12322  df-5 12323  df-6 12324  df-7 12325  df-8 12326  df-9 12327  df-n0 12522  df-z 12609  df-uz 12881  df-fz 13554  df-struct 17231  df-sets 17248  df-slot 17266  df-ndx 17278  df-base 17294  df-ress 17315  df-plusg 17347  df-tset 17353  df-0g 17518  df-mgm 18722  df-sgrp 18811  df-mnd 18827  df-submnd 18881  df-efmnd 18967  df-grp 19049  df-minusg 19050  df-subg 19235  df-symg 19486
This theorem is used by:  symggen  19586  psgndmsubg  19618
  Copyright terms: Public domain W3C validator