Theorem 1arithidom 33566

Description: Uniqueness of prime factorizations in an integral domain 𝑅. Given two equal products 𝐹 and 𝐺 of prime elements, 𝐹 and 𝐺 are equal up to a renumbering 𝑤 and a multiplication by units 𝑢. See also 1arith 16966. Chapter VII, Paragraph 3, Section 3, Proposition 2 of [BourbakiCAlg2], p. 228. (Contributed by Thierry Arnoux, 27-May-2025.)

Hypotheses

Ref	Expression
1arithidom.u	⊢ 𝑈 = (Unit‘𝑅)
1arithidom.i	⊢ 𝑃 = (RPrime‘𝑅)
1arithidom.m	⊢ 𝑀 = (mulGrp‘𝑅)
1arithidom.t	⊢ · = (.r‘𝑅)
1arithidom.j	⊢ 𝐽 = (0..^(♯‘𝐹))
1arithidom.r	⊢ (𝜑 → 𝑅 ∈ IDomn)
1arithidom.f	⊢ (𝜑 → 𝐹 ∈ Word 𝑃)
1arithidom.g	⊢ (𝜑 → 𝐺 ∈ Word 𝑃)
1arithidom.1	⊢ (𝜑 → (𝑀 Σg 𝐹) = (𝑀 Σg 𝐺))

Assertion

Ref	Expression
1arithidom	⊢ (𝜑 → ∃𝑤∃𝑢 ∈ (𝑈 ↑m 𝐽)(𝑤:𝐽–1-1-onto→𝐽 ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))

Distinct variable groups:   𝑢, · ,𝑤   𝑢,𝐹,𝑤   𝑢,𝐺,𝑤   𝑢,𝑀,𝑤   𝑢,𝑃,𝑤   𝑢,𝑅,𝑤   𝑢,𝑈,𝑤   𝜑,𝑢

Allowed substitution hints:   𝜑(𝑤)   𝐽(𝑤,𝑢)

Proof of Theorem 1arithidom

Dummy variables 𝑐 𝑑 𝑓 𝑔 ℎ 𝑖 𝑗 𝑚 𝑝 𝑟 𝑠 𝑡 𝑣 𝑥 𝑦 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		1arithidom.r	. . . . . 6 ⊢ (𝜑 → 𝑅 ∈ IDomn)
2	1	idomringd 20729	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Ring)
3		1arithidom.u	. . . . . 6 ⊢ 𝑈 = (Unit‘𝑅)
4		eqid 2736	. . . . . 6 ⊢ (1r‘𝑅) = (1r‘𝑅)
5	3, 4	1unit 20375	. . . . 5 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ 𝑈)
6	2, 5	syl 17	. . . 4 ⊢ (𝜑 → (1r‘𝑅) ∈ 𝑈)
7		oveq1 7439	. . . . . . 7 ⊢ (𝑘 = (1r‘𝑅) → (𝑘 · (𝑀 Σg 𝐺)) = ((1r‘𝑅) · (𝑀 Σg 𝐺)))
8	7	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 = (1r‘𝑅)) → (𝑘 · (𝑀 Σg 𝐺)) = ((1r‘𝑅) · (𝑀 Σg 𝐺)))
9		eqid 2736	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
10		1arithidom.t	. . . . . . 7 ⊢ · = (.r‘𝑅)
11	2	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 = (1r‘𝑅)) → 𝑅 ∈ Ring)
12		1arithidom.m	. . . . . . . . . 10 ⊢ 𝑀 = (mulGrp‘𝑅)
13	12, 9	mgpbas 20143	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑀)
14	12, 4	ringidval 20181	. . . . . . . . 9 ⊢ (1r‘𝑅) = (0g‘𝑀)
15		id 22	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ IDomn)
16	15	idomcringd 20728	. . . . . . . . . . 11 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ CRing)
17	12	crngmgp 20239	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → 𝑀 ∈ CMnd)
18	16, 17	syl 17	. . . . . . . . . 10 ⊢ (𝑅 ∈ IDomn → 𝑀 ∈ CMnd)
19	1, 18	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ CMnd)
20		ovexd 7467	. . . . . . . . 9 ⊢ (𝜑 → (0..^(♯‘𝐺)) ∈ V)
21		eqidd 2737	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐺) = (♯‘𝐺))
22		1arithidom.g	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ Word 𝑃)
23	21, 22	wrdfd 32919	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺:(0..^(♯‘𝐺))⟶𝑃)
24		1arithidom.i	. . . . . . . . . . . . 13 ⊢ 𝑃 = (RPrime‘𝑅)
25	1	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑃) → 𝑅 ∈ IDomn)
26		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑃) → 𝑝 ∈ 𝑃)
27	9, 24, 25, 26	rprmcl 33547	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑃) → 𝑝 ∈ (Base‘𝑅))
28	27	ex 412	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑝 ∈ 𝑃 → 𝑝 ∈ (Base‘𝑅)))
29	28	ssrdv 3988	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ⊆ (Base‘𝑅))
30	23, 29	fssd 6752	. . . . . . . . 9 ⊢ (𝜑 → 𝐺:(0..^(♯‘𝐺))⟶(Base‘𝑅))
31	6, 22	wrdfsupp 32922	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 finSupp (1r‘𝑅))
32	13, 14, 19, 20, 30, 31	gsumcl 19934	. . . . . . . 8 ⊢ (𝜑 → (𝑀 Σg 𝐺) ∈ (Base‘𝑅))
33	32	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 = (1r‘𝑅)) → (𝑀 Σg 𝐺) ∈ (Base‘𝑅))
34	9, 10, 4, 11, 33	ringlidmd 20270	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 = (1r‘𝑅)) → ((1r‘𝑅) · (𝑀 Σg 𝐺)) = (𝑀 Σg 𝐺))
35	8, 34	eqtrd 2776	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 = (1r‘𝑅)) → (𝑘 · (𝑀 Σg 𝐺)) = (𝑀 Σg 𝐺))
36	35	eqeq2d 2747	. . . 4 ⊢ ((𝜑 ∧ 𝑘 = (1r‘𝑅)) → ((𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝐺)) ↔ (𝑀 Σg 𝐹) = (𝑀 Σg 𝐺)))
37		1arithidom.1	. . . 4 ⊢ (𝜑 → (𝑀 Σg 𝐹) = (𝑀 Σg 𝐺))
38	6, 36, 37	rspcedvd 3623	. . 3 ⊢ (𝜑 → ∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝐺)))
39		oveq2 7440	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑀 Σg 𝑔) = (𝑀 Σg 𝐺))
40	39	oveq2d 7448	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (𝑘 · (𝑀 Σg 𝑔)) = (𝑘 · (𝑀 Σg 𝐺)))
41	40	eqeq2d 2747	. . . . . 6 ⊢ (𝑔 = 𝐺 → ((𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) ↔ (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝐺))))
42	41	rexbidv 3178	. . . . 5 ⊢ (𝑔 = 𝐺 → (∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) ↔ ∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝐺))))
43		eqeq1 2740	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤)) ↔ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))
44	43	anbi2d 630	. . . . . . 7 ⊢ (𝑔 = 𝐺 → ((𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤))) ↔ (𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
45	44	rexbidv 3178	. . . . . 6 ⊢ (𝑔 = 𝐺 → (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
46	45	exbidv 1920	. . . . 5 ⊢ (𝑔 = 𝐺 → (∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤))) ↔ ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
47	42, 46	imbi12d 344	. . . 4 ⊢ (𝑔 = 𝐺 → ((∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))) ↔ (∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝐺)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))))
48		1arithidom.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ Word 𝑃)
49		oveq2 7440	. . . . . . . . . . 11 ⊢ (ℎ = ∅ → (𝑀 Σg ℎ) = (𝑀 Σg ∅))
50	49	eqeq1d 2738	. . . . . . . . . 10 ⊢ (ℎ = ∅ → ((𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))))
51	50	rexbidv 3178	. . . . . . . . 9 ⊢ (ℎ = ∅ → (∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))))
52		fveq2 6905	. . . . . . . . . . . . 13 ⊢ (ℎ = ∅ → (♯‘ℎ) = (♯‘∅))
53	52	oveq2d 7448	. . . . . . . . . . . 12 ⊢ (ℎ = ∅ → (0..^(♯‘ℎ)) = (0..^(♯‘∅)))
54	53	oveq2d 7448	. . . . . . . . . . 11 ⊢ (ℎ = ∅ → (𝑈 ↑m (0..^(♯‘ℎ))) = (𝑈 ↑m (0..^(♯‘∅))))
55		eqidd 2737	. . . . . . . . . . . . 13 ⊢ (ℎ = ∅ → 𝑤 = 𝑤)
56	55, 53, 53	f1oeq123d 6841	. . . . . . . . . . . 12 ⊢ (ℎ = ∅ → (𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ↔ 𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅))))
57		coeq1 5867	. . . . . . . . . . . . . 14 ⊢ (ℎ = ∅ → (ℎ ∘ 𝑤) = (∅ ∘ 𝑤))
58	57	oveq2d 7448	. . . . . . . . . . . . 13 ⊢ (ℎ = ∅ → (𝑢 ∘f · (ℎ ∘ 𝑤)) = (𝑢 ∘f · (∅ ∘ 𝑤)))
59	58	eqeq2d 2747	. . . . . . . . . . . 12 ⊢ (ℎ = ∅ → (𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)) ↔ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤))))
60	56, 59	anbi12d 632	. . . . . . . . . . 11 ⊢ (ℎ = ∅ → ((𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ (𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤)))))
61	54, 60	rexeqbidv 3346	. . . . . . . . . 10 ⊢ (ℎ = ∅ → (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤)))))
62	61	exbidv 1920	. . . . . . . . 9 ⊢ (ℎ = ∅ → (∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤)))))
63	51, 62	imbi12d 344	. . . . . . . 8 ⊢ (ℎ = ∅ → ((∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ (∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤))))))
64	63	ralbidv 3177	. . . . . . 7 ⊢ (ℎ = ∅ → (∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤))))))
65	64	imbi2d 340	. . . . . 6 ⊢ (ℎ = ∅ → ((𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))))) ↔ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤)))))))
66		oveq2 7440	. . . . . . . . . . 11 ⊢ (ℎ = 𝑓 → (𝑀 Σg ℎ) = (𝑀 Σg 𝑓))
67	66	eqeq1d 2738	. . . . . . . . . 10 ⊢ (ℎ = 𝑓 → ((𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔))))
68	67	rexbidv 3178	. . . . . . . . 9 ⊢ (ℎ = 𝑓 → (∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ ∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔))))
69		fveq2 6905	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝑓 → (♯‘ℎ) = (♯‘𝑓))
70	69	oveq2d 7448	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑓 → (0..^(♯‘ℎ)) = (0..^(♯‘𝑓)))
71	70	oveq2d 7448	. . . . . . . . . . 11 ⊢ (ℎ = 𝑓 → (𝑈 ↑m (0..^(♯‘ℎ))) = (𝑈 ↑m (0..^(♯‘𝑓))))
72		eqidd 2737	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝑓 → 𝑤 = 𝑤)
73	72, 70, 70	f1oeq123d 6841	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑓 → (𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ↔ 𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓))))
74		coeq1 5867	. . . . . . . . . . . . . 14 ⊢ (ℎ = 𝑓 → (ℎ ∘ 𝑤) = (𝑓 ∘ 𝑤))
75	74	oveq2d 7448	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝑓 → (𝑢 ∘f · (ℎ ∘ 𝑤)) = (𝑢 ∘f · (𝑓 ∘ 𝑤)))
76	75	eqeq2d 2747	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑓 → (𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)) ↔ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤))))
77	73, 76	anbi12d 632	. . . . . . . . . . 11 ⊢ (ℎ = 𝑓 → ((𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ (𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))
78	71, 77	rexeqbidv 3346	. . . . . . . . . 10 ⊢ (ℎ = 𝑓 → (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))
79	78	exbidv 1920	. . . . . . . . 9 ⊢ (ℎ = 𝑓 → (∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))
80	68, 79	imbi12d 344	. . . . . . . 8 ⊢ (ℎ = 𝑓 → ((∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ (∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤))))))
81	80	ralbidv 3177	. . . . . . 7 ⊢ (ℎ = 𝑓 → (∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤))))))
82	81	imbi2d 340	. . . . . 6 ⊢ (ℎ = 𝑓 → ((𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))))) ↔ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))))
83		oveq2 7440	. . . . . . . . . . 11 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (𝑀 Σg ℎ) = (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)))
84	83	eqeq1d 2738	. . . . . . . . . 10 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → ((𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔))))
85	84	rexbidv 3178	. . . . . . . . 9 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔))))
86		fveq2 6905	. . . . . . . . . . . . 13 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (♯‘ℎ) = (♯‘(𝑓 ++ ⟨“𝑝”⟩)))
87	86	oveq2d 7448	. . . . . . . . . . . 12 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (0..^(♯‘ℎ)) = (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))
88	87	oveq2d 7448	. . . . . . . . . . 11 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (𝑈 ↑m (0..^(♯‘ℎ))) = (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))))
89		eqidd 2737	. . . . . . . . . . . . 13 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → 𝑤 = 𝑤)
90	89, 87, 87	f1oeq123d 6841	. . . . . . . . . . . 12 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ↔ 𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))))
91		coeq1 5867	. . . . . . . . . . . . . 14 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (ℎ ∘ 𝑤) = ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))
92	91	oveq2d 7448	. . . . . . . . . . . . 13 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (𝑢 ∘f · (ℎ ∘ 𝑤)) = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))
93	92	eqeq2d 2747	. . . . . . . . . . . 12 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)) ↔ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))))
94	90, 93	anbi12d 632	. . . . . . . . . . 11 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → ((𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ (𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))))
95	88, 94	rexeqbidv 3346	. . . . . . . . . 10 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))))
96	95	exbidv 1920	. . . . . . . . 9 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))))
97	85, 96	imbi12d 344	. . . . . . . 8 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → ((∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ (∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))))))
98	97	ralbidv 3177	. . . . . . 7 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → (∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))))))
99	98	imbi2d 340	. . . . . 6 ⊢ (ℎ = (𝑓 ++ ⟨“𝑝”⟩) → ((𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))))) ↔ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))))))
100		oveq2 7440	. . . . . . . . . . 11 ⊢ (ℎ = 𝐹 → (𝑀 Σg ℎ) = (𝑀 Σg 𝐹))
101	100	eqeq1d 2738	. . . . . . . . . 10 ⊢ (ℎ = 𝐹 → ((𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔))))
102	101	rexbidv 3178	. . . . . . . . 9 ⊢ (ℎ = 𝐹 → (∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) ↔ ∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔))))
103		fveq2 6905	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝐹 → (♯‘ℎ) = (♯‘𝐹))
104	103	oveq2d 7448	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐹 → (0..^(♯‘ℎ)) = (0..^(♯‘𝐹)))
105	104	oveq2d 7448	. . . . . . . . . . 11 ⊢ (ℎ = 𝐹 → (𝑈 ↑m (0..^(♯‘ℎ))) = (𝑈 ↑m (0..^(♯‘𝐹))))
106		eqidd 2737	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝐹 → 𝑤 = 𝑤)
107	106, 104, 104	f1oeq123d 6841	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐹 → (𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ↔ 𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹))))
108		coeq1 5867	. . . . . . . . . . . . . 14 ⊢ (ℎ = 𝐹 → (ℎ ∘ 𝑤) = (𝐹 ∘ 𝑤))
109	108	oveq2d 7448	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝐹 → (𝑢 ∘f · (ℎ ∘ 𝑤)) = (𝑢 ∘f · (𝐹 ∘ 𝑤)))
110	109	eqeq2d 2747	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐹 → (𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)) ↔ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))
111	107, 110	anbi12d 632	. . . . . . . . . . 11 ⊢ (ℎ = 𝐹 → ((𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ (𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
112	105, 111	rexeqbidv 3346	. . . . . . . . . 10 ⊢ (ℎ = 𝐹 → (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
113	112	exbidv 1920	. . . . . . . . 9 ⊢ (ℎ = 𝐹 → (∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))) ↔ ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
114	102, 113	imbi12d 344	. . . . . . . 8 ⊢ (ℎ = 𝐹 → ((∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ (∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))))
115	114	ralbidv 3177	. . . . . . 7 ⊢ (ℎ = 𝐹 → (∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤)))) ↔ ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))))
116	115	imbi2d 340	. . . . . 6 ⊢ (ℎ = 𝐹 → ((𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ℎ) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘ℎ)))(𝑤:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ 𝑔 = (𝑢 ∘f · (ℎ ∘ 𝑤))))) ↔ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))))
117		0ex 5306	. . . . . . . . . 10 ⊢ ∅ ∈ V
118	117	a1i 11	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → ∅ ∈ V)
119	117	snid 4661	. . . . . . . . . . . 12 ⊢ ∅ ∈ {∅}
120	3	fvexi 6919	. . . . . . . . . . . . 13 ⊢ 𝑈 ∈ V
121		mapdm0 8883	. . . . . . . . . . . . 13 ⊢ (𝑈 ∈ V → (𝑈 ↑m ∅) = {∅})
122	120, 121	ax-mp 5	. . . . . . . . . . . 12 ⊢ (𝑈 ↑m ∅) = {∅}
123	119, 122	eleqtrri 2839	. . . . . . . . . . 11 ⊢ ∅ ∈ (𝑈 ↑m ∅)
124	123	a1i 11	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → ∅ ∈ (𝑈 ↑m ∅))
125		f1o0 6884	. . . . . . . . . . . . 13 ⊢ ∅:∅–1-1-onto→∅
126	125	biantrur 530	. . . . . . . . . . . 12 ⊢ (𝑔 = (𝑢 ∘f · (∅ ∘ ∅)) ↔ (∅:∅–1-1-onto→∅ ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ ∅))))
127		co02 6279	. . . . . . . . . . . . . . 15 ⊢ (∅ ∘ ∅) = ∅
128	127	oveq2i 7443	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∘f · (∅ ∘ ∅)) = (𝑢 ∘f · ∅)
129		of0r 32689	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∘f · ∅) = ∅
130	128, 129	eqtri 2764	. . . . . . . . . . . . 13 ⊢ (𝑢 ∘f · (∅ ∘ ∅)) = ∅
131	130	eqeq2i 2749	. . . . . . . . . . . 12 ⊢ (𝑔 = (𝑢 ∘f · (∅ ∘ ∅)) ↔ 𝑔 = ∅)
132	126, 131	bitr3i 277	. . . . . . . . . . 11 ⊢ ((∅:∅–1-1-onto→∅ ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ ∅))) ↔ 𝑔 = ∅)
133	132	a1i 11	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑢 = ∅) → ((∅:∅–1-1-onto→∅ ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ ∅))) ↔ 𝑔 = ∅))
134		simpl 482	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → 𝑅 ∈ IDomn)
135	134	idomcringd 20728	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → 𝑅 ∈ CRing)
136	135	ad2antrr 726	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑅 ∈ CRing)
137		simplr 768	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑘 ∈ 𝑈)
138	9, 3	unitcl 20376	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ 𝑈 → 𝑘 ∈ (Base‘𝑅))
139	137, 138	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑘 ∈ (Base‘𝑅))
140	136, 17	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑀 ∈ CMnd)
141		ovexd 7467	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (0..^(♯‘𝑔)) ∈ V)
142		eqidd 2737	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (♯‘𝑔) = (♯‘𝑔))
143		simpl 482	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑅 ∈ IDomn ∧ 𝑝 ∈ 𝑃) → 𝑅 ∈ IDomn)
144		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑅 ∈ IDomn ∧ 𝑝 ∈ 𝑃) → 𝑝 ∈ 𝑃)
145	9, 24, 143, 144	rprmcl 33547	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑅 ∈ IDomn ∧ 𝑝 ∈ 𝑃) → 𝑝 ∈ (Base‘𝑅))
146	145	ex 412	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑅 ∈ IDomn → (𝑝 ∈ 𝑃 → 𝑝 ∈ (Base‘𝑅)))
147	146	ssrdv 3988	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑅 ∈ IDomn → 𝑃 ⊆ (Base‘𝑅))
148		sswrd 14561	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑃 ⊆ (Base‘𝑅) → Word 𝑃 ⊆ Word (Base‘𝑅))
149	147, 148	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑅 ∈ IDomn → Word 𝑃 ⊆ Word (Base‘𝑅))
150	149	sselda 3982	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → 𝑔 ∈ Word (Base‘𝑅))
151	150	ad2antrr 726	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑔 ∈ Word (Base‘𝑅))
152	142, 151	wrdfd 32919	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑔:(0..^(♯‘𝑔))⟶(Base‘𝑅))
153	134	idomringd 20729	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → 𝑅 ∈ Ring)
154	153, 5	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → (1r‘𝑅) ∈ 𝑈)
155	154	ad2antrr 726	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (1r‘𝑅) ∈ 𝑈)
156	155, 151	wrdfsupp 32922	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑔 finSupp (1r‘𝑅))
157	13, 14, 140, 141, 152, 156	gsumcl 19934	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (𝑀 Σg 𝑔) ∈ (Base‘𝑅))
158		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔)))
159	14	gsum0 18698	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 Σg ∅) = (1r‘𝑅)
160	159, 155	eqeltrid 2844	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (𝑀 Σg ∅) ∈ 𝑈)
161	158, 160	eqeltrrd 2841	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (𝑘 · (𝑀 Σg 𝑔)) ∈ 𝑈)
162	3, 10, 9	unitmulclb 20382	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∈ CRing ∧ 𝑘 ∈ (Base‘𝑅) ∧ (𝑀 Σg 𝑔) ∈ (Base‘𝑅)) → ((𝑘 · (𝑀 Σg 𝑔)) ∈ 𝑈 ↔ (𝑘 ∈ 𝑈 ∧ (𝑀 Σg 𝑔) ∈ 𝑈)))
163	162	biimpa 476	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∈ CRing ∧ 𝑘 ∈ (Base‘𝑅) ∧ (𝑀 Σg 𝑔) ∈ (Base‘𝑅)) ∧ (𝑘 · (𝑀 Σg 𝑔)) ∈ 𝑈) → (𝑘 ∈ 𝑈 ∧ (𝑀 Σg 𝑔) ∈ 𝑈))
164	136, 139, 157, 161, 163	syl31anc 1374	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (𝑘 ∈ 𝑈 ∧ (𝑀 Σg 𝑔) ∈ 𝑈))
165	164	simprd 495	. . . . . . . . . . . . . . 15 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ 𝑘 ∈ 𝑈) ∧ (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (𝑀 Σg 𝑔) ∈ 𝑈)
166	165	r19.29an 3157	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → (𝑀 Σg 𝑔) ∈ 𝑈)
167	9, 3, 12, 135, 150	unitprodclb 33418	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → ((𝑀 Σg 𝑔) ∈ 𝑈 ↔ ran 𝑔 ⊆ 𝑈))
168	167	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → ((𝑀 Σg 𝑔) ∈ 𝑈 ↔ ran 𝑔 ⊆ 𝑈))
169	166, 168	mpbid 232	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → ran 𝑔 ⊆ 𝑈)
170	169	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) → ran 𝑔 ⊆ 𝑈)
171		eqidd 2737	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → (♯‘𝑔) = (♯‘𝑔))
172		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → 𝑔 ∈ Word 𝑃)
173	171, 172	wrdfd 32919	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → 𝑔:(0..^(♯‘𝑔))⟶𝑃)
174	173	freld 6741	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → Rel 𝑔)
175	174	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) → Rel 𝑔)
176		simpr 484	. . . . . . . . . . . . . . 15 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) → 𝑔 ≠ ∅)
177		relrn0 5982	. . . . . . . . . . . . . . . . 17 ⊢ (Rel 𝑔 → (𝑔 = ∅ ↔ ran 𝑔 = ∅))
178	177	necon3bid 2984	. . . . . . . . . . . . . . . 16 ⊢ (Rel 𝑔 → (𝑔 ≠ ∅ ↔ ran 𝑔 ≠ ∅))
179	178	biimpa 476	. . . . . . . . . . . . . . 15 ⊢ ((Rel 𝑔 ∧ 𝑔 ≠ ∅) → ran 𝑔 ≠ ∅)
180	175, 176, 179	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) → ran 𝑔 ≠ ∅)
181		n0 4352	. . . . . . . . . . . . . 14 ⊢ (ran 𝑔 ≠ ∅ ↔ ∃𝑖 𝑖 ∈ ran 𝑔)
182	180, 181	sylib 218	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) → ∃𝑖 𝑖 ∈ ran 𝑔)
183		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) ∧ 𝑖 ∈ ran 𝑔) → 𝑖 ∈ ran 𝑔)
184	134	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ (((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) ∧ 𝑖 ∈ ran 𝑔) → 𝑅 ∈ IDomn)
185	173	frnd 6743	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → ran 𝑔 ⊆ 𝑃)
186	185	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) → ran 𝑔 ⊆ 𝑃)
187	186	sselda 3982	. . . . . . . . . . . . . . 15 ⊢ (((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) ∧ 𝑖 ∈ ran 𝑔) → 𝑖 ∈ 𝑃)
188	24, 3, 184, 187	rprmnunit 33550	. . . . . . . . . . . . . 14 ⊢ (((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) ∧ 𝑖 ∈ ran 𝑔) → ¬ 𝑖 ∈ 𝑈)
189		nelss 4048	. . . . . . . . . . . . . 14 ⊢ ((𝑖 ∈ ran 𝑔 ∧ ¬ 𝑖 ∈ 𝑈) → ¬ ran 𝑔 ⊆ 𝑈)
190	183, 188, 189	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) ∧ 𝑖 ∈ ran 𝑔) → ¬ ran 𝑔 ⊆ 𝑈)
191	182, 190	exlimddv 1934	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) ∧ 𝑔 ≠ ∅) → ¬ ran 𝑔 ⊆ 𝑈)
192	170, 191	pm2.65da 816	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → ¬ 𝑔 ≠ ∅)
193		nne 2943	. . . . . . . . . . 11 ⊢ (¬ 𝑔 ≠ ∅ ↔ 𝑔 = ∅)
194	192, 193	sylib 218	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → 𝑔 = ∅)
195	124, 133, 194	rspcedvd 3623	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → ∃𝑢 ∈ (𝑈 ↑m ∅)(∅:∅–1-1-onto→∅ ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ ∅))))
196		hash0 14407	. . . . . . . . . . . . . 14 ⊢ (♯‘∅) = 0
197	196	oveq2i 7443	. . . . . . . . . . . . 13 ⊢ (0..^(♯‘∅)) = (0..^0)
198		fzo0 13724	. . . . . . . . . . . . 13 ⊢ (0..^0) = ∅
199	197, 198	eqtri 2764	. . . . . . . . . . . 12 ⊢ (0..^(♯‘∅)) = ∅
200	199	oveq2i 7443	. . . . . . . . . . 11 ⊢ (𝑈 ↑m (0..^(♯‘∅))) = (𝑈 ↑m ∅)
201	200	a1i 11	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → (𝑈 ↑m (0..^(♯‘∅))) = (𝑈 ↑m ∅))
202		id 22	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → 𝑤 = ∅)
203	199	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (0..^(♯‘∅)) = ∅)
204	202, 203, 203	f1oeq123d 6841	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ↔ ∅:∅–1-1-onto→∅))
205		coeq2 5868	. . . . . . . . . . . . 13 ⊢ (𝑤 = ∅ → (∅ ∘ 𝑤) = (∅ ∘ ∅))
206	205	oveq2d 7448	. . . . . . . . . . . 12 ⊢ (𝑤 = ∅ → (𝑢 ∘f · (∅ ∘ 𝑤)) = (𝑢 ∘f · (∅ ∘ ∅)))
207	206	eqeq2d 2747	. . . . . . . . . . 11 ⊢ (𝑤 = ∅ → (𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤)) ↔ 𝑔 = (𝑢 ∘f · (∅ ∘ ∅))))
208	204, 207	anbi12d 632	. . . . . . . . . 10 ⊢ (𝑤 = ∅ → ((𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤))) ↔ (∅:∅–1-1-onto→∅ ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ ∅)))))
209	201, 208	rexeqbidv 3346	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m ∅)(∅:∅–1-1-onto→∅ ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ ∅)))))
210	118, 195, 209	spcedv 3597	. . . . . . . 8 ⊢ (((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔))) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤))))
211	210	ex 412	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑔 ∈ Word 𝑃) → (∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤)))))
212	211	ralrimiva 3145	. . . . . 6 ⊢ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg ∅) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘∅)))(𝑤:(0..^(♯‘∅))–1-1-onto→(0..^(♯‘∅)) ∧ 𝑔 = (𝑢 ∘f · (∅ ∘ 𝑤)))))
213		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (0..^(♯‘ℎ)) = (0..^(♯‘ℎ))
214		simp-4r 783	. . . . . . . . . . . . . 14 ⊢ ((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) → 𝑗 ∈ (0..^(♯‘ℎ)))
215		simp-4r 783	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → ℎ ∈ Word 𝑃)
216	215	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ ((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) → ℎ ∈ Word 𝑃)
217		eqid 2736	. . . . . . . . . . . . . 14 ⊢ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1))
218	213, 214, 216, 217	wrdpmtrlast 33114	. . . . . . . . . . . . 13 ⊢ ((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) → ∃𝑟(𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)))
219		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ (0..^(♯‘𝑓)) = (0..^(♯‘𝑓))
220		simp-5r 785	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → 𝑅 ∈ IDomn)
221	220	ad6antr 736	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑅 ∈ IDomn)
222		simp-5l 784	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → 𝑓 ∈ Word 𝑃)
223	222	ad8antr 740	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑓 ∈ Word 𝑃)
224		eqidd 2737	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑀 Σg 𝑓) = (𝑀 Σg 𝑓))
225		simp-7r 789	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → 𝑝 ∈ 𝑃)
226	225	ad6antr 736	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑝 ∈ 𝑃)
227		simplr 768	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) → (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤))))))
228	227	ad10antr 744	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤))))))
229	221, 228	mpd 15	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))
230	216	ad4antr 732	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ℎ ∈ Word 𝑃)
231		simp-9r 793	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)))
232	214	ad4antr 732	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑗 ∈ (0..^(♯‘ℎ)))
233		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → 𝑝(∥r‘𝑅)(ℎ‘𝑗))
234	233	ad6antr 736	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑝(∥r‘𝑅)(ℎ‘𝑗))
235		simp-6r 787	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑡 ∈ 𝑈)
236		simp-5r 785	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑡 · 𝑝) = (ℎ‘𝑗))
237		simp-4r 783	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)))
238		simpllr 775	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩))
239		simplr 768	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑚 ∈ 𝑈)
240		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ)))
241	3, 24, 12, 10, 219, 221, 223, 223, 224, 226, 229, 230, 231, 232, 234, 235, 236, 237, 238, 239, 240	1arithidomlem1 33564	. . . . . . . . . . . . . . . 16 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ∃𝑐∃𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐))))
242		ovexd 7467	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∈ V)
243		vex 3483	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑟 ∈ V
244	243	cnvex 7948	. . . . . . . . . . . . . . . . . . . 20 ⊢ ◡𝑟 ∈ V
245	244	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ◡𝑟 ∈ V)
246	242, 245	coexd 7954	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟) ∈ V)
247		oveq1 7439	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 = ((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) → (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟))) = (((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟))))
248	247	eqeq2d 2747	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 = ((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) → (ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟))) ↔ ℎ = (((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟)))))
249	248	anbi2d 630	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 = ((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) → ((((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟)))) ↔ (((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟))))))
250	120	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑈 ∈ V)
251		ovexd 7467	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∈ V)
252		simplr 768	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓))))
253		elmapi 8890	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓))) → 𝑑:(0..^(♯‘𝑓))⟶𝑈)
254	252, 253	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑑:(0..^(♯‘𝑓))⟶𝑈)
255		iswrdi 14557	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑑:(0..^(♯‘𝑓))⟶𝑈 → 𝑑 ∈ Word 𝑈)
256	254, 255	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑑 ∈ Word 𝑈)
257		ccatws1len 14659	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑑 ∈ Word 𝑈 → (♯‘(𝑑 ++ ⟨“𝑡”⟩)) = ((♯‘𝑑) + 1))
258	256, 257	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘(𝑑 ++ ⟨“𝑡”⟩)) = ((♯‘𝑑) + 1))
259		elmapfn 8906	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓))) → 𝑑 Fn (0..^(♯‘𝑓)))
260		hashfn 14415	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑑 Fn (0..^(♯‘𝑓)) → (♯‘𝑑) = (♯‘(0..^(♯‘𝑓))))
261	252, 259, 260	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘𝑑) = (♯‘(0..^(♯‘𝑓))))
262	222	ad10antr 744	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑓 ∈ Word 𝑃)
263		lencl 14572	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑓 ∈ Word 𝑃 → (♯‘𝑓) ∈ ℕ0)
264	262, 263	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘𝑓) ∈ ℕ0)
265		hashfzo0 14470	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((♯‘𝑓) ∈ ℕ0 → (♯‘(0..^(♯‘𝑓))) = (♯‘𝑓))
266	264, 265	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘(0..^(♯‘𝑓))) = (♯‘𝑓))
267	261, 266	eqtrd 2776	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘𝑑) = (♯‘𝑓))
268	267	oveq1d 7447	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((♯‘𝑑) + 1) = ((♯‘𝑓) + 1))
269		simprr 772	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))
270	269	dmeqd 5915	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → dom ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = dom (𝑑 ∘f · (𝑓 ∘ 𝑐)))
271		f1of 6847	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) → 𝑟:(0..^(♯‘ℎ))⟶(0..^(♯‘ℎ)))
272		iswrdi 14557	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑟:(0..^(♯‘ℎ))⟶(0..^(♯‘ℎ)) → 𝑟 ∈ Word (0..^(♯‘ℎ)))
273	237, 271, 272	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑟 ∈ Word (0..^(♯‘ℎ)))
274		eqidd 2737	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → (♯‘ℎ) = (♯‘ℎ))
275	274, 215	wrdfd 32919	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → ℎ:(0..^(♯‘ℎ))⟶𝑃)
276	275	ad6antr 736	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ℎ:(0..^(♯‘ℎ))⟶𝑃)
277		wrdco 14871	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝑟 ∈ Word (0..^(♯‘ℎ)) ∧ ℎ:(0..^(♯‘ℎ))⟶𝑃) → (ℎ ∘ 𝑟) ∈ Word 𝑃)
278	273, 276, 277	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (ℎ ∘ 𝑟) ∈ Word 𝑃)
279	278	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (ℎ ∘ 𝑟) ∈ Word 𝑃)
280		elfzo0 13741	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑗 ∈ (0..^(♯‘ℎ)) ↔ (𝑗 ∈ ℕ0 ∧ (♯‘ℎ) ∈ ℕ ∧ 𝑗 < (♯‘ℎ)))
281	280	simp2bi 1146	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑗 ∈ (0..^(♯‘ℎ)) → (♯‘ℎ) ∈ ℕ)
282		nnm1nn0 12569	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((♯‘ℎ) ∈ ℕ → ((♯‘ℎ) − 1) ∈ ℕ0)
283	232, 281, 282	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ((♯‘ℎ) − 1) ∈ ℕ0)
284		lenco 14872	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑟 ∈ Word (0..^(♯‘ℎ)) ∧ ℎ:(0..^(♯‘ℎ))⟶𝑃) → (♯‘(ℎ ∘ 𝑟)) = (♯‘𝑟))
285	273, 276, 284	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘(ℎ ∘ 𝑟)) = (♯‘𝑟))
286		lencl 14572	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑟 ∈ Word (0..^(♯‘ℎ)) → (♯‘𝑟) ∈ ℕ0)
287	273, 286	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘𝑟) ∈ ℕ0)
288	285, 287	eqeltrd 2840	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘(ℎ ∘ 𝑟)) ∈ ℕ0)
289		lencl 14572	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (ℎ ∈ Word 𝑃 → (♯‘ℎ) ∈ ℕ0)
290	230, 289	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘ℎ) ∈ ℕ0)
291	290	nn0red 12590	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘ℎ) ∈ ℝ)
292	291	lem1d 12202	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ((♯‘ℎ) − 1) ≤ (♯‘ℎ))
293	237, 271	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑟:(0..^(♯‘ℎ))⟶(0..^(♯‘ℎ)))
294		ffn 6735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑟:(0..^(♯‘ℎ))⟶(0..^(♯‘ℎ)) → 𝑟 Fn (0..^(♯‘ℎ)))
295		hashfn 14415	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑟 Fn (0..^(♯‘ℎ)) → (♯‘𝑟) = (♯‘(0..^(♯‘ℎ))))
296	293, 294, 295	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘𝑟) = (♯‘(0..^(♯‘ℎ))))
297		hashfzo0 14470	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((♯‘ℎ) ∈ ℕ0 → (♯‘(0..^(♯‘ℎ))) = (♯‘ℎ))
298	230, 289, 297	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘(0..^(♯‘ℎ))) = (♯‘ℎ))
299	285, 296, 298	3eqtrrd 2781	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘ℎ) = (♯‘(ℎ ∘ 𝑟)))
300	292, 299	breqtrd 5168	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ((♯‘ℎ) − 1) ≤ (♯‘(ℎ ∘ 𝑟)))
301		elfz2nn0 13659	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((♯‘ℎ) − 1) ∈ (0...(♯‘(ℎ ∘ 𝑟))) ↔ (((♯‘ℎ) − 1) ∈ ℕ0 ∧ (♯‘(ℎ ∘ 𝑟)) ∈ ℕ0 ∧ ((♯‘ℎ) − 1) ≤ (♯‘(ℎ ∘ 𝑟))))
302	283, 288, 300, 301	syl3anbrc 1343	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ((♯‘ℎ) − 1) ∈ (0...(♯‘(ℎ ∘ 𝑟))))
303	302	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((♯‘ℎ) − 1) ∈ (0...(♯‘(ℎ ∘ 𝑟))))
304		pfxfn 14720	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((ℎ ∘ 𝑟) ∈ Word 𝑃 ∧ ((♯‘ℎ) − 1) ∈ (0...(♯‘(ℎ ∘ 𝑟)))) → ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) Fn (0..^((♯‘ℎ) − 1)))
305	279, 303, 304	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) Fn (0..^((♯‘ℎ) − 1)))
306	305	fndmd 6672	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → dom ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (0..^((♯‘ℎ) − 1)))
307	221	idomringd 20729	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑅 ∈ Ring)
308	307	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ Ring)
309		simprl 770	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑥 ∈ 𝑈)
310	9, 3	unitcl 20376	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 ∈ 𝑈 → 𝑥 ∈ (Base‘𝑅))
311	309, 310	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑥 ∈ (Base‘𝑅))
312	221	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ IDomn)
313		simprr 772	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ 𝑃)
314	9, 24, 312, 313	rprmcl 33547	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ (Base‘𝑅))
315	9, 10, 308, 311, 314	ringcld 20258	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → (𝑥 · 𝑦) ∈ (Base‘𝑅))
316		eqidd 2737	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘𝑓) = (♯‘𝑓))
317	316, 262	wrdfd 32919	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑓:(0..^(♯‘𝑓))⟶𝑃)
318		simprl 770	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)))
319		f1of 6847	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) → 𝑐:(0..^(♯‘𝑓))⟶(0..^(♯‘𝑓)))
320	318, 319	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑐:(0..^(♯‘𝑓))⟶(0..^(♯‘𝑓)))
321	317, 320	fcod 6760	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑓 ∘ 𝑐):(0..^(♯‘𝑓))⟶𝑃)
322		ovexd 7467	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (0..^(♯‘𝑓)) ∈ V)
323		inidm 4226	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((0..^(♯‘𝑓)) ∩ (0..^(♯‘𝑓))) = (0..^(♯‘𝑓))
324	315, 254, 321, 322, 322, 323	off 7716	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑑 ∘f · (𝑓 ∘ 𝑐)):(0..^(♯‘𝑓))⟶(Base‘𝑅))
325	324	fdmd 6745	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → dom (𝑑 ∘f · (𝑓 ∘ 𝑐)) = (0..^(♯‘𝑓)))
326	270, 306, 325	3eqtr3d 2784	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (0..^((♯‘ℎ) − 1)) = (0..^(♯‘𝑓)))
327	283	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((♯‘ℎ) − 1) ∈ ℕ0)
328	327, 264	fzo0opth 32808	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((0..^((♯‘ℎ) − 1)) = (0..^(♯‘𝑓)) ↔ ((♯‘ℎ) − 1) = (♯‘𝑓)))
329	326, 328	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((♯‘ℎ) − 1) = (♯‘𝑓))
330	329	oveq1d 7447	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (((♯‘ℎ) − 1) + 1) = ((♯‘𝑓) + 1))
331	281	ad10antlr 745	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘ℎ) ∈ ℕ)
332	331	nncnd 12283	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘ℎ) ∈ ℂ)
333		npcan1 11689	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((♯‘ℎ) ∈ ℂ → (((♯‘ℎ) − 1) + 1) = (♯‘ℎ))
334	332, 333	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (((♯‘ℎ) − 1) + 1) = (♯‘ℎ))
335	330, 334	eqtr3d 2778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((♯‘𝑓) + 1) = (♯‘ℎ))
336	258, 268, 335	3eqtrd 2780	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘(𝑑 ++ ⟨“𝑡”⟩)) = (♯‘ℎ))
337	336	oveq2d 7448	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (0..^(♯‘(𝑑 ++ ⟨“𝑡”⟩))) = (0..^(♯‘ℎ)))
338		eqidd 2737	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘(𝑑 ++ ⟨“𝑡”⟩)) = (♯‘(𝑑 ++ ⟨“𝑡”⟩)))
339	235	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑡 ∈ 𝑈)
340		ccatws1cl 14655	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑑 ∈ Word 𝑈 ∧ 𝑡 ∈ 𝑈) → (𝑑 ++ ⟨“𝑡”⟩) ∈ Word 𝑈)
341	256, 339, 340	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑑 ++ ⟨“𝑡”⟩) ∈ Word 𝑈)
342	338, 341	wrdfd 32919	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑑 ++ ⟨“𝑡”⟩):(0..^(♯‘(𝑑 ++ ⟨“𝑡”⟩)))⟶𝑈)
343	337, 342	feq2dd 32633	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑑 ++ ⟨“𝑡”⟩):(0..^(♯‘ℎ))⟶𝑈)
344		ccatws1len 14659	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑓 ∈ Word 𝑃 → (♯‘(𝑓 ++ ⟨“𝑝”⟩)) = ((♯‘𝑓) + 1))
345	262, 344	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘(𝑓 ++ ⟨“𝑝”⟩)) = ((♯‘𝑓) + 1))
346	345, 335	eqtrd 2776	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (♯‘(𝑓 ++ ⟨“𝑝”⟩)) = (♯‘ℎ))
347	346	oveq2d 7448	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) = (0..^(♯‘ℎ)))
348	347	eqcomd 2742	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (0..^(♯‘ℎ)) = (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))
349	237	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)))
350		f1ocnv 6859	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) → ◡𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)))
351		f1of 6847	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (◡𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) → ◡𝑟:(0..^(♯‘ℎ))⟶(0..^(♯‘ℎ)))
352	349, 350, 351	3syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ◡𝑟:(0..^(♯‘ℎ))⟶(0..^(♯‘ℎ)))
353	348, 352	feq2dd 32633	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ◡𝑟:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))⟶(0..^(♯‘ℎ)))
354	343, 353	fcod 6760	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))⟶𝑈)
355	250, 251, 354	elmapdd 8882	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))))
356	221	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑅 ∈ IDomn)
357		eqidd 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑀 Σg 𝑓) = (𝑀 Σg 𝑓))
358	226	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑝 ∈ 𝑃)
359	229	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))
360	230	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ℎ ∈ Word 𝑃)
361	231	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)))
362	232	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑗 ∈ (0..^(♯‘ℎ)))
363	234	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑝(∥r‘𝑅)(ℎ‘𝑗))
364	236	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑡 · 𝑝) = (ℎ‘𝑗))
365		simp-5r 785	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩))
366		simp-4r 783	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → 𝑚 ∈ 𝑈)
367		simpllr 775	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ)))
368	3, 24, 12, 10, 219, 356, 262, 262, 357, 358, 359, 360, 361, 362, 363, 339, 364, 349, 365, 366, 367, 252, 318, 269	1arithidomlem2 33565	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → (((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (((𝑑 ++ ⟨“𝑡”⟩) ∘ ◡𝑟) ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟)))))
369	249, 355, 368	rspcedvdw 3624	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟)))))
370		f1oeq1 6835	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑣 = ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟) → (𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ↔ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))))
371		coeq2 5868	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑣 = ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟) → ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣) = ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟)))
372	371	oveq2d 7448	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑣 = ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟) → (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)) = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟))))
373	372	eqeq2d 2747	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑣 = ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟) → (ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)) ↔ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟)))))
374	370, 373	anbi12d 632	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑣 = ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟) → ((𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ (((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟))))))
375	374	rexbidv 3178	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑣 = ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟) → (∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ ∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟):(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ ((𝑐 ++ ⟨“(♯‘𝑓)”⟩) ∘ ◡𝑟))))))
376	246, 369, 375	spcedv 3597	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ 𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))) ∧ (𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
377	376	r19.29an 3157	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) ∧ ∃𝑑 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑐:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ ((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) = (𝑑 ∘f · (𝑓 ∘ 𝑐)))) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
378	241, 377	exlimddv 1934	. . . . . . . . . . . . . . 15 ⊢ ((((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
379		simp-7r 789	. . . . . . . . . . . . . . . 16 ⊢ ((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) → ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)))
380		oveq1 7439	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑚 → (𝑘 · (𝑀 Σg ℎ)) = (𝑚 · (𝑀 Σg ℎ)))
381	380	eqeq2d 2747	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑚 → ((𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) ↔ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))))
382	381	cbvrexvw 3237	. . . . . . . . . . . . . . . 16 ⊢ (∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) ↔ ∃𝑚 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ)))
383	379, 382	sylib 218	. . . . . . . . . . . . . . 15 ⊢ ((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) → ∃𝑚 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ)))
384	378, 383	r19.29a 3161	. . . . . . . . . . . . . 14 ⊢ ((((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ 𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ))) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
385	384	anasss 466	. . . . . . . . . . . . 13 ⊢ (((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) ∧ (𝑟:(0..^(♯‘ℎ))–1-1-onto→(0..^(♯‘ℎ)) ∧ (ℎ ∘ 𝑟) = (((ℎ ∘ 𝑟) prefix ((♯‘ℎ) − 1)) ++ ⟨“(ℎ‘𝑗)”⟩))) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
386	218, 385	exlimddv 1934	. . . . . . . . . . . 12 ⊢ ((((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) ∧ 𝑡 ∈ 𝑈) ∧ (𝑡 · 𝑝) = (ℎ‘𝑗)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
387		eqid 2736	. . . . . . . . . . . . 13 ⊢ (∥r‘𝑅) = (∥r‘𝑅)
388		simplr 768	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → 𝑗 ∈ (0..^(♯‘ℎ)))
389	275, 388	ffvelcdmd 7104	. . . . . . . . . . . . 13 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → (ℎ‘𝑗) ∈ 𝑃)
390	9, 24, 387, 220, 225, 233, 389, 10, 3	rprmasso3 33556	. . . . . . . . . . . 12 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → ∃𝑡 ∈ 𝑈 (𝑡 · 𝑝) = (ℎ‘𝑗))
391	386, 390	r19.29a 3161	. . . . . . . . . . 11 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑗 ∈ (0..^(♯‘ℎ))) ∧ 𝑝(∥r‘𝑅)(ℎ‘𝑗)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
392		suppssdm 8203	. . . . . . . . . . . . . 14 ⊢ (ℎ supp (1r‘𝑅)) ⊆ dom ℎ
393		eqidd 2737	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘ℎ) = (♯‘ℎ))
394		simpllr 775	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → 𝑅 ∈ IDomn)
395	394, 149	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → Word 𝑃 ⊆ Word (Base‘𝑅))
396	395	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → Word 𝑃 ⊆ Word (Base‘𝑅))
397		simp-4r 783	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ℎ ∈ Word 𝑃)
398	396, 397	sseldd 3983	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ℎ ∈ Word (Base‘𝑅))
399	393, 398	wrdfd 32919	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ℎ:(0..^(♯‘ℎ))⟶(Base‘𝑅))
400	392, 399	fssdm 6754	. . . . . . . . . . . . 13 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (ℎ supp (1r‘𝑅)) ⊆ (0..^(♯‘ℎ)))
401	16	ad5antlr 735	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑅 ∈ CRing)
402		simp-5r 785	. . . . . . . . . . . . . . 15 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → 𝑝 ∈ 𝑃)
403	402	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑝 ∈ 𝑃)
404		ovexd 7467	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (0..^(♯‘ℎ)) ∈ V)
405		fvexd 6920	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (1r‘𝑅) ∈ V)
406	405, 397	wrdfsupp 32922	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ℎ finSupp (1r‘𝑅))
407		simp-5r 785	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑅 ∈ IDomn)
408		simplr 768	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑚 ∈ 𝑈)
409	9, 3	unitcl 20376	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ 𝑈 → 𝑚 ∈ (Base‘𝑅))
410	408, 409	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑚 ∈ (Base‘𝑅))
411	18	ad5antlr 735	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑀 ∈ CMnd)
412	13, 14, 411, 404, 399, 406	gsumcl 19934	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑀 Σg ℎ) ∈ (Base‘𝑅))
413	9, 24, 394, 402	rprmcl 33547	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → 𝑝 ∈ (Base‘𝑅))
414	413	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑝 ∈ (Base‘𝑅))
415		ovexd 7467	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (0..^(♯‘𝑓)) ∈ V)
416		eqidd 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (♯‘𝑓) = (♯‘𝑓))
417	395, 222	sseldd 3983	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → 𝑓 ∈ Word (Base‘𝑅))
418	417	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑓 ∈ Word (Base‘𝑅))
419	416, 418	wrdfd 32919	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑓:(0..^(♯‘𝑓))⟶(Base‘𝑅))
420	405, 418	wrdfsupp 32922	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑓 finSupp (1r‘𝑅))
421	13, 14, 411, 415, 419, 420	gsumcl 19934	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑀 Σg 𝑓) ∈ (Base‘𝑅))
422	9, 387, 10	dvdsrmul 20365	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ (Base‘𝑅) ∧ (𝑀 Σg 𝑓) ∈ (Base‘𝑅)) → 𝑝(∥r‘𝑅)((𝑀 Σg 𝑓) · 𝑝))
423	414, 421, 422	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑝(∥r‘𝑅)((𝑀 Σg 𝑓) · 𝑝))
424	15	idomringd 20729	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Ring)
425	12	ringmgp 20237	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑅 ∈ Ring → 𝑀 ∈ Mnd)
426	424, 425	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑅 ∈ IDomn → 𝑀 ∈ Mnd)
427	426	ad3antlr 731	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → 𝑀 ∈ Mnd)
428	12, 10	mgpplusg 20142	. . . . . . . . . . . . . . . . . . . . 21 ⊢ · = (+g‘𝑀)
429	13, 428	gsumccatsn 18857	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 ∈ Mnd ∧ 𝑓 ∈ Word (Base‘𝑅) ∧ 𝑝 ∈ (Base‘𝑅)) → (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = ((𝑀 Σg 𝑓) · 𝑝))
430	427, 417, 413, 429	syl3anc 1372	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = ((𝑀 Σg 𝑓) · 𝑝))
431	430	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = ((𝑀 Σg 𝑓) · 𝑝))
432		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ)))
433	431, 432	eqtr3d 2778	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ((𝑀 Σg 𝑓) · 𝑝) = (𝑚 · (𝑀 Σg ℎ)))
434	423, 433	breqtrd 5168	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑝(∥r‘𝑅)(𝑚 · (𝑀 Σg ℎ)))
435	9, 24, 387, 10, 407, 403, 410, 412, 434	rprmdvds 33548	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → (𝑝(∥r‘𝑅)𝑚 ∨ 𝑝(∥r‘𝑅)(𝑀 Σg ℎ)))
436	3, 24, 387, 401, 403, 408	rprmndvdsru 33558	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ¬ 𝑝(∥r‘𝑅)𝑚)
437	435, 436	orcnd 878	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → 𝑝(∥r‘𝑅)(𝑀 Σg ℎ))
438	9, 24, 387, 4, 12, 401, 403, 404, 406, 399, 437	rprmdvdsprod 33563	. . . . . . . . . . . . 13 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ∃𝑗 ∈ (ℎ supp (1r‘𝑅))𝑝(∥r‘𝑅)(ℎ‘𝑗))
439		ssrexv 4052	. . . . . . . . . . . . 13 ⊢ ((ℎ supp (1r‘𝑅)) ⊆ (0..^(♯‘ℎ)) → (∃𝑗 ∈ (ℎ supp (1r‘𝑅))𝑝(∥r‘𝑅)(ℎ‘𝑗) → ∃𝑗 ∈ (0..^(♯‘ℎ))𝑝(∥r‘𝑅)(ℎ‘𝑗)))
440	400, 438, 439	sylc 65	. . . . . . . . . . . 12 ⊢ ((((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) ∧ 𝑚 ∈ 𝑈) ∧ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ))) → ∃𝑗 ∈ (0..^(♯‘ℎ))𝑝(∥r‘𝑅)(ℎ‘𝑗))
441	382	biimpi 216	. . . . . . . . . . . . 13 ⊢ (∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) → ∃𝑚 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ)))
442	441	adantl 481	. . . . . . . . . . . 12 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → ∃𝑚 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑚 · (𝑀 Σg ℎ)))
443	440, 442	r19.29a 3161	. . . . . . . . . . 11 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → ∃𝑗 ∈ (0..^(♯‘ℎ))𝑝(∥r‘𝑅)(ℎ‘𝑗))
444	391, 443	r19.29a 3161	. . . . . . . . . 10 ⊢ ((((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) ∧ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
445	444	ex 412	. . . . . . . . 9 ⊢ (((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) ∧ ℎ ∈ Word 𝑃) → (∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
446	445	ralrimiva 3145	. . . . . . . 8 ⊢ ((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) → ∀ℎ ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
447		f1oeq1 6835	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = 𝑣 → (𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ↔ 𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))))
448		coeq2 5868	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 = 𝑣 → ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤) = ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))
449	448	oveq2d 7448	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑣 → (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)) = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))
450	449	eqeq2d 2747	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = 𝑣 → (𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)) ↔ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
451	447, 450	anbi12d 632	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑣 → ((𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))) ↔ (𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
452	451	rexbidv 3178	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑣 → (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
453	452	cbvexvw 2035	. . . . . . . . . . . 12 ⊢ (∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))) ↔ ∃𝑣∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
454		oveq1 7439	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 = 𝑠 → (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)) = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))
455	454	eqeq2d 2747	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = 𝑠 → (𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)) ↔ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
456	455	anbi2d 630	. . . . . . . . . . . . . 14 ⊢ (𝑢 = 𝑠 → ((𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ (𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
457	456	cbvrexvw 3237	. . . . . . . . . . . . 13 ⊢ (∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ ∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
458	457	exbii 1847	. . . . . . . . . . . 12 ⊢ (∃𝑣∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
459	453, 458	bitri 275	. . . . . . . . . . 11 ⊢ (∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤))) ↔ ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
460	459	imbi2i 336	. . . . . . . . . 10 ⊢ ((∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))) ↔ (∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
461	460	ralbii 3092	. . . . . . . . 9 ⊢ (∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))) ↔ ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
462		oveq2 7440	. . . . . . . . . . . . . 14 ⊢ (𝑔 = ℎ → (𝑀 Σg 𝑔) = (𝑀 Σg ℎ))
463	462	oveq2d 7448	. . . . . . . . . . . . 13 ⊢ (𝑔 = ℎ → (𝑘 · (𝑀 Σg 𝑔)) = (𝑘 · (𝑀 Σg ℎ)))
464	463	eqeq2d 2747	. . . . . . . . . . . 12 ⊢ (𝑔 = ℎ → ((𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) ↔ (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))))
465	464	rexbidv 3178	. . . . . . . . . . 11 ⊢ (𝑔 = ℎ → (∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) ↔ ∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ))))
466		eqeq1 2740	. . . . . . . . . . . . . 14 ⊢ (𝑔 = ℎ → (𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)) ↔ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))
467	466	anbi2d 630	. . . . . . . . . . . . 13 ⊢ (𝑔 = ℎ → ((𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ (𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
468	467	rexbidv 3178	. . . . . . . . . . . 12 ⊢ (𝑔 = ℎ → (∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ ∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
469	468	exbidv 1920	. . . . . . . . . . 11 ⊢ (𝑔 = ℎ → (∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))) ↔ ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
470	465, 469	imbi12d 344	. . . . . . . . . 10 ⊢ (𝑔 = ℎ → ((∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))) ↔ (∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣))))))
471	470	cbvralvw 3236	. . . . . . . . 9 ⊢ (∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))) ↔ ∀ℎ ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
472	461, 471	bitri 275	. . . . . . . 8 ⊢ (∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))) ↔ ∀ℎ ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg ℎ)) → ∃𝑣∃𝑠 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑣:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ ℎ = (𝑠 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑣)))))
473	446, 472	sylibr 234	. . . . . . 7 ⊢ ((((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) ∧ (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤)))))) ∧ 𝑅 ∈ IDomn) → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))))
474	473	exp31 419	. . . . . 6 ⊢ ((𝑓 ∈ Word 𝑃 ∧ 𝑝 ∈ 𝑃) → ((𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝑓) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝑓)))(𝑤:(0..^(♯‘𝑓))–1-1-onto→(0..^(♯‘𝑓)) ∧ 𝑔 = (𝑢 ∘f · (𝑓 ∘ 𝑤))))) → (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg (𝑓 ++ ⟨“𝑝”⟩)) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))))(𝑤:(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩)))–1-1-onto→(0..^(♯‘(𝑓 ++ ⟨“𝑝”⟩))) ∧ 𝑔 = (𝑢 ∘f · ((𝑓 ++ ⟨“𝑝”⟩) ∘ 𝑤)))))))
475	65, 82, 99, 116, 212, 474	wrdind 14761	. . . . 5 ⊢ (𝐹 ∈ Word 𝑃 → (𝑅 ∈ IDomn → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))))
476	48, 1, 475	sylc 65	. . . 4 ⊢ (𝜑 → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
477	47, 476, 22	rspcdva 3622	. . 3 ⊢ (𝜑 → (∃𝑘 ∈ 𝑈 (𝑀 Σg 𝐹) = (𝑘 · (𝑀 Σg 𝐺)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤)))))
478	38, 477	mpd 15	. 2 ⊢ (𝜑 → ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))
479		1arithidom.j	. . . . 5 ⊢ 𝐽 = (0..^(♯‘𝐹))
480	479	oveq2i 7443	. . . 4 ⊢ (𝑈 ↑m 𝐽) = (𝑈 ↑m (0..^(♯‘𝐹)))
481		f1oeq23 6838	. . . . . 6 ⊢ ((𝐽 = (0..^(♯‘𝐹)) ∧ 𝐽 = (0..^(♯‘𝐹))) → (𝑤:𝐽–1-1-onto→𝐽 ↔ 𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹))))
482	479, 479, 481	mp2an 692	. . . . 5 ⊢ (𝑤:𝐽–1-1-onto→𝐽 ↔ 𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)))
483	482	anbi1i 624	. . . 4 ⊢ ((𝑤:𝐽–1-1-onto→𝐽 ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))) ↔ (𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))
484	480, 483	rexeqbii 3344	. . 3 ⊢ (∃𝑢 ∈ (𝑈 ↑m 𝐽)(𝑤:𝐽–1-1-onto→𝐽 ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))) ↔ ∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))
485	484	exbii 1847	. 2 ⊢ (∃𝑤∃𝑢 ∈ (𝑈 ↑m 𝐽)(𝑤:𝐽–1-1-onto→𝐽 ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))) ↔ ∃𝑤∃𝑢 ∈ (𝑈 ↑m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))
486	478, 485	sylibr 234	1 ⊢ (𝜑 → ∃𝑤∃𝑢 ∈ (𝑈 ↑m 𝐽)(𝑤:𝐽–1-1-onto→𝐽 ∧ 𝐺 = (𝑢 ∘f · (𝐹 ∘ 𝑤))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1539  ∃wex 1778   ∈ wcel 2107   ≠ wne 2939  ∀wral 3060  ∃wrex 3069  Vcvv 3479   ⊆ wss 3950  ∅c0 4332  {csn 4625   class class class wbr 5142  ^◡ccnv 5683  dom cdm 5684  ran crn 5685   ∘ ccom 5688  Rel wrel 5689   Fn wfn 6555  ⟶wf 6556  –1-1-onto→wf1o 6559  ‘cfv 6560  (class class class)co 7432   ∘_f cof 7696   supp csupp 8186   ↑_m cmap 8867  ℂcc 11154  0cc0 11156  1c1 11157   + caddc 11159   < clt 11296   ≤ cle 11297   − cmin 11493  ℕcn 12267  ℕ₀cn0 12528  ...cfz 13548  ..^cfzo 13695  ♯chash 14370  Word cword 14553   ++ cconcat 14609  ⟨“cs1 14634   prefix cpfx 14709  Basecbs 17248  ._rcmulr 17299   Σ_g cgsu 17486  Mndcmnd 18748  CMndccmn 19799  mulGrpcmgp 20138  1_rcur 20179  Ringcrg 20231  CRingccrg 20232  ∥_rcdsr 20355  Unitcui 20356  RPrimecrpm 20433  IDomncidom 20694

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2707  ax-rep 5278  ax-sep 5295  ax-nul 5305  ax-pow 5364  ax-pr 5431  ax-un 7756  ax-cnex 11212  ax-resscn 11213  ax-1cn 11214  ax-icn 11215  ax-addcl 11216  ax-addrcl 11217  ax-mulcl 11218  ax-mulrcl 11219  ax-mulcom 11220  ax-addass 11221  ax-mulass 11222  ax-distr 11223  ax-i2m1 11224  ax-1ne0 11225  ax-1rid 11226  ax-rnegex 11227  ax-rrecex 11228  ax-cnre 11229  ax-pre-lttri 11230  ax-pre-lttrn 11231  ax-pre-ltadd 11232  ax-pre-mulgt0 11233

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2728  df-clel 2815  df-nfc 2891  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3379  df-reu 3380  df-rab 3436  df-v 3481  df-sbc 3788  df-csb 3899  df-dif 3953  df-un 3955  df-in 3957  df-ss 3967  df-pss 3970  df-nul 4333  df-if 4525  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4907  df-int 4946  df-iun 4992  df-iin 4993  df-br 5143  df-opab 5205  df-mpt 5225  df-tr 5259  df-id 5577  df-eprel 5583  df-po 5591  df-so 5592  df-fr 5636  df-se 5637  df-we 5638  df-xp 5690  df-rel 5691  df-cnv 5692  df-co 5693  df-dm 5694  df-rn 5695  df-res 5696  df-ima 5697  df-pred 6320  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6513  df-fun 6562  df-fn 6563  df-f 6564  df-f1 6565  df-fo 6566  df-f1o 6567  df-fv 6568  df-isom 6569  df-riota 7389  df-ov 7435  df-oprab 7436  df-mpo 7437  df-of 7698  df-om 7889  df-1st 8015  df-2nd 8016  df-supp 8187  df-tpos 8252  df-frecs 8307  df-wrecs 8338  df-recs 8412  df-rdg 8451  df-1o 8507  df-2o 8508  df-oadd 8511  df-er 8746  df-map 8869  df-en 8987  df-dom 8988  df-sdom 8989  df-fin 8990  df-fsupp 9403  df-oi 9551  df-dju 9942  df-card 9980  df-pnf 11298  df-mnf 11299  df-xr 11300  df-ltxr 11301  df-le 11302  df-sub 11495  df-neg 11496  df-nn 12268  df-2 12330  df-3 12331  df-n0 12529  df-xnn0 12602  df-z 12616  df-uz 12880  df-fz 13549  df-fzo 13696  df-seq 14044  df-hash 14371  df-word 14554  df-lsw 14602  df-concat 14610  df-s1 14635  df-substr 14680  df-pfx 14710  df-sets 17202  df-slot 17220  df-ndx 17232  df-base 17249  df-ress 17276  df-plusg 17311  df-mulr 17312  df-0g 17487  df-gsum 17488  df-mre 17630  df-mrc 17631  df-acs 17633  df-mgm 18654  df-sgrp 18733  df-mnd 18749  df-submnd 18798  df-grp 18955  df-minusg 18956  df-sbg 18957  df-mulg 19087  df-cntz 19336  df-pmtr 19461  df-cmn 19801  df-abl 19802  df-mgp 20139  df-rng 20151  df-ur 20180  df-ring 20233  df-cring 20234  df-oppr 20335  df-dvdsr 20358  df-unit 20359  df-invr 20389  df-rprm 20434  df-nzr 20514  df-domn 20696  df-idom 20697

This theorem is referenced by: (None)