Theorem cycpmgcl 30816

Description: Cyclic permutations are permutations, similar to cycpmcl 30779, but where the set of cyclic permutations of length 𝑃 is expressed in terms of a preimage. (Contributed by Thierry Arnoux, 13-Oct-2023.)

Hypotheses

Ref	Expression
cycpmconjs.c	⊢ 𝐶 = (𝑀 “ (◡♯ “ {𝑃}))
cycpmconjs.s	⊢ 𝑆 = (SymGrp‘𝐷)
cycpmconjs.n	⊢ 𝑁 = (♯‘𝐷)
cycpmconjs.m	⊢ 𝑀 = (toCyc‘𝐷)
cycpmgcl.b	⊢ 𝐵 = (Base‘𝑆)

Assertion

Ref	Expression
cycpmgcl	⊢ ((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) → 𝐶 ⊆ 𝐵)

Proof of Theorem cycpmgcl

Dummy variables 𝑝 𝑢 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 487	. . . . 5 ⊢ (((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) ∧ (𝑀‘𝑢) = 𝑝) → (𝑀‘𝑢) = 𝑝)
2		cycpmconjs.m	. . . . . . . 8 ⊢ 𝑀 = (toCyc‘𝐷)
3		simplll 773	. . . . . . . 8 ⊢ ((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) → 𝐷 ∈ 𝑉)
4		simpr 487	. . . . . . . . . 10 ⊢ ((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) → 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃})))
5	4	elin1d 4172	. . . . . . . . 9 ⊢ ((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) → 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
6		elrabi 3673	. . . . . . . . 9 ⊢ (𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} → 𝑢 ∈ Word 𝐷)
7	5, 6	syl 17	. . . . . . . 8 ⊢ ((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) → 𝑢 ∈ Word 𝐷)
8		id 22	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑢 → 𝑤 = 𝑢)
9		dmeq 5769	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑢 → dom 𝑤 = dom 𝑢)
10		eqidd 2821	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑢 → 𝐷 = 𝐷)
11	8, 9, 10	f1eq123d 6605	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑢 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑢:dom 𝑢–1-1→𝐷))
12	11	elrab 3678	. . . . . . . . . 10 ⊢ (𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↔ (𝑢 ∈ Word 𝐷 ∧ 𝑢:dom 𝑢–1-1→𝐷))
13	12	simprbi 499	. . . . . . . . 9 ⊢ (𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} → 𝑢:dom 𝑢–1-1→𝐷)
14	5, 13	syl 17	. . . . . . . 8 ⊢ ((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) → 𝑢:dom 𝑢–1-1→𝐷)
15		cycpmconjs.s	. . . . . . . 8 ⊢ 𝑆 = (SymGrp‘𝐷)
16	2, 3, 7, 14, 15	cycpmcl 30779	. . . . . . 7 ⊢ ((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) → (𝑀‘𝑢) ∈ (Base‘𝑆))
17	16	adantr 483	. . . . . 6 ⊢ (((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) ∧ (𝑀‘𝑢) = 𝑝) → (𝑀‘𝑢) ∈ (Base‘𝑆))
18		cycpmgcl.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑆)
19	17, 18	eleqtrrdi 2923	. . . . 5 ⊢ (((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) ∧ (𝑀‘𝑢) = 𝑝) → (𝑀‘𝑢) ∈ 𝐵)
20	1, 19	eqeltrrd 2913	. . . 4 ⊢ (((((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) ∧ 𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))) ∧ (𝑀‘𝑢) = 𝑝) → 𝑝 ∈ 𝐵)
21		nfcv 2976	. . . . 5 ⊢ Ⅎ𝑢𝑀
22		simpl 485	. . . . . . 7 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) → 𝐷 ∈ 𝑉)
23	2, 15, 18	tocycf 30780	. . . . . . 7 ⊢ (𝐷 ∈ 𝑉 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶𝐵)
24		ffn 6511	. . . . . . 7 ⊢ (𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶𝐵 → 𝑀 Fn {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
25	22, 23, 24	3syl 18	. . . . . 6 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) → 𝑀 Fn {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
26	25	adantr 483	. . . . 5 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) → 𝑀 Fn {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
27		cycpmconjs.c	. . . . . . . 8 ⊢ 𝐶 = (𝑀 “ (◡♯ “ {𝑃}))
28	27	eleq2i 2903	. . . . . . 7 ⊢ (𝑝 ∈ 𝐶 ↔ 𝑝 ∈ (𝑀 “ (◡♯ “ {𝑃})))
29	28	a1i 11	. . . . . 6 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) → (𝑝 ∈ 𝐶 ↔ 𝑝 ∈ (𝑀 “ (◡♯ “ {𝑃}))))
30	29	biimpa 479	. . . . 5 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) → 𝑝 ∈ (𝑀 “ (◡♯ “ {𝑃})))
31	21, 26, 30	fvelimad 6729	. . . 4 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) → ∃𝑢 ∈ ({𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ∩ (◡♯ “ {𝑃}))(𝑀‘𝑢) = 𝑝)
32	20, 31	r19.29a 3288	. . 3 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) ∧ 𝑝 ∈ 𝐶) → 𝑝 ∈ 𝐵)
33	32	ex 415	. 2 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) → (𝑝 ∈ 𝐶 → 𝑝 ∈ 𝐵))
34	33	ssrdv 3970	1 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑃 ∈ (0...𝑁)) → 𝐶 ⊆ 𝐵)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1536   ∈ wcel 2113  {crab 3141   ∩ cin 3932   ⊆ wss 3933  {csn 4564  ^◡ccnv 5551  dom cdm 5552   “ cima 5555   Fn wfn 6347  ⟶wf 6348  –1-1→wf1 6349  ‘cfv 6352  (class class class)co 7153  0cc0 10534  ...cfz 12890  ♯chash 13688  Word cword 13859  Basecbs 16479  SymGrpcsymg 18491  toCycctocyc 30769

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2792  ax-rep 5187  ax-sep 5200  ax-nul 5207  ax-pow 5263  ax-pr 5327  ax-un 7458  ax-cnex 10590  ax-resscn 10591  ax-1cn 10592  ax-icn 10593  ax-addcl 10594  ax-addrcl 10595  ax-mulcl 10596  ax-mulrcl 10597  ax-mulcom 10598  ax-addass 10599  ax-mulass 10600  ax-distr 10601  ax-i2m1 10602  ax-1ne0 10603  ax-1rid 10604  ax-rnegex 10605  ax-rrecex 10606  ax-cnre 10607  ax-pre-lttri 10608  ax-pre-lttrn 10609  ax-pre-ltadd 10610  ax-pre-mulgt0 10611  ax-pre-sup 10612

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1083  df-3an 1084  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2799  df-cleq 2813  df-clel 2892  df-nfc 2962  df-ne 3016  df-nel 3123  df-ral 3142  df-rex 3143  df-reu 3144  df-rmo 3145  df-rab 3146  df-v 3495  df-sbc 3771  df-csb 3881  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-pss 3951  df-nul 4289  df-if 4465  df-pw 4538  df-sn 4565  df-pr 4567  df-tp 4569  df-op 4571  df-uni 4836  df-int 4874  df-iun 4918  df-br 5064  df-opab 5126  df-mpt 5144  df-tr 5170  df-id 5457  df-eprel 5462  df-po 5471  df-so 5472  df-fr 5511  df-we 5513  df-xp 5558  df-rel 5559  df-cnv 5560  df-co 5561  df-dm 5562  df-rn 5563  df-res 5564  df-ima 5565  df-pred 6145  df-ord 6191  df-on 6192  df-lim 6193  df-suc 6194  df-iota 6311  df-fun 6354  df-fn 6355  df-f 6356  df-f1 6357  df-fo 6358  df-f1o 6359  df-fv 6360  df-riota 7111  df-ov 7156  df-oprab 7157  df-mpo 7158  df-om 7578  df-1st 7686  df-2nd 7687  df-wrecs 7944  df-recs 8005  df-rdg 8043  df-1o 8099  df-oadd 8103  df-er 8286  df-map 8405  df-en 8507  df-dom 8508  df-sdom 8509  df-fin 8510  df-sup 8903  df-inf 8904  df-card 9365  df-pnf 10674  df-mnf 10675  df-xr 10676  df-ltxr 10677  df-le 10678  df-sub 10869  df-neg 10870  df-div 11295  df-nn 11636  df-2 11698  df-3 11699  df-4 11700  df-5 11701  df-6 11702  df-7 11703  df-8 11704  df-9 11705  df-n0 11896  df-z 11980  df-uz 12242  df-rp 12388  df-fz 12891  df-fzo 13032  df-fl 13160  df-mod 13236  df-hash 13689  df-word 13860  df-concat 13919  df-substr 13999  df-pfx 14029  df-csh 14147  df-struct 16481  df-ndx 16482  df-slot 16483  df-base 16485  df-sets 16486  df-ress 16487  df-plusg 16574  df-tset 16580  df-efmnd 18030  df-symg 18492  df-tocyc 30770

This theorem is referenced by:  cycpmconjslem2  30818  cycpmconjs  30819  cyc3conja  30820