1arithidomlem2 - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > 1arithidomlem2		Structured version Visualization version GIF version

Theorem 1arithidomlem2 33611

Description: Lemma for 1arithidom 33612: induction step. (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 𝐺))
1arithidomlem.1	⊢ (𝜑 → 𝑄 ∈ 𝑃)
1arithidomlem.2	⊢ (𝜑 → ∀𝑔 ∈ Word 𝑃(∃𝑘 ∈ 𝑈 (𝑀 Σ_g 𝐹) = (𝑘 · (𝑀 Σ_g 𝑔)) → ∃𝑤∃𝑢 ∈ (𝑈 ↑_m (0..^(♯‘𝐹)))(𝑤:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) ∧ 𝑔 = (𝑢 ∘_f · (𝐹 ∘ 𝑤)))))
1arithidomlem.3	⊢ (𝜑 → 𝐻 ∈ Word 𝑃)
1arithidomlem.4	⊢ (𝜑 → ∃𝑘 ∈ 𝑈 (𝑀 Σ_g (𝐹 ++ ⟨“𝑄”⟩)) = (𝑘 · (𝑀 Σ_g 𝐻)))
1arithidomlem.5	⊢ (𝜑 → 𝐾 ∈ (0..^(♯‘𝐻)))
1arithidomlem.6	⊢ (𝜑 → 𝑄(∥_r‘𝑅)(𝐻‘𝐾))
1arithidomlem.7	⊢ (𝜑 → 𝑇 ∈ 𝑈)
1arithidomlem.8	⊢ (𝜑 → (𝑇 · 𝑄) = (𝐻‘𝐾))
1arithidomlem.9	⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
1arithidomlem.10	⊢ (𝜑 → (𝐻 ∘ 𝑆) = (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩))
1arithidomlem.11	⊢ (𝜑 → 𝑁 ∈ 𝑈)
1arithidomlem.12	⊢ (𝜑 → (𝑀 Σ_g (𝐹 ++ ⟨“𝑄”⟩)) = (𝑁 · (𝑀 Σ_g 𝐻)))
1arithidomlem.13	⊢ (𝜑 → 𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))))
1arithidomlem.14	⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)))
1arithidomlem.15	⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (𝐷 ∘_f · (𝐹 ∘ 𝐶)))

**Assertion**
Ref	Expression
1arithidomlem2	⊢ (𝜑 → (((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) ∧ 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))))

Distinct variable groups: · ,𝑔,𝑘,𝑢,𝑤 𝑆,𝑔,𝑘,𝑢,𝑤 𝑢,𝑁,𝑤 𝑢,𝑇,𝑤 𝑘,𝐾,𝑢,𝑤 𝑔,𝐻,𝑘,𝑢,𝑤 𝑔,𝐹,𝑘,𝑢,𝑤 𝑢,𝐶 𝑃,𝑔,𝑘,𝑢 𝑔,𝑀,𝑘,𝑢 𝑅,𝑔,𝑘,𝑢 𝑄,𝑔,𝑘,𝑢,𝑤 𝑈,𝑔,𝑘,𝑢,𝑤 Allowed substitution hints: 𝜑(𝑤,𝑢,𝑔,𝑘) 𝐶(𝑤,𝑔,𝑘) 𝐷(𝑤,𝑢,𝑔,𝑘) 𝑃(𝑤) 𝑅(𝑤) 𝑇(𝑔,𝑘) 𝐺(𝑤,𝑢,𝑔,𝑘) 𝐽(𝑤,𝑢,𝑔,𝑘) 𝐾(𝑔) 𝑀(𝑤) 𝑁(𝑔,𝑘)

Proof of Theorem 1arithidomlem2 Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		1arithidom.f	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ Word 𝑃)
2		ccatws1len 14574	. . . . . 6 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
3	1, 2	syl 17	. . . . 5 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
4		1arithidomlem.15	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
5	4	dmeqd 5854	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
6		1arithidomlem.9	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
7		f1of 6774	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
8		iswrdi 14470	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 ∈ Word (0..^(♯‘𝐻)))
9	6, 7, 8	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑆 ∈ Word (0..^(♯‘𝐻)))
10		eqidd 2738	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘𝐻))
11		1arithidomlem.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐻 ∈ Word 𝑃)
12	10, 11	wrdfd 14472	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻:(0..^(♯‘𝐻))⟶𝑃)
13		wrdco 14784	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
14	9, 12, 13	syl2anc 585	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
15		1arithidomlem.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ (0..^(♯‘𝐻)))
16		elfzo0 13646	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) ↔ (𝐾 ∈ ℕ₀ ∧ (♯‘𝐻) ∈ ℕ ∧ 𝐾 < (♯‘𝐻)))
17	16	simp2bi 1147	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) → (♯‘𝐻) ∈ ℕ)
18		nnm1nn0 12469	. . . . . . . . . . . . 13 ⊢ ((♯‘𝐻) ∈ ℕ → ((♯‘𝐻) − 1) ∈ ℕ₀)
19	15, 17, 18	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ ℕ₀)
20		lenco 14785	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
21	9, 12, 20	syl2anc 585	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
22		lencl 14486	. . . . . . . . . . . . . 14 ⊢ (𝑆 ∈ Word (0..^(♯‘𝐻)) → (♯‘𝑆) ∈ ℕ₀)
23	9, 22	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝑆) ∈ ℕ₀)
24	21, 23	eqeltrd 2837	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀)
25		lencl 14486	. . . . . . . . . . . . . . . 16 ⊢ (𝐻 ∈ Word 𝑃 → (♯‘𝐻) ∈ ℕ₀)
26	11, 25	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ₀)
27	26	nn0red 12490	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝐻) ∈ ℝ)
28	27	lem1d 12080	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘𝐻))
29	6, 7	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
30		ffn 6662	. . . . . . . . . . . . . . 15 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 Fn (0..^(♯‘𝐻)))
31		hashfn 14328	. . . . . . . . . . . . . . 15 ⊢ (𝑆 Fn (0..^(♯‘𝐻)) → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
32	29, 30, 31	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
33		hashfzo0 14383	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐻) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
34	11, 25, 33	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
35	21, 32, 34	3eqtrrd 2777	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐻 ∘ 𝑆)))
36	28, 35	breqtrd 5112	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆)))
37		elfz2nn0 13563	. . . . . . . . . . . 12 ⊢ (((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))) ↔ (((♯‘𝐻) − 1) ∈ ℕ₀ ∧ (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀ ∧ ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆))))
38	19, 24, 36, 37	syl3anbrc 1345	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))))
39		pfxfn 14635	. . . . . . . . . . 11 ⊢ (((𝐻 ∘ 𝑆) ∈ Word 𝑃 ∧ ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆)))) → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
40	14, 38, 39	syl2anc 585	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
41	40	fndmd 6597	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (0..^((♯‘𝐻) − 1)))
42		eqid 2737	. . . . . . . . . . . 12 ⊢ (Base‘𝑅) = (Base‘𝑅)
43		1arithidom.t	. . . . . . . . . . . 12 ⊢ · = (._r‘𝑅)
44		1arithidom.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ IDomn)
45	44	idomringd 20696	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 ∈ Ring)
46	45	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ Ring)
47		1arithidom.u	. . . . . . . . . . . . . 14 ⊢ 𝑈 = (Unit‘𝑅)
48	42, 47	unitcl 20346	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑈 → 𝑥 ∈ (Base‘𝑅))
49	48	ad2antrl 729	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑥 ∈ (Base‘𝑅))
50		1arithidom.i	. . . . . . . . . . . . 13 ⊢ 𝑃 = (RPrime‘𝑅)
51	44	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ IDomn)
52		simprr 773	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ 𝑃)
53	42, 50, 51, 52	rprmcl 33593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ (Base‘𝑅))
54	42, 43, 46, 49, 53	ringcld 20232	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → (𝑥 · 𝑦) ∈ (Base‘𝑅))
55		1arithidomlem.13	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))))
56		elmapi 8789	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
57	55, 56	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
58		eqidd 2738	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐹) = (♯‘𝐹))
59	58, 1	wrdfd 14472	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:(0..^(♯‘𝐹))⟶𝑃)
60		1arithidomlem.14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)))
61		f1of 6774	. . . . . . . . . . . . 13 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
62	60, 61	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
63	59, 62	fcod 6687	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃)
64		ovexd 7395	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ∈ V)
65		inidm 4168	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ∩ (0..^(♯‘𝐹))) = (0..^(♯‘𝐹))
66	54, 57, 63, 64, 64, 65	off 7642	. . . . . . . . . 10 ⊢ (𝜑 → (𝐷 ∘_f · (𝐹 ∘ 𝐶)):(0..^(♯‘𝐹))⟶(Base‘𝑅))
67	66	fdmd 6672	. . . . . . . . 9 ⊢ (𝜑 → dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)) = (0..^(♯‘𝐹)))
68	5, 41, 67	3eqtr3d 2780	. . . . . . . 8 ⊢ (𝜑 → (0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)))
69		lencl 14486	. . . . . . . . . 10 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘𝐹) ∈ ℕ₀)
70	1, 69	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ ℕ₀)
71	19, 70	fzo0opth 32891	. . . . . . . 8 ⊢ (𝜑 → ((0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)) ↔ ((♯‘𝐻) − 1) = (♯‘𝐹)))
72	68, 71	mpbid 232	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐻) − 1) = (♯‘𝐹))
73	72	oveq1d 7375	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = ((♯‘𝐹) + 1))
74	15, 17	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ)
75	74	nncnd 12181	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) ∈ ℂ)
76		npcan1 11566	. . . . . . 7 ⊢ ((♯‘𝐻) ∈ ℂ → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
77	75, 76	syl 17	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
78	73, 77	eqtr3d 2774	. . . . 5 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘𝐻))
79	3, 78	eqtrd 2772	. . . 4 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = (♯‘𝐻))
80	79	oveq2d 7376	. . 3 ⊢ (𝜑 → (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)))
81		eqid 2737	. . . . . 6 ⊢ (♯‘𝐶) = (♯‘𝐶)
82		eqid 2737	. . . . . 6 ⊢ (0..^((♯‘𝐶) + 1)) = (0..^((♯‘𝐶) + 1))
83		f1ofn 6775	. . . . . . . . . 10 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶 Fn (0..^(♯‘𝐹)))
84		hashfn 14328	. . . . . . . . . 10 ⊢ (𝐶 Fn (0..^(♯‘𝐹)) → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
85	60, 83, 84	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
86		hashfzo0 14383	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
87	70, 86	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
88	85, 87	eqtrd 2772	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐶) = (♯‘𝐹))
89	88	oveq2d 7376	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘𝐶)) = (0..^(♯‘𝐹)))
90		f1oeq23 6765	. . . . . . . 8 ⊢ (((0..^(♯‘𝐶)) = (0..^(♯‘𝐹)) ∧ (0..^(♯‘𝐶)) = (0..^(♯‘𝐹))) → (𝐶:(0..^(♯‘𝐶))–1-1-onto→(0..^(♯‘𝐶)) ↔ 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹))))
91	90	biimpar 477	. . . . . . 7 ⊢ ((((0..^(♯‘𝐶)) = (0..^(♯‘𝐹)) ∧ (0..^(♯‘𝐶)) = (0..^(♯‘𝐹))) ∧ 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹))) → 𝐶:(0..^(♯‘𝐶))–1-1-onto→(0..^(♯‘𝐶)))
92	89, 89, 60, 91	syl21anc 838	. . . . . 6 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐶))–1-1-onto→(0..^(♯‘𝐶)))
93	81, 82, 92	ccatws1f1o 33026	. . . . 5 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩):(0..^((♯‘𝐶) + 1))–1-1-onto→(0..^((♯‘𝐶) + 1)))
94	88	s1eqd 14555	. . . . . . 7 ⊢ (𝜑 → ⟨“(♯‘𝐶)”⟩ = ⟨“(♯‘𝐹)”⟩)
95	94	oveq2d 7376	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩) = (𝐶 ++ ⟨“(♯‘𝐹)”⟩))
96	88	oveq1d 7375	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐶) + 1) = ((♯‘𝐹) + 1))
97	96, 78	eqtrd 2772	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐶) + 1) = (♯‘𝐻))
98	97	oveq2d 7376	. . . . . 6 ⊢ (𝜑 → (0..^((♯‘𝐶) + 1)) = (0..^(♯‘𝐻)))
99	95, 98, 98	f1oeq123d 6768	. . . . 5 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐶)”⟩):(0..^((♯‘𝐶) + 1))–1-1-onto→(0..^((♯‘𝐶) + 1)) ↔ (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))))
100	93, 99	mpbid 232	. . . 4 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
101		f1ocnv 6786	. . . . 5 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
102	6, 101	syl 17	. . . 4 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
103		f1oco 6797	. . . 4 ⊢ (((𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))) → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
104	100, 102, 103	syl2anc 585	. . 3 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
105		f1oeq23 6765	. . . 4 ⊢ (((0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)) ∧ (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻))) → (((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) ↔ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))))
106	105	biimpar 477	. . 3 ⊢ ((((0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)) ∧ (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻))) ∧ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))) → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))))
107	80, 80, 104, 106	syl21anc 838	. 2 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))))
108		f1ofo 6781	. . . 4 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
109	6, 108	syl 17	. . 3 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
110	12	ffnd 6663	. . 3 ⊢ (𝜑 → 𝐻 Fn (0..^(♯‘𝐻)))
111		iswrdi 14470	. . . . . . . . . . 11 ⊢ (𝐷:(0..^(♯‘𝐹))⟶𝑈 → 𝐷 ∈ Word 𝑈)
112	57, 111	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ Word 𝑈)
113		ccatws1len 14574	. . . . . . . . . 10 ⊢ (𝐷 ∈ Word 𝑈 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
114	112, 113	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
115		elmapfn 8805	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷 Fn (0..^(♯‘𝐹)))
116		hashfn 14328	. . . . . . . . . . . 12 ⊢ (𝐷 Fn (0..^(♯‘𝐹)) → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
117	55, 115, 116	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
118	117, 87	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐷) = (♯‘𝐹))
119	118	oveq1d 7375	. . . . . . . . 9 ⊢ (𝜑 → ((♯‘𝐷) + 1) = ((♯‘𝐹) + 1))
120	114, 119, 78	3eqtrd 2776	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘𝐻))
121	120	oveq2d 7376	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩))) = (0..^(♯‘𝐻)))
122		eqidd 2738	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘(𝐷 ++ ⟨“𝑇”⟩)))
123		1arithidomlem.7	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ 𝑈)
124		ccatws1cl 14570	. . . . . . . . 9 ⊢ ((𝐷 ∈ Word 𝑈 ∧ 𝑇 ∈ 𝑈) → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
125	112, 123, 124	syl2anc 585	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
126	122, 125	wrdfd 14472	. . . . . . 7 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩)))⟶𝑈)
127	121, 126	feq2dd 6648	. . . . . 6 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘𝐻))⟶𝑈)
128	127	ffnd 6663	. . . . 5 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)))
129		f1of 6774	. . . . . 6 ⊢ (^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
130	6, 101, 129	3syl 18	. . . . 5 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
131		fnfco 6699	. . . . 5 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
132	128, 130, 131	syl2anc 585	. . . 4 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
133	78	oveq2d 7376	. . . . . . 7 ⊢ (𝜑 → (0..^((♯‘𝐹) + 1)) = (0..^(♯‘𝐻)))
134	3	eqcomd 2743	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘(𝐹 ++ ⟨“𝑄”⟩)))
135		1arithidomlem.1	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ 𝑃)
136		ccatws1cl 14570	. . . . . . . . 9 ⊢ ((𝐹 ∈ Word 𝑃 ∧ 𝑄 ∈ 𝑃) → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
137	1, 135, 136	syl2anc 585	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
138	134, 137	wrdfd 14472	. . . . . . 7 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^((♯‘𝐹) + 1))⟶𝑃)
139	133, 138	feq2dd 6648	. . . . . 6 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^(♯‘𝐻))⟶𝑃)
140	139	ffnd 6663	. . . . 5 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)))
141		fzossfzop1 13689	. . . . . . . . . . . 12 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
142	70, 141	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
143		sswrd 14475	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)) → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
144	142, 143	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
145		iswrdi 14470	. . . . . . . . . . 11 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)) → 𝐶 ∈ Word (0..^(♯‘𝐹)))
146	62, 145	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐹)))
147	144, 146	sseldd 3923	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ Word (0..^((♯‘𝐹) + 1)))
148		ccatws1len 14574	. . . . . . . . 9 ⊢ (𝐶 ∈ Word (0..^((♯‘𝐹) + 1)) → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
149	147, 148	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
150	149, 96, 78	3eqtrrd 2777	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)))
151	142, 133	sseqtrd 3959	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^(♯‘𝐻)))
152	62, 151	fssd 6679	. . . . . . . . 9 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)))
153		iswrdi 14470	. . . . . . . . 9 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)) → 𝐶 ∈ Word (0..^(♯‘𝐻)))
154	152, 153	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐻)))
155		fzonn0p1 13688	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
156	70, 155	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
157	156, 133	eleqtrd 2839	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^(♯‘𝐻)))
158		ccatws1cl 14570	. . . . . . . 8 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐻)) ∧ (♯‘𝐹) ∈ (0..^(♯‘𝐻))) → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
159	154, 157, 158	syl2anc 585	. . . . . . 7 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
160	150, 159	wrdfd 14472	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
161	160, 130	fcod 6687	. . . . 5 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
162		fnfco 6699	. . . . 5 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)) ∧ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
163	140, 161, 162	syl2anc 585	. . . 4 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
164		ovexd 7395	. . . 4 ⊢ (𝜑 → (0..^(♯‘𝐻)) ∈ V)
165		inidm 4168	. . . 4 ⊢ ((0..^(♯‘𝐻)) ∩ (0..^(♯‘𝐻))) = (0..^(♯‘𝐻))
166	132, 163, 164, 164, 165	offn 7637	. . 3 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻)))
167		1arithidomlem.10	. . . 4 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩))
168		eqid 2737	. . . . . . . . 9 ⊢ (♯‘𝐹) = (♯‘𝐹)
169	168, 1, 135, 60	ccatws1f1olast 33027	. . . . . . . 8 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩))
170	169	oveq2d 7376	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)))
171	123	s1cld 14557	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑇”⟩ ∈ Word 𝑈)
172		iswrdi 14470	. . . . . . . . 9 ⊢ ((𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
173	63, 172	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
174	135	s1cld 14557	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑄”⟩ ∈ Word 𝑃)
175		lenco 14785	. . . . . . . . . 10 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐹)) ∧ 𝐹:(0..^(♯‘𝐹))⟶𝑃) → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
176	146, 59, 175	syl2anc 585	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
177	85, 176, 117	3eqtr4rd 2783	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(𝐹 ∘ 𝐶)))
178		s1len 14560	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑇”⟩) = 1
179		s1len 14560	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑄”⟩) = 1
180	178, 179	eqtr4i 2763	. . . . . . . . 9 ⊢ (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩)
181	180	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩))
182	112, 171, 173, 174, 177, 181	ofccat 14922	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
183	170, 182	eqtrd 2772	. . . . . 6 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
184	139, 160	fcod 6687	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)):(0..^(♯‘𝐻))⟶𝑃)
185	184	ffnd 6663	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) Fn (0..^(♯‘𝐻)))
186	128, 185, 130, 164, 164, 164, 165	ofco 7649	. . . . . . . . 9 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)))
187	186	coeq1d 5810	. . . . . . . 8 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
188		coass 6224	. . . . . . . 8 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆))
189	187, 188	eqtr3di 2787	. . . . . . 7 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)))
190		f1of1 6773	. . . . . . . . . 10 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
191	6, 190	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
192		f1cocnv1 6804	. . . . . . . . 9 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)) → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
193	191, 192	syl 17	. . . . . . . 8 ⊢ (𝜑 → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
194	193	coeq2d 5811	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))))
195	54, 127, 184, 164, 164, 165	off 7642	. . . . . . . 8 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅))
196		fcoi1 6708	. . . . . . . 8 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅) → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
197	195, 196	syl 17	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
198	189, 194, 197	3eqtrd 2776	. . . . . 6 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
199		ofs1 14923	. . . . . . . . 9 ⊢ ((𝑇 ∈ 𝑈 ∧ 𝑄 ∈ 𝑃) → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
200	123, 135, 199	syl2anc 585	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
201		1arithidomlem.8	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 · 𝑄) = (𝐻‘𝐾))
202	201	s1eqd 14555	. . . . . . . 8 ⊢ (𝜑 → ⟨“(𝑇 · 𝑄)”⟩ = ⟨“(𝐻‘𝐾)”⟩)
203	200, 202	eqtr2d 2773	. . . . . . 7 ⊢ (𝜑 → ⟨“(𝐻‘𝐾)”⟩ = (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩))
204	4, 203	oveq12d 7378	. . . . . 6 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
205	183, 198, 204	3eqtr4rd 2783	. . . . 5 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
206		coass 6224	. . . . . . 7 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆) = ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))
207	206	oveq2i 7371	. . . . . 6 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))
208	207	coeq1i 5808	. . . . 5 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆)
209	205, 208	eqtrdi 2788	. . . 4 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
210	167, 209	eqtrd 2772	. . 3 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
211		cocan2 7240	. . . 4 ⊢ ((𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)) ∧ 𝐻 Fn (0..^(♯‘𝐻)) ∧ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻))) → ((𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆) ↔ 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))))
212	211	biimpa 476	. . 3 ⊢ (((𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)) ∧ 𝐻 Fn (0..^(♯‘𝐻)) ∧ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻))) ∧ (𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆)) → 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))))
213	109, 110, 166, 210, 212	syl31anc 1376	. 2 ⊢ (𝜑 → 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))))
214	107, 213	jca 511	1 ⊢ (𝜑 → (((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) ∧ 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∃wex 1781 ∈ wcel 2114 ∀wral 3052 ∃wrex 3062 Vcvv 3430 ⊆ wss 3890 class class class wbr 5086 I cid 5518 ^◡ccnv 5623 dom cdm 5624 ↾ cres 5626 ∘ ccom 5628 Fn wfn 6487 ⟶wf 6488 –1-1→wf1 6489 –onto→wfo 6490 –1-1-onto→wf1o 6491 ‘cfv 6492 (class class class)co 7360 ∘_f cof 7622 ↑_m cmap 8766 ℂcc 11027 0cc0 11029 1c1 11030 + caddc 11032 < clt 11170 ≤ cle 11171 − cmin 11368 ℕcn 12165 ℕ₀cn0 12428 ...cfz 13452 ..^cfzo 13599 ♯chash 14283 Word cword 14466 ++ cconcat 14523 ⟨“cs1 14549 prefix cpfx 14624 Basecbs 17170 ._rcmulr 17212 Σ_g cgsu 17394 mulGrpcmgp 20112 Ringcrg 20205 ∥_rcdsr 20325 Unitcui 20326 RPrimecrpm 20403 IDomncidom 20661

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5212 ax-sep 5231 ax-nul 5241 ax-pow 5302 ax-pr 5370 ax-un 7682 ax-cnex 11085 ax-resscn 11086 ax-1cn 11087 ax-icn 11088 ax-addcl 11089 ax-addrcl 11090 ax-mulcl 11091 ax-mulrcl 11092 ax-mulcom 11093 ax-addass 11094 ax-mulass 11095 ax-distr 11096 ax-i2m1 11097 ax-1ne0 11098 ax-1rid 11099 ax-rnegex 11100 ax-rrecex 11101 ax-cnre 11102 ax-pre-lttri 11103 ax-pre-lttrn 11104 ax-pre-ltadd 11105 ax-pre-mulgt0 11106

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4275 df-if 4468 df-pw 4544 df-sn 4569 df-pr 4571 df-op 4575 df-uni 4852 df-int 4891 df-iun 4936 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5519 df-eprel 5524 df-po 5532 df-so 5533 df-fr 5577 df-we 5579 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-riota 7317 df-ov 7363 df-oprab 7364 df-mpo 7365 df-of 7624 df-om 7811 df-1st 7935 df-2nd 7936 df-frecs 8224 df-wrecs 8255 df-recs 8304 df-rdg 8342 df-1o 8398 df-er 8636 df-map 8768 df-en 8887 df-dom 8888 df-sdom 8889 df-fin 8890 df-card 9854 df-pnf 11172 df-mnf 11173 df-xr 11174 df-ltxr 11175 df-le 11176 df-sub 11370 df-neg 11371 df-nn 12166 df-2 12235 df-n0 12429 df-z 12516 df-uz 12780 df-fz 13453 df-fzo 13600 df-hash 14284 df-word 14467 df-concat 14524 df-s1 14550 df-substr 14595 df-pfx 14625 df-sets 17125 df-slot 17143 df-ndx 17155 df-base 17171 df-plusg 17224 df-mgm 18599 df-sgrp 18678 df-mnd 18694 df-mgp 20113 df-ring 20207 df-cring 20208 df-dvdsr 20328 df-unit 20329 df-rprm 20404 df-idom 20664

This theorem is referenced by: 1arithidom 33612

W3C validator