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 33551

Description: Lemma for 1arithidom 33552: 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 14638	. . . . . 6 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
3	1, 2	syl 17	. . . . 5 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
4		1arithidomlem.15	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
5	4	dmeqd 5885	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
6		1arithidomlem.9	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
7		f1of 6818	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
8		iswrdi 14535	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 ∈ Word (0..^(♯‘𝐻)))
9	6, 7, 8	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑆 ∈ Word (0..^(♯‘𝐻)))
10		eqidd 2736	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘𝐻))
11		1arithidomlem.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐻 ∈ Word 𝑃)
12	10, 11	wrdfd 14537	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻:(0..^(♯‘𝐻))⟶𝑃)
13		wrdco 14850	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
14	9, 12, 13	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
15		1arithidomlem.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ (0..^(♯‘𝐻)))
16		elfzo0 13717	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) ↔ (𝐾 ∈ ℕ₀ ∧ (♯‘𝐻) ∈ ℕ ∧ 𝐾 < (♯‘𝐻)))
17	16	simp2bi 1146	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) → (♯‘𝐻) ∈ ℕ)
18		nnm1nn0 12542	. . . . . . . . . . . . 13 ⊢ ((♯‘𝐻) ∈ ℕ → ((♯‘𝐻) − 1) ∈ ℕ₀)
19	15, 17, 18	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ ℕ₀)
20		lenco 14851	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
21	9, 12, 20	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
22		lencl 14551	. . . . . . . . . . . . . 14 ⊢ (𝑆 ∈ Word (0..^(♯‘𝐻)) → (♯‘𝑆) ∈ ℕ₀)
23	9, 22	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝑆) ∈ ℕ₀)
24	21, 23	eqeltrd 2834	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀)
25		lencl 14551	. . . . . . . . . . . . . . . 16 ⊢ (𝐻 ∈ Word 𝑃 → (♯‘𝐻) ∈ ℕ₀)
26	11, 25	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ₀)
27	26	nn0red 12563	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝐻) ∈ ℝ)
28	27	lem1d 12175	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘𝐻))
29	6, 7	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
30		ffn 6706	. . . . . . . . . . . . . . 15 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 Fn (0..^(♯‘𝐻)))
31		hashfn 14393	. . . . . . . . . . . . . . 15 ⊢ (𝑆 Fn (0..^(♯‘𝐻)) → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
32	29, 30, 31	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
33		hashfzo0 14448	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐻) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
34	11, 25, 33	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
35	21, 32, 34	3eqtrrd 2775	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐻 ∘ 𝑆)))
36	28, 35	breqtrd 5145	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆)))
37		elfz2nn0 13635	. . . . . . . . . . . 12 ⊢ (((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))) ↔ (((♯‘𝐻) − 1) ∈ ℕ₀ ∧ (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀ ∧ ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆))))
38	19, 24, 36, 37	syl3anbrc 1344	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))))
39		pfxfn 14699	. . . . . . . . . . 11 ⊢ (((𝐻 ∘ 𝑆) ∈ Word 𝑃 ∧ ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆)))) → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
40	14, 38, 39	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
41	40	fndmd 6643	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (0..^((♯‘𝐻) − 1)))
42		eqid 2735	. . . . . . . . . . . 12 ⊢ (Base‘𝑅) = (Base‘𝑅)
43		1arithidom.t	. . . . . . . . . . . 12 ⊢ · = (._r‘𝑅)
44		1arithidom.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ IDomn)
45	44	idomringd 20688	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 ∈ Ring)
46	45	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ Ring)
47		1arithidom.u	. . . . . . . . . . . . . 14 ⊢ 𝑈 = (Unit‘𝑅)
48	42, 47	unitcl 20335	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑈 → 𝑥 ∈ (Base‘𝑅))
49	48	ad2antrl 728	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑥 ∈ (Base‘𝑅))
50		1arithidom.i	. . . . . . . . . . . . 13 ⊢ 𝑃 = (RPrime‘𝑅)
51	44	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ IDomn)
52		simprr 772	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ 𝑃)
53	42, 50, 51, 52	rprmcl 33533	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ (Base‘𝑅))
54	42, 43, 46, 49, 53	ringcld 20220	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → (𝑥 · 𝑦) ∈ (Base‘𝑅))
55		1arithidomlem.13	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))))
56		elmapi 8863	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
57	55, 56	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
58		eqidd 2736	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐹) = (♯‘𝐹))
59	58, 1	wrdfd 14537	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:(0..^(♯‘𝐹))⟶𝑃)
60		1arithidomlem.14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)))
61		f1of 6818	. . . . . . . . . . . . 13 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
62	60, 61	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
63	59, 62	fcod 6731	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃)
64		ovexd 7440	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ∈ V)
65		inidm 4202	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ∩ (0..^(♯‘𝐹))) = (0..^(♯‘𝐹))
66	54, 57, 63, 64, 64, 65	off 7689	. . . . . . . . . 10 ⊢ (𝜑 → (𝐷 ∘_f · (𝐹 ∘ 𝐶)):(0..^(♯‘𝐹))⟶(Base‘𝑅))
67	66	fdmd 6716	. . . . . . . . 9 ⊢ (𝜑 → dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)) = (0..^(♯‘𝐹)))
68	5, 41, 67	3eqtr3d 2778	. . . . . . . 8 ⊢ (𝜑 → (0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)))
69		lencl 14551	. . . . . . . . . 10 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘𝐹) ∈ ℕ₀)
70	1, 69	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ ℕ₀)
71	19, 70	fzo0opth 32782	. . . . . . . 8 ⊢ (𝜑 → ((0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)) ↔ ((♯‘𝐻) − 1) = (♯‘𝐹)))
72	68, 71	mpbid 232	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐻) − 1) = (♯‘𝐹))
73	72	oveq1d 7420	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = ((♯‘𝐹) + 1))
74	15, 17	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ)
75	74	nncnd 12256	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) ∈ ℂ)
76		npcan1 11662	. . . . . . 7 ⊢ ((♯‘𝐻) ∈ ℂ → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
77	75, 76	syl 17	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
78	73, 77	eqtr3d 2772	. . . . 5 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘𝐻))
79	3, 78	eqtrd 2770	. . . 4 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = (♯‘𝐻))
80	79	oveq2d 7421	. . 3 ⊢ (𝜑 → (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)))
81		eqid 2735	. . . . . 6 ⊢ (♯‘𝐶) = (♯‘𝐶)
82		eqid 2735	. . . . . 6 ⊢ (0..^((♯‘𝐶) + 1)) = (0..^((♯‘𝐶) + 1))
83		f1ofn 6819	. . . . . . . . . 10 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶 Fn (0..^(♯‘𝐹)))
84		hashfn 14393	. . . . . . . . . 10 ⊢ (𝐶 Fn (0..^(♯‘𝐹)) → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
85	60, 83, 84	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
86		hashfzo0 14448	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
87	70, 86	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
88	85, 87	eqtrd 2770	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐶) = (♯‘𝐹))
89	88	oveq2d 7421	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘𝐶)) = (0..^(♯‘𝐹)))
90		f1oeq23 6809	. . . . . . . 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 32927	. . . . 5 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩):(0..^((♯‘𝐶) + 1))–1-1-onto→(0..^((♯‘𝐶) + 1)))
94	88	s1eqd 14619	. . . . . . 7 ⊢ (𝜑 → ⟨“(♯‘𝐶)”⟩ = ⟨“(♯‘𝐹)”⟩)
95	94	oveq2d 7421	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩) = (𝐶 ++ ⟨“(♯‘𝐹)”⟩))
96	88	oveq1d 7420	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐶) + 1) = ((♯‘𝐹) + 1))
97	96, 78	eqtrd 2770	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐶) + 1) = (♯‘𝐻))
98	97	oveq2d 7421	. . . . . 6 ⊢ (𝜑 → (0..^((♯‘𝐶) + 1)) = (0..^(♯‘𝐻)))
99	95, 98, 98	f1oeq123d 6812	. . . . 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 6830	. . . . 5 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
102	6, 101	syl 17	. . . 4 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
103		f1oco 6841	. . . 4 ⊢ (((𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))) → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
104	100, 102, 103	syl2anc 584	. . 3 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
105		f1oeq23 6809	. . . 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 6825	. . . 4 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
109	6, 108	syl 17	. . 3 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
110	12	ffnd 6707	. . 3 ⊢ (𝜑 → 𝐻 Fn (0..^(♯‘𝐻)))
111		iswrdi 14535	. . . . . . . . . . 11 ⊢ (𝐷:(0..^(♯‘𝐹))⟶𝑈 → 𝐷 ∈ Word 𝑈)
112	57, 111	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ Word 𝑈)
113		ccatws1len 14638	. . . . . . . . . 10 ⊢ (𝐷 ∈ Word 𝑈 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
114	112, 113	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
115		elmapfn 8879	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷 Fn (0..^(♯‘𝐹)))
116		hashfn 14393	. . . . . . . . . . . 12 ⊢ (𝐷 Fn (0..^(♯‘𝐹)) → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
117	55, 115, 116	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
118	117, 87	eqtrd 2770	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐷) = (♯‘𝐹))
119	118	oveq1d 7420	. . . . . . . . 9 ⊢ (𝜑 → ((♯‘𝐷) + 1) = ((♯‘𝐹) + 1))
120	114, 119, 78	3eqtrd 2774	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘𝐻))
121	120	oveq2d 7421	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩))) = (0..^(♯‘𝐻)))
122		eqidd 2736	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘(𝐷 ++ ⟨“𝑇”⟩)))
123		1arithidomlem.7	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ 𝑈)
124		ccatws1cl 14634	. . . . . . . . 9 ⊢ ((𝐷 ∈ Word 𝑈 ∧ 𝑇 ∈ 𝑈) → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
125	112, 123, 124	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
126	122, 125	wrdfd 14537	. . . . . . 7 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩)))⟶𝑈)
127	121, 126	feq2dd 32600	. . . . . 6 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘𝐻))⟶𝑈)
128	127	ffnd 6707	. . . . 5 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)))
129		f1of 6818	. . . . . 6 ⊢ (^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
130	6, 101, 129	3syl 18	. . . . 5 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
131		fnfco 6743	. . . . 5 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
132	128, 130, 131	syl2anc 584	. . . 4 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
133	78	oveq2d 7421	. . . . . . 7 ⊢ (𝜑 → (0..^((♯‘𝐹) + 1)) = (0..^(♯‘𝐻)))
134	3	eqcomd 2741	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘(𝐹 ++ ⟨“𝑄”⟩)))
135		1arithidomlem.1	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ 𝑃)
136		ccatws1cl 14634	. . . . . . . . 9 ⊢ ((𝐹 ∈ Word 𝑃 ∧ 𝑄 ∈ 𝑃) → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
137	1, 135, 136	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
138	134, 137	wrdfd 14537	. . . . . . 7 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^((♯‘𝐹) + 1))⟶𝑃)
139	133, 138	feq2dd 32600	. . . . . 6 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^(♯‘𝐻))⟶𝑃)
140	139	ffnd 6707	. . . . 5 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)))
141		fzossfzop1 13759	. . . . . . . . . . . 12 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
142	70, 141	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
143		sswrd 14540	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)) → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
144	142, 143	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
145		iswrdi 14535	. . . . . . . . . . 11 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)) → 𝐶 ∈ Word (0..^(♯‘𝐹)))
146	62, 145	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐹)))
147	144, 146	sseldd 3959	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ Word (0..^((♯‘𝐹) + 1)))
148		ccatws1len 14638	. . . . . . . . 9 ⊢ (𝐶 ∈ Word (0..^((♯‘𝐹) + 1)) → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
149	147, 148	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
150	149, 96, 78	3eqtrrd 2775	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)))
151	142, 133	sseqtrd 3995	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^(♯‘𝐻)))
152	62, 151	fssd 6723	. . . . . . . . 9 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)))
153		iswrdi 14535	. . . . . . . . 9 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)) → 𝐶 ∈ Word (0..^(♯‘𝐻)))
154	152, 153	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐻)))
155		fzonn0p1 13758	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
156	70, 155	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
157	156, 133	eleqtrd 2836	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^(♯‘𝐻)))
158		ccatws1cl 14634	. . . . . . . 8 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐻)) ∧ (♯‘𝐹) ∈ (0..^(♯‘𝐻))) → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
159	154, 157, 158	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
160	150, 159	wrdfd 14537	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
161	160, 130	fcod 6731	. . . . 5 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
162		fnfco 6743	. . . . 5 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)) ∧ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
163	140, 161, 162	syl2anc 584	. . . 4 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
164		ovexd 7440	. . . 4 ⊢ (𝜑 → (0..^(♯‘𝐻)) ∈ V)
165		inidm 4202	. . . 4 ⊢ ((0..^(♯‘𝐻)) ∩ (0..^(♯‘𝐻))) = (0..^(♯‘𝐻))
166	132, 163, 164, 164, 165	offn 7684	. . 3 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻)))
167		1arithidomlem.10	. . . 4 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩))
168		eqid 2735	. . . . . . . . 9 ⊢ (♯‘𝐹) = (♯‘𝐹)
169	168, 1, 135, 60	ccatws1f1olast 32928	. . . . . . . 8 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩))
170	169	oveq2d 7421	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)))
171	123	s1cld 14621	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑇”⟩ ∈ Word 𝑈)
172		iswrdi 14535	. . . . . . . . 9 ⊢ ((𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
173	63, 172	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
174	135	s1cld 14621	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑄”⟩ ∈ Word 𝑃)
175		lenco 14851	. . . . . . . . . 10 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐹)) ∧ 𝐹:(0..^(♯‘𝐹))⟶𝑃) → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
176	146, 59, 175	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
177	85, 176, 117	3eqtr4rd 2781	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(𝐹 ∘ 𝐶)))
178		s1len 14624	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑇”⟩) = 1
179		s1len 14624	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑄”⟩) = 1
180	178, 179	eqtr4i 2761	. . . . . . . . 9 ⊢ (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩)
181	180	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩))
182	112, 171, 173, 174, 177, 181	ofccat 14988	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
183	170, 182	eqtrd 2770	. . . . . 6 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
184	139, 160	fcod 6731	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)):(0..^(♯‘𝐻))⟶𝑃)
185	184	ffnd 6707	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) Fn (0..^(♯‘𝐻)))
186	128, 185, 130, 164, 164, 164, 165	ofco 7696	. . . . . . . . 9 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)))
187	186	coeq1d 5841	. . . . . . . 8 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
188		coass 6254	. . . . . . . 8 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆))
189	187, 188	eqtr3di 2785	. . . . . . 7 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)))
190		f1of1 6817	. . . . . . . . . 10 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
191	6, 190	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
192		f1cocnv1 6848	. . . . . . . . 9 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)) → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
193	191, 192	syl 17	. . . . . . . 8 ⊢ (𝜑 → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
194	193	coeq2d 5842	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))))
195	54, 127, 184, 164, 164, 165	off 7689	. . . . . . . 8 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅))
196		fcoi1 6752	. . . . . . . 8 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅) → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
197	195, 196	syl 17	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
198	189, 194, 197	3eqtrd 2774	. . . . . 6 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
199		ofs1 14989	. . . . . . . . 9 ⊢ ((𝑇 ∈ 𝑈 ∧ 𝑄 ∈ 𝑃) → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
200	123, 135, 199	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
201		1arithidomlem.8	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 · 𝑄) = (𝐻‘𝐾))
202	201	s1eqd 14619	. . . . . . . 8 ⊢ (𝜑 → ⟨“(𝑇 · 𝑄)”⟩ = ⟨“(𝐻‘𝐾)”⟩)
203	200, 202	eqtr2d 2771	. . . . . . 7 ⊢ (𝜑 → ⟨“(𝐻‘𝐾)”⟩ = (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩))
204	4, 203	oveq12d 7423	. . . . . 6 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
205	183, 198, 204	3eqtr4rd 2781	. . . . 5 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
206		coass 6254	. . . . . . 7 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆) = ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))
207	206	oveq2i 7416	. . . . . 6 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))
208	207	coeq1i 5839	. . . . 5 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆)
209	205, 208	eqtrdi 2786	. . . 4 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
210	167, 209	eqtrd 2770	. . 3 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
211		cocan2 7285	. . . 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 1375	. 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 1086 = wceq 1540 ∃wex 1779 ∈ wcel 2108 ∀wral 3051 ∃wrex 3060 Vcvv 3459 ⊆ wss 3926 class class class wbr 5119 I cid 5547 ^◡ccnv 5653 dom cdm 5654 ↾ cres 5656 ∘ ccom 5658 Fn wfn 6526 ⟶wf 6527 –1-1→wf1 6528 –onto→wfo 6529 –1-1-onto→wf1o 6530 ‘cfv 6531 (class class class)co 7405 ∘_f cof 7669 ↑_m cmap 8840 ℂcc 11127 0cc0 11129 1c1 11130 + caddc 11132 < clt 11269 ≤ cle 11270 − cmin 11466 ℕcn 12240 ℕ₀cn0 12501 ...cfz 13524 ..^cfzo 13671 ♯chash 14348 Word cword 14531 ++ cconcat 14588 ⟨“cs1 14613 prefix cpfx 14688 Basecbs 17228 ._rcmulr 17272 Σ_g cgsu 17454 mulGrpcmgp 20100 Ringcrg 20193 ∥_rcdsr 20314 Unitcui 20315 RPrimecrpm 20392 IDomncidom 20653

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2707 ax-rep 5249 ax-sep 5266 ax-nul 5276 ax-pow 5335 ax-pr 5402 ax-un 7729 ax-cnex 11185 ax-resscn 11186 ax-1cn 11187 ax-icn 11188 ax-addcl 11189 ax-addrcl 11190 ax-mulcl 11191 ax-mulrcl 11192 ax-mulcom 11193 ax-addass 11194 ax-mulass 11195 ax-distr 11196 ax-i2m1 11197 ax-1ne0 11198 ax-1rid 11199 ax-rnegex 11200 ax-rrecex 11201 ax-cnre 11202 ax-pre-lttri 11203 ax-pre-lttrn 11204 ax-pre-ltadd 11205 ax-pre-mulgt0 11206

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2539 df-eu 2568 df-clab 2714 df-cleq 2727 df-clel 2809 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-reu 3360 df-rab 3416 df-v 3461 df-sbc 3766 df-csb 3875 df-dif 3929 df-un 3931 df-in 3933 df-ss 3943 df-pss 3946 df-nul 4309 df-if 4501 df-pw 4577 df-sn 4602 df-pr 4604 df-op 4608 df-uni 4884 df-int 4923 df-iun 4969 df-br 5120 df-opab 5182 df-mpt 5202 df-tr 5230 df-id 5548 df-eprel 5553 df-po 5561 df-so 5562 df-fr 5606 df-we 5608 df-xp 5660 df-rel 5661 df-cnv 5662 df-co 5663 df-dm 5664 df-rn 5665 df-res 5666 df-ima 5667 df-pred 6290 df-ord 6355 df-on 6356 df-lim 6357 df-suc 6358 df-iota 6484 df-fun 6533 df-fn 6534 df-f 6535 df-f1 6536 df-fo 6537 df-f1o 6538 df-fv 6539 df-riota 7362 df-ov 7408 df-oprab 7409 df-mpo 7410 df-of 7671 df-om 7862 df-1st 7988 df-2nd 7989 df-frecs 8280 df-wrecs 8311 df-recs 8385 df-rdg 8424 df-1o 8480 df-er 8719 df-map 8842 df-en 8960 df-dom 8961 df-sdom 8962 df-fin 8963 df-card 9953 df-pnf 11271 df-mnf 11272 df-xr 11273 df-ltxr 11274 df-le 11275 df-sub 11468 df-neg 11469 df-nn 12241 df-2 12303 df-n0 12502 df-z 12589 df-uz 12853 df-fz 13525 df-fzo 13672 df-hash 14349 df-word 14532 df-concat 14589 df-s1 14614 df-substr 14659 df-pfx 14689 df-sets 17183 df-slot 17201 df-ndx 17213 df-base 17229 df-plusg 17284 df-mgm 18618 df-sgrp 18697 df-mnd 18713 df-mgp 20101 df-ring 20195 df-cring 20196 df-dvdsr 20317 df-unit 20318 df-rprm 20393 df-idom 20656

This theorem is referenced by: 1arithidom 33552

W3C validator