prodmodclem3 - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > prodmodclem3		GIF version

Theorem prodmodclem3 11961

Description: Lemma for prodmodc 11964. (Contributed by Scott Fenton, 4-Dec-2017.) (Revised by Jim Kingdon, 11-Apr-2024.)

**Hypotheses**
Ref	Expression
prodmo.1	⊢ 𝐹 = (𝑘 ∈ ℤ ↦ if(𝑘 ∈ 𝐴, 𝐵, 1))
prodmo.2	⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → 𝐵 ∈ ℂ)
prodmodc.3	⊢ 𝐺 = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1))
prodmodclem3.4	⊢ 𝐻 = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1))
prodmolem3.5	⊢ (𝜑 → (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ))
prodmolem3.6	⊢ (𝜑 → 𝑓:(1...𝑀)–1-1-onto→𝐴)
prodmolem3.7	⊢ (𝜑 → 𝐾:(1...𝑁)–1-1-onto→𝐴)

**Assertion**
Ref	Expression
prodmodclem3	⊢ (𝜑 → (seq1( · , 𝐺)‘𝑀) = (seq1( · , 𝐻)‘𝑁))

Distinct variable groups: 𝐴,𝑗,𝑘 𝐵,𝑗 𝑗,𝐺 𝑗,𝐾,𝑘 𝑗,𝑀 𝑓,𝑗,𝑘 𝜑,𝑘 Allowed substitution hints: 𝜑(𝑓,𝑗) 𝐴(𝑓) 𝐵(𝑓,𝑘) 𝐹(𝑓,𝑗,𝑘) 𝐺(𝑓,𝑘) 𝐻(𝑓,𝑗,𝑘) 𝐾(𝑓) 𝑀(𝑓,𝑘) 𝑁(𝑓,𝑗,𝑘)

Proof of Theorem prodmodclem3 Dummy variables 𝑖 𝑚 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mulcl 8072	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑚 · 𝑦) ∈ ℂ)
2	1	adantl 277	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑚 · 𝑦) ∈ ℂ)
3		mulcom 8074	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑚 · 𝑦) = (𝑦 · 𝑚))
4	3	adantl 277	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑚 · 𝑦) = (𝑦 · 𝑚))
5		mulass 8076	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑥 ∈ ℂ) → ((𝑚 · 𝑦) · 𝑥) = (𝑚 · (𝑦 · 𝑥)))
6	5	adantl 277	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → ((𝑚 · 𝑦) · 𝑥) = (𝑚 · (𝑦 · 𝑥)))
7		prodmolem3.5	. . . . 5 ⊢ (𝜑 → (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ))
8	7	simpld 112	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℕ)
9		nnuz 9704	. . . 4 ⊢ ℕ = (ℤ_≥‘1)
10	8, 9	eleqtrdi 2299	. . 3 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘1))
11		prodmolem3.6	. . . . . 6 ⊢ (𝜑 → 𝑓:(1...𝑀)–1-1-onto→𝐴)
12		f1ocnv 5547	. . . . . 6 ⊢ (𝑓:(1...𝑀)–1-1-onto→𝐴 → ^◡𝑓:𝐴–1-1-onto→(1...𝑀))
13	11, 12	syl 14	. . . . 5 ⊢ (𝜑 → ^◡𝑓:𝐴–1-1-onto→(1...𝑀))
14		prodmolem3.7	. . . . 5 ⊢ (𝜑 → 𝐾:(1...𝑁)–1-1-onto→𝐴)
15		f1oco 5557	. . . . 5 ⊢ ((^◡𝑓:𝐴–1-1-onto→(1...𝑀) ∧ 𝐾:(1...𝑁)–1-1-onto→𝐴) → (^◡𝑓 ∘ 𝐾):(1...𝑁)–1-1-onto→(1...𝑀))
16	13, 14, 15	syl2anc 411	. . . 4 ⊢ (𝜑 → (^◡𝑓 ∘ 𝐾):(1...𝑁)–1-1-onto→(1...𝑀))
17	7	ancomd 267	. . . . . . 7 ⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 𝑀 ∈ ℕ))
18	17, 14, 11	nnf1o 11762	. . . . . 6 ⊢ (𝜑 → 𝑀 = 𝑁)
19	18	oveq2d 5973	. . . . 5 ⊢ (𝜑 → (1...𝑀) = (1...𝑁))
20	19	f1oeq2d 5530	. . . 4 ⊢ (𝜑 → ((^◡𝑓 ∘ 𝐾):(1...𝑀)–1-1-onto→(1...𝑀) ↔ (^◡𝑓 ∘ 𝐾):(1...𝑁)–1-1-onto→(1...𝑀)))
21	16, 20	mpbird 167	. . 3 ⊢ (𝜑 → (^◡𝑓 ∘ 𝐾):(1...𝑀)–1-1-onto→(1...𝑀))
22		prodmodc.3	. . . . 5 ⊢ 𝐺 = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1))
23		breq1 4054	. . . . . 6 ⊢ (𝑗 = 𝑚 → (𝑗 ≤ (♯‘𝐴) ↔ 𝑚 ≤ (♯‘𝐴)))
24		fveq2 5589	. . . . . . 7 ⊢ (𝑗 = 𝑚 → (𝑓‘𝑗) = (𝑓‘𝑚))
25	24	csbeq1d 3104	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋(𝑓‘𝑗) / 𝑘⦌𝐵 = ⦋(𝑓‘𝑚) / 𝑘⦌𝐵)
26	23, 25	ifbieq1d 3598	. . . . 5 ⊢ (𝑗 = 𝑚 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1))
27		elnnuz 9705	. . . . . . 7 ⊢ (𝑚 ∈ ℕ ↔ 𝑚 ∈ (ℤ_≥‘1))
28	27	biimpri 133	. . . . . 6 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 𝑚 ∈ ℕ)
29	28	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → 𝑚 ∈ ℕ)
30		f1of 5534	. . . . . . . . . 10 ⊢ (𝑓:(1...𝑀)–1-1-onto→𝐴 → 𝑓:(1...𝑀)⟶𝐴)
31	11, 30	syl 14	. . . . . . . . 9 ⊢ (𝜑 → 𝑓:(1...𝑀)⟶𝐴)
32	31	ad2antrr 488	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑓:(1...𝑀)⟶𝐴)
33		1zzd 9419	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 1 ∈ ℤ)
34	8	nnzd 9514	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℤ)
35	34	ad2antrr 488	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑀 ∈ ℤ)
36		eluzelz 9677	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 𝑚 ∈ ℤ)
37	36	ad2antlr 489	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ ℤ)
38	33, 35, 37	3jca 1180	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑚 ∈ ℤ))
39		eluzle 9680	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 1 ≤ 𝑚)
40	39	ad2antlr 489	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 1 ≤ 𝑚)
41		simpr 110	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ≤ (♯‘𝐴))
42	8	nnnn0d 9368	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
43		hashfz1 10950	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ₀ → (♯‘(1...𝑀)) = 𝑀)
44	42, 43	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(1...𝑀)) = 𝑀)
45		1zzd 9419	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℤ)
46	45, 34	fzfigd 10598	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1...𝑀) ∈ Fin)
47	46, 11	fihasheqf1od 10956	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(1...𝑀)) = (♯‘𝐴))
48	44, 47	eqtr3d 2241	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 = (♯‘𝐴))
49	48	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑀 = (♯‘𝐴))
50	41, 49	breqtrrd 4079	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ≤ 𝑀)
51	40, 50	jca 306	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1 ≤ 𝑚 ∧ 𝑚 ≤ 𝑀))
52		elfz2 10157	. . . . . . . . 9 ⊢ (𝑚 ∈ (1...𝑀) ↔ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑚 ∈ ℤ) ∧ (1 ≤ 𝑚 ∧ 𝑚 ≤ 𝑀)))
53	38, 51, 52	sylanbrc 417	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ (1...𝑀))
54	32, 53	ffvelcdmd 5729	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (𝑓‘𝑚) ∈ 𝐴)
55		prodmo.2	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → 𝐵 ∈ ℂ)
56	55	ralrimiva 2580	. . . . . . . 8 ⊢ (𝜑 → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
57	56	ad2antrr 488	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
58		nfcsb1v 3130	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋(𝑓‘𝑚) / 𝑘⦌𝐵
59	58	nfel1 2360	. . . . . . . 8 ⊢ Ⅎ𝑘⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ
60		csbeq1a 3106	. . . . . . . . 9 ⊢ (𝑘 = (𝑓‘𝑚) → 𝐵 = ⦋(𝑓‘𝑚) / 𝑘⦌𝐵)
61	60	eleq1d 2275	. . . . . . . 8 ⊢ (𝑘 = (𝑓‘𝑚) → (𝐵 ∈ ℂ ↔ ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
62	59, 61	rspc 2875	. . . . . . 7 ⊢ ((𝑓‘𝑚) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
63	54, 57, 62	sylc 62	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ)
64		1cnd 8108	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑚 ≤ (♯‘𝐴)) → 1 ∈ ℂ)
65	29	nnzd 9514	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → 𝑚 ∈ ℤ)
66	48, 34	eqeltrrd 2284	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐴) ∈ ℤ)
67	66	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (♯‘𝐴) ∈ ℤ)
68		zdcle 9469	. . . . . . 7 ⊢ ((𝑚 ∈ ℤ ∧ (♯‘𝐴) ∈ ℤ) → DECID 𝑚 ≤ (♯‘𝐴))
69	65, 67, 68	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → DECID 𝑚 ≤ (♯‘𝐴))
70	63, 64, 69	ifcldadc 3605	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1) ∈ ℂ)
71	22, 26, 29, 70	fvmptd3 5686	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐺‘𝑚) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1))
72	71, 70	eqeltrd 2283	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐺‘𝑚) ∈ ℂ)
73		prodmodclem3.4	. . . . 5 ⊢ 𝐻 = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1))
74		fveq2 5589	. . . . . . 7 ⊢ (𝑗 = 𝑚 → (𝐾‘𝑗) = (𝐾‘𝑚))
75	74	csbeq1d 3104	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋(𝐾‘𝑗) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑚) / 𝑘⦌𝐵)
76	23, 75	ifbieq1d 3598	. . . . 5 ⊢ (𝑗 = 𝑚 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1))
77	14	ad2antrr 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝐾:(1...𝑁)–1-1-onto→𝐴)
78		f1of 5534	. . . . . . . . 9 ⊢ (𝐾:(1...𝑁)–1-1-onto→𝐴 → 𝐾:(1...𝑁)⟶𝐴)
79	77, 78	syl 14	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝐾:(1...𝑁)⟶𝐴)
80	19	ad2antrr 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1...𝑀) = (1...𝑁))
81	53, 80	eleqtrd 2285	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ (1...𝑁))
82	79, 81	ffvelcdmd 5729	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (𝐾‘𝑚) ∈ 𝐴)
83		nfcsb1v 3130	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋(𝐾‘𝑚) / 𝑘⦌𝐵
84	83	nfel1 2360	. . . . . . . 8 ⊢ Ⅎ𝑘⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ
85		csbeq1a 3106	. . . . . . . . 9 ⊢ (𝑘 = (𝐾‘𝑚) → 𝐵 = ⦋(𝐾‘𝑚) / 𝑘⦌𝐵)
86	85	eleq1d 2275	. . . . . . . 8 ⊢ (𝑘 = (𝐾‘𝑚) → (𝐵 ∈ ℂ ↔ ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
87	84, 86	rspc 2875	. . . . . . 7 ⊢ ((𝐾‘𝑚) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
88	82, 57, 87	sylc 62	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ)
89	88, 64, 69	ifcldadc 3605	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1) ∈ ℂ)
90	73, 76, 29, 89	fvmptd3 5686	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐻‘𝑚) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1))
91	90, 89	eqeltrd 2283	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐻‘𝑚) ∈ ℂ)
92	19	f1oeq2d 5530	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾:(1...𝑀)–1-1-onto→𝐴 ↔ 𝐾:(1...𝑁)–1-1-onto→𝐴))
93	14, 92	mpbird 167	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:(1...𝑀)–1-1-onto→𝐴)
94		f1of 5534	. . . . . . . . 9 ⊢ (𝐾:(1...𝑀)–1-1-onto→𝐴 → 𝐾:(1...𝑀)⟶𝐴)
95	93, 94	syl 14	. . . . . . . 8 ⊢ (𝜑 → 𝐾:(1...𝑀)⟶𝐴)
96		fvco3 5663	. . . . . . . 8 ⊢ ((𝐾:(1...𝑀)⟶𝐴 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) = (^◡𝑓‘(𝐾‘𝑖)))
97	95, 96	sylan 283	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) = (^◡𝑓‘(𝐾‘𝑖)))
98	97	fveq2d 5593	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = (𝑓‘(^◡𝑓‘(𝐾‘𝑖))))
99	11	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑓:(1...𝑀)–1-1-onto→𝐴)
100	95	ffvelcdmda 5728	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐾‘𝑖) ∈ 𝐴)
101		f1ocnvfv2 5860	. . . . . . 7 ⊢ ((𝑓:(1...𝑀)–1-1-onto→𝐴 ∧ (𝐾‘𝑖) ∈ 𝐴) → (𝑓‘(^◡𝑓‘(𝐾‘𝑖))) = (𝐾‘𝑖))
102	99, 100, 101	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘(^◡𝑓‘(𝐾‘𝑖))) = (𝐾‘𝑖))
103	98, 102	eqtrd 2239	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = (𝐾‘𝑖))
104	103	csbeq1d 3104	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
105		breq1 4054	. . . . . . 7 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → (𝑗 ≤ (♯‘𝐴) ↔ ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴)))
106		fveq2 5589	. . . . . . . 8 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → (𝑓‘𝑗) = (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)))
107	106	csbeq1d 3104	. . . . . . 7 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → ⦋(𝑓‘𝑗) / 𝑘⦌𝐵 = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
108	105, 107	ifbieq1d 3598	. . . . . 6 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1) = if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1))
109		f1of 5534	. . . . . . . . 9 ⊢ ((^◡𝑓 ∘ 𝐾):(1...𝑀)–1-1-onto→(1...𝑀) → (^◡𝑓 ∘ 𝐾):(1...𝑀)⟶(1...𝑀))
110	21, 109	syl 14	. . . . . . . 8 ⊢ (𝜑 → (^◡𝑓 ∘ 𝐾):(1...𝑀)⟶(1...𝑀))
111	110	ffvelcdmda 5728	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀))
112		elfznn 10196	. . . . . . 7 ⊢ (((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ ℕ)
113	111, 112	syl 14	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ ℕ)
114		elfzle2 10170	. . . . . . . . . 10 ⊢ (((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ 𝑀)
115	111, 114	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ 𝑀)
116	48	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑀 = (♯‘𝐴))
117	115, 116	breqtrd 4077	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴))
118	117	iftrued 3582	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1) = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
119	56	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
120		nfcsb1v 3130	. . . . . . . . . . 11 ⊢ Ⅎ𝑘⦋(𝐾‘𝑖) / 𝑘⦌𝐵
121	120	nfel1 2360	. . . . . . . . . 10 ⊢ Ⅎ𝑘⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ
122		csbeq1a 3106	. . . . . . . . . . 11 ⊢ (𝑘 = (𝐾‘𝑖) → 𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
123	122	eleq1d 2275	. . . . . . . . . 10 ⊢ (𝑘 = (𝐾‘𝑖) → (𝐵 ∈ ℂ ↔ ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ))
124	121, 123	rspc 2875	. . . . . . . . 9 ⊢ ((𝐾‘𝑖) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ))
125	100, 119, 124	sylc 62	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ)
126	104, 125	eqeltrd 2283	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵 ∈ ℂ)
127	118, 126	eqeltrd 2283	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1) ∈ ℂ)
128	22, 108, 113, 127	fvmptd3 5686	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1))
129	128, 118	eqtrd 2239	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
130		breq1 4054	. . . . . . 7 ⊢ (𝑗 = 𝑖 → (𝑗 ≤ (♯‘𝐴) ↔ 𝑖 ≤ (♯‘𝐴)))
131		fveq2 5589	. . . . . . . 8 ⊢ (𝑗 = 𝑖 → (𝐾‘𝑗) = (𝐾‘𝑖))
132	131	csbeq1d 3104	. . . . . . 7 ⊢ (𝑗 = 𝑖 → ⦋(𝐾‘𝑗) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
133	130, 132	ifbieq1d 3598	. . . . . 6 ⊢ (𝑗 = 𝑖 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1))
134		elfznn 10196	. . . . . . 7 ⊢ (𝑖 ∈ (1...𝑀) → 𝑖 ∈ ℕ)
135	134	adantl 277	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ∈ ℕ)
136		elfzle2 10170	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...𝑀) → 𝑖 ≤ 𝑀)
137	136	adantl 277	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ≤ 𝑀)
138	137, 116	breqtrd 4077	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ≤ (♯‘𝐴))
139	138	iftrued 3582	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1) = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
140	139, 125	eqeltrd 2283	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1) ∈ ℂ)
141	73, 133, 135, 140	fvmptd3 5686	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1))
142	141, 139	eqtrd 2239	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
143	104, 129, 142	3eqtr4rd 2250	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)))
144	2, 4, 6, 10, 21, 72, 91, 143	seq3f1o 10684	. 2 ⊢ (𝜑 → (seq1( · , 𝐻)‘𝑀) = (seq1( · , 𝐺)‘𝑀))
145	18	fveq2d 5593	. 2 ⊢ (𝜑 → (seq1( · , 𝐻)‘𝑀) = (seq1( · , 𝐻)‘𝑁))
146	144, 145	eqtr3d 2241	1 ⊢ (𝜑 → (seq1( · , 𝐺)‘𝑀) = (seq1( · , 𝐻)‘𝑁))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 DECID wdc 836 ∧ w3a 981 = wceq 1373 ∈ wcel 2177 ∀wral 2485 ⦋csb 3097 ifcif 3575 class class class wbr 4051 ↦ cmpt 4113 ^◡ccnv 4682 ∘ ccom 4687 ⟶wf 5276 –1-1-onto→wf1o 5279 ‘cfv 5280 (class class class)co 5957 ℂcc 7943 1c1 7946 · cmul 7950 ≤ cle 8128 ℕcn 9056 ℕ₀cn0 9315 ℤcz 9392 ℤ_≥cuz 9668 ...cfz 10150 seqcseq 10614 ♯chash 10942

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 711 ax-5 1471 ax-7 1472 ax-gen 1473 ax-ie1 1517 ax-ie2 1518 ax-8 1528 ax-10 1529 ax-11 1530 ax-i12 1531 ax-bndl 1533 ax-4 1534 ax-17 1550 ax-i9 1554 ax-ial 1558 ax-i5r 1559 ax-13 2179 ax-14 2180 ax-ext 2188 ax-coll 4167 ax-sep 4170 ax-nul 4178 ax-pow 4226 ax-pr 4261 ax-un 4488 ax-setind 4593 ax-iinf 4644 ax-cnex 8036 ax-resscn 8037 ax-1cn 8038 ax-1re 8039 ax-icn 8040 ax-addcl 8041 ax-addrcl 8042 ax-mulcl 8043 ax-addcom 8045 ax-mulcom 8046 ax-addass 8047 ax-mulass 8048 ax-distr 8049 ax-i2m1 8050 ax-0lt1 8051 ax-0id 8053 ax-rnegex 8054 ax-cnre 8056 ax-pre-ltirr 8057 ax-pre-ltwlin 8058 ax-pre-lttrn 8059 ax-pre-apti 8060 ax-pre-ltadd 8061

This theorem depends on definitions: df-bi 117 df-dc 837 df-3or 982 df-3an 983 df-tru 1376 df-fal 1379 df-nf 1485 df-sb 1787 df-eu 2058 df-mo 2059 df-clab 2193 df-cleq 2199 df-clel 2202 df-nfc 2338 df-ne 2378 df-nel 2473 df-ral 2490 df-rex 2491 df-reu 2492 df-rab 2494 df-v 2775 df-sbc 3003 df-csb 3098 df-dif 3172 df-un 3174 df-in 3176 df-ss 3183 df-nul 3465 df-if 3576 df-pw 3623 df-sn 3644 df-pr 3645 df-op 3647 df-uni 3857 df-int 3892 df-iun 3935 df-br 4052 df-opab 4114 df-mpt 4115 df-tr 4151 df-id 4348 df-iord 4421 df-on 4423 df-ilim 4424 df-suc 4426 df-iom 4647 df-xp 4689 df-rel 4690 df-cnv 4691 df-co 4692 df-dm 4693 df-rn 4694 df-res 4695 df-ima 4696 df-iota 5241 df-fun 5282 df-fn 5283 df-f 5284 df-f1 5285 df-fo 5286 df-f1o 5287 df-fv 5288 df-riota 5912 df-ov 5960 df-oprab 5961 df-mpo 5962 df-1st 6239 df-2nd 6240 df-recs 6404 df-frec 6490 df-1o 6515 df-er 6633 df-en 6841 df-dom 6842 df-fin 6843 df-pnf 8129 df-mnf 8130 df-xr 8131 df-ltxr 8132 df-le 8133 df-sub 8265 df-neg 8266 df-inn 9057 df-n0 9316 df-z 9393 df-uz 9669 df-fz 10151 df-fzo 10285 df-seqfrec 10615 df-ihash 10943

This theorem is referenced by: prodmodclem2a 11962 prodmodc 11964

W3C validator