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 34114

Description: Lemma for 1arithidom 34115: 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 14772	. . . . . 6 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
3	1, 2	syl 18	. . . . 5 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = ((♯‘𝐹) + 1))
4		1arithidomlem.15	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
5	4	dmeqd 5886	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)))
6		1arithidomlem.9	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
7		f1of 6824	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
8		iswrdi 14665	. . . . . . . . . . . . 13 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 ∈ Word (0..^(♯‘𝐻)))
9	6, 7, 8	3syl 19	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑆 ∈ Word (0..^(♯‘𝐻)))
10		eqidd 2761	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘𝐻))
11		1arithidomlem.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐻 ∈ Word 𝑃)
12	10, 11	wrdfd 14667	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻:(0..^(♯‘𝐻))⟶𝑃)
13		wrdco 14986	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
14	9, 12, 13	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∘ 𝑆) ∈ Word 𝑃)
15		1arithidomlem.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ (0..^(♯‘𝐻)))
16		elfzo0 13838	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) ↔ (𝐾 ∈ ℕ₀ ∧ (♯‘𝐻) ∈ ℕ ∧ 𝐾 < (♯‘𝐻)))
17	16	simp2bi 1164	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ (0..^(♯‘𝐻)) → (♯‘𝐻) ∈ ℕ)
18		nnm1nn0 12650	. . . . . . . . . . . . 13 ⊢ ((♯‘𝐻) ∈ ℕ → ((♯‘𝐻) − 1) ∈ ℕ₀)
19	15, 17, 18	3syl 19	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ ℕ₀)
20		lenco 14987	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ Word (0..^(♯‘𝐻)) ∧ 𝐻:(0..^(♯‘𝐻))⟶𝑃) → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
21	9, 12, 20	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) = (♯‘𝑆))
22		lencl 14681	. . . . . . . . . . . . . 14 ⊢ (𝑆 ∈ Word (0..^(♯‘𝐻)) → (♯‘𝑆) ∈ ℕ₀)
23	9, 22	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝑆) ∈ ℕ₀)
24	21, 23	eqeltrd 2860	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀)
25		lencl 14681	. . . . . . . . . . . . . . . 16 ⊢ (𝐻 ∈ Word 𝑃 → (♯‘𝐻) ∈ ℕ₀)
26	11, 25	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ₀)
27	26	nn0red 12671	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝐻) ∈ ℝ)
28	27	lem1d 12253	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘𝐻))
29	6, 7	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
30		ffn 6709	. . . . . . . . . . . . . . 15 ⊢ (𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)) → 𝑆 Fn (0..^(♯‘𝐻)))
31		hashfn 14522	. . . . . . . . . . . . . . 15 ⊢ (𝑆 Fn (0..^(♯‘𝐻)) → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
32	29, 30, 31	3syl 19	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑆) = (♯‘(0..^(♯‘𝐻))))
33		hashfzo0 14578	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐻) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
34	11, 25, 33	3syl 19	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐻))) = (♯‘𝐻))
35	21, 32, 34	3eqtrrd 2800	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐻 ∘ 𝑆)))
36	28, 35	breqtrd 5130	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆)))
37		elfz2nn0 13755	. . . . . . . . . . . 12 ⊢ (((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))) ↔ (((♯‘𝐻) − 1) ∈ ℕ₀ ∧ (♯‘(𝐻 ∘ 𝑆)) ∈ ℕ₀ ∧ ((♯‘𝐻) − 1) ≤ (♯‘(𝐻 ∘ 𝑆))))
38	19, 24, 36, 37	syl3anbrc 1362	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆))))
39		pfxfn 14835	. . . . . . . . . . 11 ⊢ (((𝐻 ∘ 𝑆) ∈ Word 𝑃 ∧ ((♯‘𝐻) − 1) ∈ (0...(♯‘(𝐻 ∘ 𝑆)))) → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
40	14, 38, 39	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) Fn (0..^((♯‘𝐻) − 1)))
41	40	fndmd 6644	. . . . . . . . 9 ⊢ (𝜑 → dom ((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) = (0..^((♯‘𝐻) − 1)))
42		eqid 2760	. . . . . . . . . . . 12 ⊢ (Base‘𝑅) = (Base‘𝑅)
43		1arithidom.t	. . . . . . . . . . . 12 ⊢ · = (._r‘𝑅)
44		1arithidom.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ IDomn)
45	44	idomringd 20984	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 ∈ Ring)
46	45	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ Ring)
47		1arithidom.u	. . . . . . . . . . . . . 14 ⊢ 𝑈 = (Unit‘𝑅)
48	42, 47	unitcl 20610	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑈 → 𝑥 ∈ (Base‘𝑅))
49	48	ad2antrl 741	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑥 ∈ (Base‘𝑅))
50		1arithidom.i	. . . . . . . . . . . . 13 ⊢ 𝑃 = (RPrime‘𝑅)
51	44	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑅 ∈ IDomn)
52		simprr 785	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ 𝑃)
53	42, 50, 51, 52	rprmcl 34096	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → 𝑦 ∈ (Base‘𝑅))
54	42, 43, 46, 49, 53	ringcld 20489	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑃)) → (𝑥 · 𝑦) ∈ (Base‘𝑅))
55		1arithidomlem.13	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))))
56		elmapi 8872	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
57	55, 56	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷:(0..^(♯‘𝐹))⟶𝑈)
58		eqidd 2761	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐹) = (♯‘𝐹))
59	58, 1	wrdfd 14667	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:(0..^(♯‘𝐹))⟶𝑃)
60		1arithidomlem.14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)))
61		f1of 6824	. . . . . . . . . . . . 13 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
62	60, 61	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)))
63	59, 62	fcod 6735	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃)
64		ovexd 7455	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ∈ V)
65		inidm 4123	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ∩ (0..^(♯‘𝐹))) = (0..^(♯‘𝐹))
66	54, 57, 63, 64, 64, 65	off 7711	. . . . . . . . . 10 ⊢ (𝜑 → (𝐷 ∘_f · (𝐹 ∘ 𝐶)):(0..^(♯‘𝐹))⟶(Base‘𝑅))
67	66	fdmd 6720	. . . . . . . . 9 ⊢ (𝜑 → dom (𝐷 ∘_f · (𝐹 ∘ 𝐶)) = (0..^(♯‘𝐹)))
68	5, 41, 67	3eqtr3d 2803	. . . . . . . 8 ⊢ (𝜑 → (0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)))
69		lencl 14681	. . . . . . . . . 10 ⊢ (𝐹 ∈ Word 𝑃 → (♯‘𝐹) ∈ ℕ₀)
70	1, 69	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ ℕ₀)
71	19, 70	fzo0opth 33441	. . . . . . . 8 ⊢ (𝜑 → ((0..^((♯‘𝐻) − 1)) = (0..^(♯‘𝐹)) ↔ ((♯‘𝐻) − 1) = (♯‘𝐹)))
72	68, 71	mpbid 235	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐻) − 1) = (♯‘𝐹))
73	72	oveq1d 7435	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = ((♯‘𝐹) + 1))
74	15, 17	syl 18	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐻) ∈ ℕ)
75	74	nncnd 12354	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) ∈ ℂ)
76		npcan1 11744	. . . . . . 7 ⊢ ((♯‘𝐻) ∈ ℂ → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
77	75, 76	syl 18	. . . . . 6 ⊢ (𝜑 → (((♯‘𝐻) − 1) + 1) = (♯‘𝐻))
78	73, 77	eqtr3d 2797	. . . . 5 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘𝐻))
79	3, 78	eqtrd 2795	. . . 4 ⊢ (𝜑 → (♯‘(𝐹 ++ ⟨“𝑄”⟩)) = (♯‘𝐻))
80	79	oveq2d 7436	. . 3 ⊢ (𝜑 → (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)))
81		eqid 2760	. . . . . 6 ⊢ (♯‘𝐶) = (♯‘𝐶)
82		eqid 2760	. . . . . 6 ⊢ (0..^((♯‘𝐶) + 1)) = (0..^((♯‘𝐶) + 1))
83		f1ofn 6825	. . . . . . . . . 10 ⊢ (𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹)) → 𝐶 Fn (0..^(♯‘𝐹)))
84		hashfn 14522	. . . . . . . . . 10 ⊢ (𝐶 Fn (0..^(♯‘𝐹)) → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
85	60, 83, 84	3syl 19	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐶) = (♯‘(0..^(♯‘𝐹))))
86		hashfzo0 14578	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
87	70, 86	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(0..^(♯‘𝐹))) = (♯‘𝐹))
88	85, 87	eqtrd 2795	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐶) = (♯‘𝐹))
89	88	oveq2d 7436	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘𝐶)) = (0..^(♯‘𝐹)))
90		f1oeq23 6815	. . . . . . . 8 ⊢ (((0..^(♯‘𝐶)) = (0..^(♯‘𝐹)) ∧ (0..^(♯‘𝐶)) = (0..^(♯‘𝐹))) → (𝐶:(0..^(♯‘𝐶))–1-1-onto→(0..^(♯‘𝐶)) ↔ 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹))))
91	90	biimpar 483	. . . . . . 7 ⊢ ((((0..^(♯‘𝐶)) = (0..^(♯‘𝐹)) ∧ (0..^(♯‘𝐶)) = (0..^(♯‘𝐹))) ∧ 𝐶:(0..^(♯‘𝐹))–1-1-onto→(0..^(♯‘𝐹))) → 𝐶:(0..^(♯‘𝐶))–1-1-onto→(0..^(♯‘𝐶)))
92	89, 89, 60, 91	syl21anc 851	. . . . . 6 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐶))–1-1-onto→(0..^(♯‘𝐶)))
93	81, 82, 92	ccatws1f1o 33560	. . . . 5 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩):(0..^((♯‘𝐶) + 1))–1-1-onto→(0..^((♯‘𝐶) + 1)))
94	88	s1eqd 14751	. . . . . . 7 ⊢ (𝜑 → ⟨“(♯‘𝐶)”⟩ = ⟨“(♯‘𝐹)”⟩)
95	94	oveq2d 7436	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐶)”⟩) = (𝐶 ++ ⟨“(♯‘𝐹)”⟩))
96	88	oveq1d 7435	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐶) + 1) = ((♯‘𝐹) + 1))
97	96, 78	eqtrd 2795	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝐶) + 1) = (♯‘𝐻))
98	97	oveq2d 7436	. . . . . 6 ⊢ (𝜑 → (0..^((♯‘𝐶) + 1)) = (0..^(♯‘𝐻)))
99	95, 98, 98	f1oeq123d 6818	. . . . 5 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐶)”⟩):(0..^((♯‘𝐶) + 1))–1-1-onto→(0..^((♯‘𝐶) + 1)) ↔ (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))))
100	93, 99	mpbid 235	. . . 4 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
101		f1ocnv 6837	. . . . 5 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
102	6, 101	syl 18	. . . 4 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
103		f1oco 6848	. . . 4 ⊢ (((𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))) → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
104	100, 102, 103	syl2anc 596	. . 3 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)))
105		f1oeq23 6815	. . . 4 ⊢ (((0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)) ∧ (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻))) → (((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) ↔ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))))
106	105	biimpar 483	. . 3 ⊢ ((((0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻)) ∧ (0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) = (0..^(♯‘𝐻))) ∧ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻))) → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))))
107	80, 80, 104, 106	syl21anc 851	. 2 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))))
108		f1ofo 6832	. . . 4 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
109	6, 108	syl 18	. . 3 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)))
110	12	ffnd 6710	. . 3 ⊢ (𝜑 → 𝐻 Fn (0..^(♯‘𝐻)))
111		iswrdi 14665	. . . . . . . . . . 11 ⊢ (𝐷:(0..^(♯‘𝐹))⟶𝑈 → 𝐷 ∈ Word 𝑈)
112	57, 111	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ Word 𝑈)
113		ccatws1len 14772	. . . . . . . . . 10 ⊢ (𝐷 ∈ Word 𝑈 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
114	112, 113	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = ((♯‘𝐷) + 1))
115		elmapfn 8890	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (𝑈 ↑_m (0..^(♯‘𝐹))) → 𝐷 Fn (0..^(♯‘𝐹)))
116		hashfn 14522	. . . . . . . . . . . 12 ⊢ (𝐷 Fn (0..^(♯‘𝐹)) → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
117	55, 115, 116	3syl 19	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(0..^(♯‘𝐹))))
118	117, 87	eqtrd 2795	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐷) = (♯‘𝐹))
119	118	oveq1d 7435	. . . . . . . . 9 ⊢ (𝜑 → ((♯‘𝐷) + 1) = ((♯‘𝐹) + 1))
120	114, 119, 78	3eqtrd 2799	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘𝐻))
121	120	oveq2d 7436	. . . . . . 7 ⊢ (𝜑 → (0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩))) = (0..^(♯‘𝐻)))
122		eqidd 2761	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐷 ++ ⟨“𝑇”⟩)) = (♯‘(𝐷 ++ ⟨“𝑇”⟩)))
123		1arithidomlem.7	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ 𝑈)
124		ccatws1cl 14768	. . . . . . . . 9 ⊢ ((𝐷 ∈ Word 𝑈 ∧ 𝑇 ∈ 𝑈) → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
125	112, 123, 124	syl2anc 596	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) ∈ Word 𝑈)
126	122, 125	wrdfd 14667	. . . . . . 7 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘(𝐷 ++ ⟨“𝑇”⟩)))⟶𝑈)
127	121, 126	feq2dd 6695	. . . . . 6 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩):(0..^(♯‘𝐻))⟶𝑈)
128	127	ffnd 6710	. . . . 5 ⊢ (𝜑 → (𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)))
129		f1of 6824	. . . . . 6 ⊢ (^◡𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
130	6, 101, 129	3syl 19	. . . . 5 ⊢ (𝜑 → ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
131		fnfco 6747	. . . . 5 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) Fn (0..^(♯‘𝐻)) ∧ ^◡𝑆:(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
132	128, 130, 131	syl2anc 596	. . . 4 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) Fn (0..^(♯‘𝐻)))
133	78	oveq2d 7436	. . . . . . 7 ⊢ (𝜑 → (0..^((♯‘𝐹) + 1)) = (0..^(♯‘𝐻)))
134	3	eqcomd 2766	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐹) + 1) = (♯‘(𝐹 ++ ⟨“𝑄”⟩)))
135		1arithidomlem.1	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ 𝑃)
136		ccatws1cl 14768	. . . . . . . . 9 ⊢ ((𝐹 ∈ Word 𝑃 ∧ 𝑄 ∈ 𝑃) → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
137	1, 135, 136	syl2anc 596	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) ∈ Word 𝑃)
138	134, 137	wrdfd 14667	. . . . . . 7 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^((♯‘𝐹) + 1))⟶𝑃)
139	133, 138	feq2dd 6695	. . . . . 6 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩):(0..^(♯‘𝐻))⟶𝑃)
140	139	ffnd 6710	. . . . 5 ⊢ (𝜑 → (𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)))
141		fzossfzop1 13881	. . . . . . . . . . . 12 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
142	70, 141	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)))
143		sswrd 14670	. . . . . . . . . . 11 ⊢ ((0..^(♯‘𝐹)) ⊆ (0..^((♯‘𝐹) + 1)) → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
144	142, 143	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → Word (0..^(♯‘𝐹)) ⊆ Word (0..^((♯‘𝐹) + 1)))
145		iswrdi 14665	. . . . . . . . . . 11 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐹)) → 𝐶 ∈ Word (0..^(♯‘𝐹)))
146	62, 145	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐹)))
147	144, 146	sseldd 3909	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ Word (0..^((♯‘𝐹) + 1)))
148		ccatws1len 14772	. . . . . . . . 9 ⊢ (𝐶 ∈ Word (0..^((♯‘𝐹) + 1)) → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
149	147, 148	syl 18	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((♯‘𝐶) + 1))
150	149, 96, 78	3eqtrrd 2800	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐻) = (♯‘(𝐶 ++ ⟨“(♯‘𝐹)”⟩)))
151	142, 133	sseqtrd 3944	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(♯‘𝐹)) ⊆ (0..^(♯‘𝐻)))
152	62, 151	fssd 6727	. . . . . . . . 9 ⊢ (𝜑 → 𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)))
153		iswrdi 14665	. . . . . . . . 9 ⊢ (𝐶:(0..^(♯‘𝐹))⟶(0..^(♯‘𝐻)) → 𝐶 ∈ Word (0..^(♯‘𝐻)))
154	152, 153	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ Word (0..^(♯‘𝐻)))
155		fzonn0p1 13880	. . . . . . . . . 10 ⊢ ((♯‘𝐹) ∈ ℕ₀ → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
156	70, 155	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^((♯‘𝐹) + 1)))
157	156, 133	eleqtrd 2862	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐹) ∈ (0..^(♯‘𝐻)))
158		ccatws1cl 14768	. . . . . . . 8 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐻)) ∧ (♯‘𝐹) ∈ (0..^(♯‘𝐻))) → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
159	154, 157, 158	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∈ Word (0..^(♯‘𝐻)))
160	150, 159	wrdfd 14667	. . . . . 6 ⊢ (𝜑 → (𝐶 ++ ⟨“(♯‘𝐹)”⟩):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
161	160, 130	fcod 6735	. . . . 5 ⊢ (𝜑 → ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻)))
162		fnfco 6747	. . . . 5 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) Fn (0..^(♯‘𝐻)) ∧ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘𝐻))⟶(0..^(♯‘𝐻))) → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
163	140, 161, 162	syl2anc 596	. . . 4 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)) Fn (0..^(♯‘𝐻)))
164		ovexd 7455	. . . 4 ⊢ (𝜑 → (0..^(♯‘𝐻)) ∈ V)
165		inidm 4123	. . . 4 ⊢ ((0..^(♯‘𝐻)) ∩ (0..^(♯‘𝐻))) = (0..^(♯‘𝐻))
166	132, 163, 164, 164, 165	offn 7706	. . 3 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻)))
167		1arithidomlem.10	. . . 4 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩))
168		eqid 2760	. . . . . . . . 9 ⊢ (♯‘𝐹) = (♯‘𝐹)
169	168, 1, 135, 60	ccatws1f1olast 33561	. . . . . . . 8 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) = ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩))
170	169	oveq2d 7436	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)))
171	123	s1cld 14753	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑇”⟩ ∈ Word 𝑈)
172		iswrdi 14665	. . . . . . . . 9 ⊢ ((𝐹 ∘ 𝐶):(0..^(♯‘𝐹))⟶𝑃 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
173	63, 172	syl 18	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ∘ 𝐶) ∈ Word 𝑃)
174	135	s1cld 14753	. . . . . . . 8 ⊢ (𝜑 → ⟨“𝑄”⟩ ∈ Word 𝑃)
175		lenco 14987	. . . . . . . . . 10 ⊢ ((𝐶 ∈ Word (0..^(♯‘𝐹)) ∧ 𝐹:(0..^(♯‘𝐹))⟶𝑃) → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
176	146, 59, 175	syl2anc 596	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐹 ∘ 𝐶)) = (♯‘𝐶))
177	85, 176, 117	3eqtr4rd 2806	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐷) = (♯‘(𝐹 ∘ 𝐶)))
178		s1len 14756	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑇”⟩) = 1
179		s1len 14756	. . . . . . . . . 10 ⊢ (♯‘⟨“𝑄”⟩) = 1
180	178, 179	eqtr4i 2786	. . . . . . . . 9 ⊢ (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩)
181	180	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (♯‘⟨“𝑇”⟩) = (♯‘⟨“𝑄”⟩))
182	112, 171, 173, 174, 177, 181	ofccat 15127	. . . . . . 7 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ∘ 𝐶) ++ ⟨“𝑄”⟩)) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
183	170, 182	eqtrd 2795	. . . . . 6 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
184	139, 160	fcod 6735	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)):(0..^(♯‘𝐻))⟶𝑃)
185	184	ffnd 6710	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) Fn (0..^(♯‘𝐻)))
186	128, 185, 130, 164, 164, 164, 165	ofco 7718	. . . . . . . . 9 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)))
187	186	coeq1d 5838	. . . . . . . 8 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
188		coass 6267	. . . . . . . 8 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ^◡𝑆) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆))
189	187, 188	eqtr3di 2810	. . . . . . 7 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)))
190		f1of1 6823	. . . . . . . . . 10 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1-onto→(0..^(♯‘𝐻)) → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
191	6, 190	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)))
192		f1cocnv1 6855	. . . . . . . . 9 ⊢ (𝑆:(0..^(♯‘𝐻))–1-1→(0..^(♯‘𝐻)) → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
193	191, 192	syl 18	. . . . . . . 8 ⊢ (𝜑 → (^◡𝑆 ∘ 𝑆) = ( I ↾ (0..^(♯‘𝐻))))
194	193	coeq2d 5839	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ (^◡𝑆 ∘ 𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))))
195	54, 127, 184, 164, 164, 165	off 7711	. . . . . . . 8 ⊢ (𝜑 → ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅))
196		fcoi1 6756	. . . . . . . 8 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))):(0..^(♯‘𝐻))⟶(Base‘𝑅) → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
197	195, 196	syl 18	. . . . . . 7 ⊢ (𝜑 → (((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))) ∘ ( I ↾ (0..^(♯‘𝐻)))) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
198	189, 194, 197	3eqtrd 2799	. . . . . 6 ⊢ (𝜑 → ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((𝐷 ++ ⟨“𝑇”⟩) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩))))
199		ofs1 15128	. . . . . . . . 9 ⊢ ((𝑇 ∈ 𝑈 ∧ 𝑄 ∈ 𝑃) → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
200	123, 135, 199	syl2anc 596	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩) = ⟨“(𝑇 · 𝑄)”⟩)
201		1arithidomlem.8	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 · 𝑄) = (𝐻‘𝐾))
202	201	s1eqd 14751	. . . . . . . 8 ⊢ (𝜑 → ⟨“(𝑇 · 𝑄)”⟩ = ⟨“(𝐻‘𝐾)”⟩)
203	200, 202	eqtr2d 2796	. . . . . . 7 ⊢ (𝜑 → ⟨“(𝐻‘𝐾)”⟩ = (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩))
204	4, 203	oveq12d 7438	. . . . . 6 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((𝐷 ∘_f · (𝐹 ∘ 𝐶)) ++ (⟨“𝑇”⟩ ∘_f · ⟨“𝑄”⟩)))
205	183, 198, 204	3eqtr4rd 2806	. . . . 5 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆))
206		coass 6267	. . . . . . 7 ⊢ (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆) = ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))
207	206	oveq2i 7431	. . . . . 6 ⊢ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))
208	207	coeq1i 5836	. . . . 5 ⊢ ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · (((𝐹 ++ ⟨“𝑄”⟩) ∘ (𝐶 ++ ⟨“(♯‘𝐹)”⟩)) ∘ ^◡𝑆)) ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆)
209	205, 208	eqtrdi 2811	. . . 4 ⊢ (𝜑 → (((𝐻 ∘ 𝑆) prefix ((♯‘𝐻) − 1)) ++ ⟨“(𝐻‘𝐾)”⟩) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
210	167, 209	eqtrd 2795	. . 3 ⊢ (𝜑 → (𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆))
211		cocan2 7300	. . . 4 ⊢ ((𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)) ∧ 𝐻 Fn (0..^(♯‘𝐻)) ∧ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻))) → ((𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆) ↔ 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))))
212	211	biimpa 482	. . 3 ⊢ (((𝑆:(0..^(♯‘𝐻))–onto→(0..^(♯‘𝐻)) ∧ 𝐻 Fn (0..^(♯‘𝐻)) ∧ (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) Fn (0..^(♯‘𝐻))) ∧ (𝐻 ∘ 𝑆) = ((((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))) ∘ 𝑆)) → 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))))
213	109, 110, 166, 210, 212	syl31anc 1400	. 2 ⊢ (𝜑 → 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆))))
214	107, 213	jca 521	1 ⊢ (𝜑 → (((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆):(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩)))–1-1-onto→(0..^(♯‘(𝐹 ++ ⟨“𝑄”⟩))) ∧ 𝐻 = (((𝐷 ++ ⟨“𝑇”⟩) ∘ ^◡𝑆) ∘_f · ((𝐹 ++ ⟨“𝑄”⟩) ∘ ((𝐶 ++ ⟨“(♯‘𝐹)”⟩) ∘ ^◡𝑆)))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 ∧ w3a 1103 = wceq 1569 ∃wex 1811 ∈ wcel 2144 ∀wral 3076 ∃wrex 3086 Vcvv 3450 ⊆ wss 3895 class class class wbr 5102 I cid 5544 ^◡ccnv 5649 dom cdm 5650 ↾ cres 5652 ∘ ccom 5654 Fn wfn 6533 ⟶wf 6534 –1-1→wf1 6535 –onto→wfo 6536 –1-1-onto→wf1o 6537 ‘cfv 6538 (class class class)co 7420 ∘_f cof 7691 ↑_m cmap 8850 ℂcc 11201 0cc0 11203 1c1 11204 + caddc 11206 < clt 11346 ≤ cle 11347 − cmin 11544 ℕcn 12338 ℕ₀cn0 12609 ...cfz 13642 ..^cfzo 13791 ♯chash 14477 Word cword 14661 ++ cconcat 14718 ⟨“cs1 14745 prefix cpfx 14824 Basecbs 17392 ._rcmulr 17434 Σ_g cgsu 17616 mulGrpcmgp 20365 Ringcrg 20464 ∥_rcdsr 20589 Unitcui 20590 RPrimecrpm 20667 IDomncidom 20950

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7751 ax-cnex 11259 ax-resscn 11260 ax-1cn 11261 ax-icn 11262 ax-addcl 11263 ax-addrcl 11264 ax-mulcl 11265 ax-mulrcl 11266 ax-mulcom 11267 ax-addass 11268 ax-mulass 11269 ax-distr 11270 ax-i2m1 11271 ax-1ne0 11272 ax-1rid 11273 ax-rnegex 11274 ax-rrecex 11275 ax-cnre 11276 ax-pre-lttri 11277 ax-pre-lttrn 11278 ax-pre-ltadd 11279 ax-pre-mulgt0 11280

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3847 df-ss 3896 df-pss 4014 df-dif 4047 df-in 4091 df-un 4151 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4585 df-pr 4587 df-op 4835 df-uni 4867 df-int 4907 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5545 df-eprel 5550 df-po 5558 df-so 5559 df-fr 5603 df-we 5605 df-xp 5656 df-rel 5657 df-cnv 5658 df-co 5659 df-dm 5660 df-rn 5661 df-res 5662 df-ima 5663 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-riota 7377 df-ov 7423 df-oprab 7424 df-mpo 7425 df-of 7693 df-om 7878 df-1st 8001 df-2nd 8002 df-frecs 8302 df-wrecs 8333 df-recs 8382 df-rdg 8421 df-1o 8479 df-er 8720 df-map 8852 df-en 8977 df-dom 8978 df-sdom 8979 df-fin 8980 df-card 10023 df-pnf 11348 df-mnf 11349 df-xr 11350 df-ltxr 11351 df-le 11352 df-sub 11546 df-neg 11547 df-nn 12339 df-2 12408 df-n0 12610 df-z 12697 df-uz 12969 df-fz 13643 df-fzo 13792 df-hash 14478 df-word 14662 df-concat 14719 df-s1 14746 df-substr 14793 df-pfx 14825 df-sets 17347 df-slot 17365 df-ndx 17377 df-base 17393 df-plusg 17446 df-mgm 18821 df-sgrp 18913 df-mnd 18929 df-mgp 20366 df-ring 20466 df-cring 20467 df-dvdsr 20592 df-unit 20593 df-rprm 20668 df-idom 20953

This theorem is used by: 1arithidom 34115

W3C validator