Theorem tocycf 30759

Description: The permutation cycle builder as a function. (Contributed by Thierry Arnoux, 25-Sep-2023.)

Hypotheses

Ref	Expression
tocycf.c	⊢ 𝐶 = (toCyc‘𝐷)
tocycf.s	⊢ 𝑆 = (SymGrp‘𝐷)
tocycf.b	⊢ 𝐵 = (Base‘𝑆)

Assertion

Ref	Expression
tocycf	⊢ (𝐷 ∈ 𝑉 → 𝐶:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶𝐵)

Distinct variable group:   𝑤,𝐷

Allowed substitution hints:   𝐵(𝑤)   𝐶(𝑤)   𝑆(𝑤)   𝑉(𝑤)

Proof of Theorem tocycf

Dummy variable 𝑢 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		tocycf.c	. . 3 ⊢ 𝐶 = (toCyc‘𝐷)
2	1	tocycval 30750	. 2 ⊢ (𝐷 ∈ 𝑉 → 𝐶 = (𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↦ (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢))))
3		simpr 487	. . . . . . . . . . 11 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → 𝑢 = ∅)
4	3	rneqd 5808	. . . . . . . . . 10 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ran 𝑢 = ran ∅)
5		rn0 5796	. . . . . . . . . 10 ⊢ ran ∅ = ∅
6	4, 5	syl6eq 2872	. . . . . . . . 9 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ran 𝑢 = ∅)
7	6	difeq2d 4099	. . . . . . . 8 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → (𝐷 ∖ ran 𝑢) = (𝐷 ∖ ∅))
8		dif0 4332	. . . . . . . 8 ⊢ (𝐷 ∖ ∅) = 𝐷
9	7, 8	syl6eq 2872	. . . . . . 7 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → (𝐷 ∖ ran 𝑢) = 𝐷)
10	9	reseq2d 5853	. . . . . 6 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ( I ↾ (𝐷 ∖ ran 𝑢)) = ( I ↾ 𝐷))
11	3	cnveqd 5746	. . . . . . . . 9 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ◡𝑢 = ◡∅)
12		cnv0 5999	. . . . . . . . 9 ⊢ ◡∅ = ∅
13	11, 12	syl6eq 2872	. . . . . . . 8 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ◡𝑢 = ∅)
14	13	coeq2d 5733	. . . . . . 7 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ((𝑢 cyclShift 1) ∘ ◡𝑢) = ((𝑢 cyclShift 1) ∘ ∅))
15		co02 6113	. . . . . . 7 ⊢ ((𝑢 cyclShift 1) ∘ ∅) = ∅
16	14, 15	syl6eq 2872	. . . . . 6 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ((𝑢 cyclShift 1) ∘ ◡𝑢) = ∅)
17	10, 16	uneq12d 4140	. . . . 5 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) = (( I ↾ 𝐷) ∪ ∅))
18		un0 4344	. . . . 5 ⊢ (( I ↾ 𝐷) ∪ ∅) = ( I ↾ 𝐷)
19	17, 18	syl6eq 2872	. . . 4 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) = ( I ↾ 𝐷))
20		tocycf.s	. . . . . . 7 ⊢ 𝑆 = (SymGrp‘𝐷)
21	20	idresperm 18514	. . . . . 6 ⊢ (𝐷 ∈ 𝑉 → ( I ↾ 𝐷) ∈ (Base‘𝑆))
22		tocycf.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑆)
23	21, 22	eleqtrrdi 2924	. . . . 5 ⊢ (𝐷 ∈ 𝑉 → ( I ↾ 𝐷) ∈ 𝐵)
24	23	ad2antrr 724	. . . 4 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → ( I ↾ 𝐷) ∈ 𝐵)
25	19, 24	eqeltrd 2913	. . 3 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 = ∅) → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) ∈ 𝐵)
26		difexg 5231	. . . . . . . . 9 ⊢ (𝐷 ∈ 𝑉 → (𝐷 ∖ ran 𝑢) ∈ V)
27	26	resiexd 6979	. . . . . . . 8 ⊢ (𝐷 ∈ 𝑉 → ( I ↾ (𝐷 ∖ ran 𝑢)) ∈ V)
28		ovex 7189	. . . . . . . . 9 ⊢ (𝑢 cyclShift 1) ∈ V
29		vex 3497	. . . . . . . . . 10 ⊢ 𝑢 ∈ V
30	29	cnvex 7630	. . . . . . . . 9 ⊢ ◡𝑢 ∈ V
31	28, 30	coex 7635	. . . . . . . 8 ⊢ ((𝑢 cyclShift 1) ∘ ◡𝑢) ∈ V
32		unexg 7472	. . . . . . . 8 ⊢ ((( I ↾ (𝐷 ∖ ran 𝑢)) ∈ V ∧ ((𝑢 cyclShift 1) ∘ ◡𝑢) ∈ V) → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) ∈ V)
33	27, 31, 32	sylancl 588	. . . . . . 7 ⊢ (𝐷 ∈ 𝑉 → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) ∈ V)
34	33	adantr 483	. . . . . 6 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) ∈ V)
35	2, 34	fvmpt2d 6781	. . . . 5 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) → (𝐶‘𝑢) = (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)))
36	35	adantr 483	. . . 4 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → (𝐶‘𝑢) = (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)))
37		simpll 765	. . . . . 6 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → 𝐷 ∈ 𝑉)
38		simplr 767	. . . . . . . 8 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
39		id 22	. . . . . . . . . 10 ⊢ (𝑤 = 𝑢 → 𝑤 = 𝑢)
40		dmeq 5772	. . . . . . . . . 10 ⊢ (𝑤 = 𝑢 → dom 𝑤 = dom 𝑢)
41		eqidd 2822	. . . . . . . . . 10 ⊢ (𝑤 = 𝑢 → 𝐷 = 𝐷)
42	39, 40, 41	f1eq123d 6608	. . . . . . . . 9 ⊢ (𝑤 = 𝑢 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑢:dom 𝑢–1-1→𝐷))
43	42	elrab 3680	. . . . . . . 8 ⊢ (𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↔ (𝑢 ∈ Word 𝐷 ∧ 𝑢:dom 𝑢–1-1→𝐷))
44	38, 43	sylib 220	. . . . . . 7 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → (𝑢 ∈ Word 𝐷 ∧ 𝑢:dom 𝑢–1-1→𝐷))
45	44	simpld 497	. . . . . 6 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → 𝑢 ∈ Word 𝐷)
46	44	simprd 498	. . . . . 6 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → 𝑢:dom 𝑢–1-1→𝐷)
47	1, 37, 45, 46, 20	cycpmcl 30758	. . . . 5 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → (𝐶‘𝑢) ∈ (Base‘𝑆))
48	47, 22	eleqtrrdi 2924	. . . 4 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → (𝐶‘𝑢) ∈ 𝐵)
49	36, 48	eqeltrrd 2914	. . 3 ⊢ (((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) ∧ 𝑢 ≠ ∅) → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) ∈ 𝐵)
50	25, 49	pm2.61dane 3104	. 2 ⊢ ((𝐷 ∈ 𝑉 ∧ 𝑢 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) → (( I ↾ (𝐷 ∖ ran 𝑢)) ∪ ((𝑢 cyclShift 1) ∘ ◡𝑢)) ∈ 𝐵)
51	2, 50	fmpt3d 6880	1 ⊢ (𝐷 ∈ 𝑉 → 𝐶:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶𝐵)

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114   ≠ wne 3016  {crab 3142  Vcvv 3494   ∖ cdif 3933   ∪ cun 3934  ∅c0 4291   I cid 5459  ^◡ccnv 5554  dom cdm 5555  ran crn 5556   ↾ cres 5557   ∘ ccom 5559  ⟶wf 6351  –1-1→wf1 6352  ‘cfv 6355  (class class class)co 7156  1c1 10538  Word cword 13862   cyclShift ccsh 14150  Basecbs 16483  SymGrpcsymg 18495  toCycctocyc 30748

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461  ax-cnex 10593  ax-resscn 10594  ax-1cn 10595  ax-icn 10596  ax-addcl 10597  ax-addrcl 10598  ax-mulcl 10599  ax-mulrcl 10600  ax-mulcom 10601  ax-addass 10602  ax-mulass 10603  ax-distr 10604  ax-i2m1 10605  ax-1ne0 10606  ax-1rid 10607  ax-rnegex 10608  ax-rrecex 10609  ax-cnre 10610  ax-pre-lttri 10611  ax-pre-lttrn 10612  ax-pre-ltadd 10613  ax-pre-mulgt0 10614  ax-pre-sup 10615

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4839  df-int 4877  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-tr 5173  df-id 5460  df-eprel 5465  df-po 5474  df-so 5475  df-fr 5514  df-we 5516  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-pred 6148  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-om 7581  df-1st 7689  df-2nd 7690  df-wrecs 7947  df-recs 8008  df-rdg 8046  df-1o 8102  df-oadd 8106  df-er 8289  df-map 8408  df-en 8510  df-dom 8511  df-sdom 8512  df-fin 8513  df-sup 8906  df-inf 8907  df-card 9368  df-pnf 10677  df-mnf 10678  df-xr 10679  df-ltxr 10680  df-le 10681  df-sub 10872  df-neg 10873  df-div 11298  df-nn 11639  df-2 11701  df-3 11702  df-4 11703  df-5 11704  df-6 11705  df-7 11706  df-8 11707  df-9 11708  df-n0 11899  df-z 11983  df-uz 12245  df-rp 12391  df-fz 12894  df-fzo 13035  df-fl 13163  df-mod 13239  df-hash 13692  df-word 13863  df-concat 13923  df-substr 14003  df-pfx 14033  df-csh 14151  df-struct 16485  df-ndx 16486  df-slot 16487  df-base 16489  df-sets 16490  df-ress 16491  df-plusg 16578  df-tset 16584  df-efmnd 18034  df-symg 18496  df-tocyc 30749

This theorem is referenced by:  tocyc01  30760  cycpmco2f1  30766  cycpmco2rn  30767  cycpmco2lem1  30768  cycpmco2lem2  30769  cycpmco2lem3  30770  cycpmco2lem4  30771  cycpmco2lem5  30772  cycpmco2lem6  30773  cycpmco2lem7  30774  cycpmco2  30775  cycpm3cl2  30778  cycpmconjv  30784  tocyccntz  30786  cyc3evpm  30792  cycpmgcl  30795  cycpmconjslem2  30797  cyc3conja  30799