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 33529

Description: Lemma for 1arithidom 33530: 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 14668	. . . . . 6 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
3	1, 2	syl 17	. . . . 5 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
4		1arithidomlem.15	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
5	4	dmeqd 5930	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
6		1arithidomlem.9	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
7		f1of 6862	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
8		iswrdi 14566	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 ∈ Word (0..^(♯‘𝐻)))
9	6, 7, 8	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑆 ∈ Word (0..^(♯‘𝐻)))
10		eqidd 2741	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘𝐻))
11		1arithidomlem.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐻 ∈ Word 𝑃)
12	10, 11	wrdfd 32900	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻:(0..^(♯‘𝐻))⟶𝑃)
13		wrdco 14880	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
14	9, 12, 13	syl2anc 583	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
15		1arithidomlem.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ (0..^(♯‘𝐻)))
16		elfzo0 13757	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) ↔ (𝐾 ∈ ℕ₀ ∧ (♯‘𝐻) ∈ ℕ ∧ 𝐾 < (♯‘𝐻)))
17	16	simp2bi 1146	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) → (♯‘𝐻) ∈ ℕ)
18		nnm1nn0 12594	. . . . . . . . . . . . 13 ⊢ ((♯‘𝐻) ∈ ℕ → ((♯‘𝐻) − 1) ∈ ℕ₀)
19	15, 17, 18	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ ℕ₀)
20		lenco 14881	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
21	9, 12, 20	syl2anc 583	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
22		lencl 14581	. . . . . . . . . . . . . 14 ⊢ (𝑆 ∈ Word (0..^(♯‘𝐻)) → (♯‘𝑆) ∈ ℕ₀)
23	9, 22	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝑆) ∈ ℕ₀)
24	21, 23	eqeltrd 2844	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀)
25		lencl 14581	. . . . . . . . . . . . . . . 16 ⊢ (𝐻 ∈ Word 𝑃 → (♯‘𝐻) ∈ ℕ₀)
26	11, 25	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ₀)
27	26	nn0red 12614	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝐻) ∈ ℝ)
28	27	lem1d 12228	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘𝐻))
29	6, 7	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
30		ffn 6747	. . . . . . . . . . . . . . 15 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 Fn (0..^(♯‘𝐻)))
31		hashfn 14424	. . . . . . . . . . . . . . 15 ⊢ (𝑆 Fn (0..^(♯‘𝐻)) → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
32	29, 30, 31	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
33		hashfzo0 14479	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐻) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
34	11, 25, 33	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
35	21, 32, 34	3eqtrrd 2785	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐻 ∘ 𝑆)))
36	28, 35	breqtrd 5192	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆)))
37		elfz2nn0 13675	. . . . . . . . . . . 12 ⊢ (((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))) ↔ (((♯‘𝐻) − 1) ∈ ℕ₀ ∧ (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀ ∧ ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆))))
38	19, 24, 36, 37	syl3anbrc 1343	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))))
39		pfxfn 14729	. . . . . . . . . . 11 ⊢ (((𝐻 ∘ 𝑆) ∈ Word 𝑃 ∧ ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆)))) → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
40	14, 38, 39	syl2anc 583	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
41	40	fndmd 6684	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (0..^((♯‘𝐻) − 1)))
42		eqid 2740	. . . . . . . . . . . 12 ⊢ (Base‘𝑅) = (Base‘𝑅)
43		1arithidom.t	. . . . . . . . . . . 12 ⊢ · = (._r‘𝑅)
44		1arithidom.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ IDomn)
45	44	idomringd 20750	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 ∈ Ring)
46	45	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ Ring)
47		1arithidom.u	. . . . . . . . . . . . . 14 ⊢ 𝑈 = (Unit‘𝑅)
48	42, 47	unitcl 20401	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑈 → 𝑥 ∈ (Base‘𝑅))
49	48	ad2antrl 727	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑥 ∈ (Base‘𝑅))
50		1arithidom.i	. . . . . . . . . . . . 13 ⊢ 𝑃 = (RPrime‘𝑅)
51	44	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ IDomn)
52		simprr 772	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ 𝑃)
53	42, 50, 51, 52	rprmcl 33511	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ (Base‘𝑅))
54	42, 43, 46, 49, 53	ringcld 20286	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → (𝑥 · 𝑦) ∈ (Base‘𝑅))
55		1arithidomlem.13	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))))
56		elmapi 8907	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
57	55, 56	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
58		eqidd 2741	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐹) = (♯‘𝐹))
59	58, 1	wrdfd 32900	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:(0..^(♯‘𝐹))⟶𝑃)
60		1arithidomlem.14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)))
61		f1of 6862	. . . . . . . . . . . . 13 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
62	60, 61	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
63	59, 62	fcod 6773	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃)
64		ovexd 7483	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ∈ V)
65		inidm 4248	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ∩ (0..^(♯‘𝐹))) = (0..^(♯‘𝐹))
66	54, 57, 63, 64, 64, 65	off 7732	. . . . . . . . . 10 ⊢ (𝜑 → (𝐷 ∘_f · (𝐹 ∘ 𝐶)):(0..^(♯‘𝐹))⟶(Base‘𝑅))
67	66	fdmd 6757	. . . . . . . . 9 ⊢ (𝜑 → dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)) = (0..^(♯‘𝐹)))
68	5, 41, 67	3eqtr3d 2788	. . . . . . . 8 ⊢ (𝜑 → (0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)))
69		lencl 14581	. . . . . . . . . 10 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘𝐹) ∈ ℕ₀)
70	1, 69	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ ℕ₀)
71	19, 70	fzo0opth 32810	. . . . . . . 8 ⊢ (𝜑 → ((0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)) ↔ ((♯‘𝐻) − 1) = (♯‘𝐹)))
72	68, 71	mpbid 232	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐻) − 1) = (♯‘𝐹))
73	72	oveq1d 7463	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = ((♯‘𝐹) + 1))
74	15, 17	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ)
75	74	nncnd 12309	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) ∈ ℂ)
76		npcan1 11715	. . . . . . 7 ⊢ ((♯‘𝐻) ∈ ℂ → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
77	75, 76	syl 17	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
78	73, 77	eqtr3d 2782	. . . . 5 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘𝐻))
79	3, 78	eqtrd 2780	. . . 4 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = (♯‘𝐻))
80	79	oveq2d 7464	. . 3 ⊢ (𝜑 → (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)))
81		eqid 2740	. . . . . 6 ⊢ (♯‘𝐶) = (♯‘𝐶)
82		eqid 2740	. . . . . 6 ⊢ (0..^((♯‘𝐶) + 1)) = (0..^((♯‘𝐶) + 1))
83		f1ofn 6863	. . . . . . . . . 10 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶 Fn (0..^(♯‘𝐹)))
84		hashfn 14424	. . . . . . . . . 10 ⊢ (𝐶 Fn (0..^(♯‘𝐹)) → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
85	60, 83, 84	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
86		hashfzo0 14479	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
87	70, 86	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
88	85, 87	eqtrd 2780	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐶) = (♯‘𝐹))
89	88	oveq2d 7464	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘𝐶)) = (0..^(♯‘𝐹)))
90		f1oeq23 6853	. . . . . . . 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 837	. . . . . 6 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐶))–1-1-onto→(0..^(♯‘𝐶)))
93	81, 82, 92	ccatws1f1o 32918	. . . . 5 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩):(0..^((♯‘𝐶) + 1))–1-1-onto→(0..^((♯‘𝐶) + 1)))
94	88	s1eqd 14649	. . . . . . 7 ⊢ (𝜑 → ⟨“(♯‘𝐶)”⟩ = ⟨“(♯‘𝐹)”⟩)
95	94	oveq2d 7464	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩) = (𝐶 ++ ⟨“(♯‘𝐹)”⟩))
96	88	oveq1d 7463	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐶) + 1) = ((♯‘𝐹) + 1))
97	96, 78	eqtrd 2780	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐶) + 1) = (♯‘𝐻))
98	97	oveq2d 7464	. . . . . 6 ⊢ (𝜑 → (0..^((♯‘𝐶) + 1)) = (0..^(♯‘𝐻)))
99	95, 98, 98	f1oeq123d 6856	. . . . 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 6874	. . . . 5 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
102	6, 101	syl 17	. . . 4 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
103		f1oco 6885	. . . 4 ⊢ (((𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))) → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
104	100, 102, 103	syl2anc 583	. . 3 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
105		f1oeq23 6853	. . . 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 837	. 2 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))))
108		f1ofo 6869	. . . 4 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
109	6, 108	syl 17	. . 3 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
110	12	ffnd 6748	. . 3 ⊢ (𝜑 → 𝐻 Fn (0..^(♯‘𝐻)))
111		iswrdi 14566	. . . . . . . . . . 11 ⊢ (𝐷:(0..^(♯‘𝐹))⟶𝑈 → 𝐷 ∈ Word 𝑈)
112	57, 111	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ Word 𝑈)
113		ccatws1len 14668	. . . . . . . . . 10 ⊢ (𝐷 ∈ Word 𝑈 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
114	112, 113	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
115		elmapfn 8923	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷 Fn (0..^(♯‘𝐹)))
116		hashfn 14424	. . . . . . . . . . . 12 ⊢ (𝐷 Fn (0..^(♯‘𝐹)) → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
117	55, 115, 116	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
118	117, 87	eqtrd 2780	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐷) = (♯‘𝐹))
119	118	oveq1d 7463	. . . . . . . . 9 ⊢ (𝜑 → ((♯‘𝐷) + 1) = ((♯‘𝐹) + 1))
120	114, 119, 78	3eqtrd 2784	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘𝐻))
121	120	oveq2d 7464	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩))) = (0..^(♯‘𝐻)))
122		eqidd 2741	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘(𝐷 ++ ⟨“𝑇”⟩)))
123		1arithidomlem.7	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ 𝑈)
124		ccatws1cl 14664	. . . . . . . . 9 ⊢ ((𝐷 ∈ Word 𝑈 ∧ 𝑇 ∈ 𝑈) → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
125	112, 123, 124	syl2anc 583	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
126	122, 125	wrdfd 32900	. . . . . . 7 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩)))⟶𝑈)
127	121, 126	feq2dd 32642	. . . . . 6 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘𝐻))⟶𝑈)
128	127	ffnd 6748	. . . . 5 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)))
129		f1of 6862	. . . . . 6 ⊢ (^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
130	6, 101, 129	3syl 18	. . . . 5 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
131		fnfco 6786	. . . . 5 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
132	128, 130, 131	syl2anc 583	. . . 4 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
133	78	oveq2d 7464	. . . . . . 7 ⊢ (𝜑 → (0..^((♯‘𝐹) + 1)) = (0..^(♯‘𝐻)))
134	3	eqcomd 2746	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘(𝐹 ++ ⟨“𝑄”⟩)))
135		1arithidomlem.1	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ 𝑃)
136		ccatws1cl 14664	. . . . . . . . 9 ⊢ ((𝐹 ∈ Word 𝑃 ∧ 𝑄 ∈ 𝑃) → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
137	1, 135, 136	syl2anc 583	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
138	134, 137	wrdfd 32900	. . . . . . 7 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^((♯‘𝐹) + 1))⟶𝑃)
139	133, 138	feq2dd 32642	. . . . . 6 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^(♯‘𝐻))⟶𝑃)
140	139	ffnd 6748	. . . . 5 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)))
141		fzossfzop1 13794	. . . . . . . . . . . 12 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
142	70, 141	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
143		sswrd 14570	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)) → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
144	142, 143	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
145		iswrdi 14566	. . . . . . . . . . 11 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)) → 𝐶 ∈ Word (0..^(♯‘𝐹)))
146	62, 145	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐹)))
147	144, 146	sseldd 4009	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ Word (0..^((♯‘𝐹) + 1)))
148		ccatws1len 14668	. . . . . . . . 9 ⊢ (𝐶 ∈ Word (0..^((♯‘𝐹) + 1)) → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
149	147, 148	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
150	149, 96, 78	3eqtrrd 2785	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)))
151	142, 133	sseqtrd 4049	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^(♯‘𝐻)))
152	62, 151	fssd 6764	. . . . . . . . 9 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)))
153		iswrdi 14566	. . . . . . . . 9 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)) → 𝐶 ∈ Word (0..^(♯‘𝐻)))
154	152, 153	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐻)))
155		fzonn0p1 13793	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
156	70, 155	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
157	156, 133	eleqtrd 2846	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^(♯‘𝐻)))
158		ccatws1cl 14664	. . . . . . . 8 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐻)) ∧ (♯‘𝐹) ∈ (0..^(♯‘𝐻))) → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
159	154, 157, 158	syl2anc 583	. . . . . . 7 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
160	150, 159	wrdfd 32900	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
161	160, 130	fcod 6773	. . . . 5 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
162		fnfco 6786	. . . . 5 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)) ∧ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
163	140, 161, 162	syl2anc 583	. . . 4 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
164		ovexd 7483	. . . 4 ⊢ (𝜑 → (0..^(♯‘𝐻)) ∈ V)
165		inidm 4248	. . . 4 ⊢ ((0..^(♯‘𝐻)) ∩ (0..^(♯‘𝐻))) = (0..^(♯‘𝐻))
166	132, 163, 164, 164, 165	offn 7727	. . 3 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻)))
167		1arithidomlem.10	. . . 4 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩))
168		eqid 2740	. . . . . . . . 9 ⊢ (♯‘𝐹) = (♯‘𝐹)
169	168, 1, 135, 60	ccatws1f1olast 32919	. . . . . . . 8 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩))
170	169	oveq2d 7464	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)))
171	123	s1cld 14651	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑇”⟩ ∈ Word 𝑈)
172		iswrdi 14566	. . . . . . . . 9 ⊢ ((𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
173	63, 172	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
174	135	s1cld 14651	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑄”⟩ ∈ Word 𝑃)
175		lenco 14881	. . . . . . . . . 10 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐹)) ∧ 𝐹:(0..^(♯‘𝐹))⟶𝑃) → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
176	146, 59, 175	syl2anc 583	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
177	85, 176, 117	3eqtr4rd 2791	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(𝐹 ∘ 𝐶)))
178		s1len 14654	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑇”⟩) = 1
179		s1len 14654	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑄”⟩) = 1
180	178, 179	eqtr4i 2771	. . . . . . . . 9 ⊢ (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩)
181	180	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩))
182	112, 171, 173, 174, 177, 181	ofccat 15018	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
183	170, 182	eqtrd 2780	. . . . . 6 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
184	139, 160	fcod 6773	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)):(0..^(♯‘𝐻))⟶𝑃)
185	184	ffnd 6748	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) Fn (0..^(♯‘𝐻)))
186	128, 185, 130, 164, 164, 164, 165	ofco 7738	. . . . . . . . 9 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)))
187	186	coeq1d 5886	. . . . . . . 8 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
188		coass 6296	. . . . . . . 8 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆))
189	187, 188	eqtr3di 2795	. . . . . . 7 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)))
190		f1of1 6861	. . . . . . . . . 10 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
191	6, 190	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
192		f1cocnv1 6892	. . . . . . . . 9 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)) → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
193	191, 192	syl 17	. . . . . . . 8 ⊢ (𝜑 → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
194	193	coeq2d 5887	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))))
195	54, 127, 184, 164, 164, 165	off 7732	. . . . . . . 8 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅))
196		fcoi1 6795	. . . . . . . 8 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅) → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
197	195, 196	syl 17	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
198	189, 194, 197	3eqtrd 2784	. . . . . 6 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
199		ofs1 15019	. . . . . . . . 9 ⊢ ((𝑇 ∈ 𝑈 ∧ 𝑄 ∈ 𝑃) → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
200	123, 135, 199	syl2anc 583	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
201		1arithidomlem.8	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 · 𝑄) = (𝐻‘𝐾))
202	201	s1eqd 14649	. . . . . . . 8 ⊢ (𝜑 → ⟨“(𝑇 · 𝑄)”⟩ = ⟨“(𝐻‘𝐾)”⟩)
203	200, 202	eqtr2d 2781	. . . . . . 7 ⊢ (𝜑 → ⟨“(𝐻‘𝐾)”⟩ = (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩))
204	4, 203	oveq12d 7466	. . . . . 6 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
205	183, 198, 204	3eqtr4rd 2791	. . . . 5 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
206		coass 6296	. . . . . . 7 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆) = ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))
207	206	oveq2i 7459	. . . . . 6 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))
208	207	coeq1i 5884	. . . . 5 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆)
209	205, 208	eqtrdi 2796	. . . 4 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
210	167, 209	eqtrd 2780	. . 3 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
211		cocan2 7328	. . . 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 1373	. 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 1537 ∃wex 1777 ∈ wcel 2108 ∀wral 3067 ∃wrex 3076 Vcvv 3488 ⊆ wss 3976 class class class wbr 5166 I cid 5592 ^◡ccnv 5699 dom cdm 5700 ↾ cres 5702 ∘ ccom 5704 Fn wfn 6568 ⟶wf 6569 –1-1→wf1 6570 –onto→wfo 6571 –1-1-onto→wf1o 6572 ‘cfv 6573 (class class class)co 7448 ∘_f cof 7712 ↑_m cmap 8884 ℂcc 11182 0cc0 11184 1c1 11185 + caddc 11187 < clt 11324 ≤ cle 11325 − cmin 11520 ℕcn 12293 ℕ₀cn0 12553 ...cfz 13567 ..^cfzo 13711 ♯chash 14379 Word cword 14562 ++ cconcat 14618 ⟨“cs1 14643 prefix cpfx 14718 Basecbs 17258 ._rcmulr 17312 Σ_g cgsu 17500 mulGrpcmgp 20161 Ringcrg 20260 ∥_rcdsr 20380 Unitcui 20381 RPrimecrpm 20458 IDomncidom 20715

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1793 ax-4 1807 ax-5 1909 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2158 ax-12 2178 ax-ext 2711 ax-rep 5303 ax-sep 5317 ax-nul 5324 ax-pow 5383 ax-pr 5447 ax-un 7770 ax-cnex 11240 ax-resscn 11241 ax-1cn 11242 ax-icn 11243 ax-addcl 11244 ax-addrcl 11245 ax-mulcl 11246 ax-mulrcl 11247 ax-mulcom 11248 ax-addass 11249 ax-mulass 11250 ax-distr 11251 ax-i2m1 11252 ax-1ne0 11253 ax-1rid 11254 ax-rnegex 11255 ax-rrecex 11256 ax-cnre 11257 ax-pre-lttri 11258 ax-pre-lttrn 11259 ax-pre-ltadd 11260 ax-pre-mulgt0 11261

This theorem depends on definitions: df-bi 207 df-an 396 df-or 847 df-3or 1088 df-3an 1089 df-tru 1540 df-fal 1550 df-ex 1778 df-nf 1782 df-sb 2065 df-mo 2543 df-eu 2572 df-clab 2718 df-cleq 2732 df-clel 2819 df-nfc 2895 df-ne 2947 df-nel 3053 df-ral 3068 df-rex 3077 df-reu 3389 df-rab 3444 df-v 3490 df-sbc 3805 df-csb 3922 df-dif 3979 df-un 3981 df-in 3983 df-ss 3993 df-pss 3996 df-nul 4353 df-if 4549 df-pw 4624 df-sn 4649 df-pr 4651 df-op 4655 df-uni 4932 df-int 4971 df-iun 5017 df-br 5167 df-opab 5229 df-mpt 5250 df-tr 5284 df-id 5593 df-eprel 5599 df-po 5607 df-so 5608 df-fr 5652 df-we 5654 df-xp 5706 df-rel 5707 df-cnv 5708 df-co 5709 df-dm 5710 df-rn 5711 df-res 5712 df-ima 5713 df-pred 6332 df-ord 6398 df-on 6399 df-lim 6400 df-suc 6401 df-iota 6525 df-fun 6575 df-fn 6576 df-f 6577 df-f1 6578 df-fo 6579 df-f1o 6580 df-fv 6581 df-riota 7404 df-ov 7451 df-oprab 7452 df-mpo 7453 df-of 7714 df-om 7904 df-1st 8030 df-2nd 8031 df-frecs 8322 df-wrecs 8353 df-recs 8427 df-rdg 8466 df-1o 8522 df-er 8763 df-map 8886 df-en 9004 df-dom 9005 df-sdom 9006 df-fin 9007 df-card 10008 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11522 df-neg 11523 df-nn 12294 df-2 12356 df-n0 12554 df-z 12640 df-uz 12904 df-fz 13568 df-fzo 13712 df-hash 14380 df-word 14563 df-concat 14619 df-s1 14644 df-substr 14689 df-pfx 14719 df-sets 17211 df-slot 17229 df-ndx 17241 df-base 17259 df-plusg 17324 df-mgm 18678 df-sgrp 18757 df-mnd 18773 df-mgp 20162 df-ring 20262 df-cring 20263 df-dvdsr 20383 df-unit 20384 df-rprm 20459 df-idom 20718

This theorem is referenced by: 1arithidom 33530

W3C validator