prodmodclem3 - Intuitionistic Logic Explorer

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

Theorem prodmodclem3 11376

Description: Lemma for prodmodc 11379. (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 7771	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑚 · 𝑦) ∈ ℂ)
2	1	adantl 275	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑚 · 𝑦) ∈ ℂ)
3		mulcom 7773	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑚 · 𝑦) = (𝑦 · 𝑚))
4	3	adantl 275	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑚 · 𝑦) = (𝑦 · 𝑚))
5		mulass 7775	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑥 ∈ ℂ) → ((𝑚 · 𝑦) · 𝑥) = (𝑚 · (𝑦 · 𝑥)))
6	5	adantl 275	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → ((𝑚 · 𝑦) · 𝑥) = (𝑚 · (𝑦 · 𝑥)))
7		prodmolem3.5	. . . . 5 ⊢ (𝜑 → (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ))
8	7	simpld 111	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℕ)
9		nnuz 9385	. . . 4 ⊢ ℕ = (ℤ_≥‘1)
10	8, 9	eleqtrdi 2233	. . 3 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘1))
11		prodmolem3.6	. . . . . 6 ⊢ (𝜑 → 𝑓:(1...𝑀)–1-1-onto→𝐴)
12		f1ocnv 5388	. . . . . 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 5398	. . . . 5 ⊢ ((^◡𝑓:𝐴–1-1-onto→(1...𝑀) ∧ 𝐾:(1...𝑁)–1-1-onto→𝐴) → (^◡𝑓 ∘ 𝐾):(1...𝑁)–1-1-onto→(1...𝑀))
16	13, 14, 15	syl2anc 409	. . . 4 ⊢ (𝜑 → (^◡𝑓 ∘ 𝐾):(1...𝑁)–1-1-onto→(1...𝑀))
17	7	ancomd 265	. . . . . . 7 ⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 𝑀 ∈ ℕ))
18	17, 14, 11	nnf1o 11177	. . . . . 6 ⊢ (𝜑 → 𝑀 = 𝑁)
19	18	oveq2d 5798	. . . . 5 ⊢ (𝜑 → (1...𝑀) = (1...𝑁))
20	19	f1oeq2d 5371	. . . 4 ⊢ (𝜑 → ((^◡𝑓 ∘ 𝐾):(1...𝑀)–1-1-onto→(1...𝑀) ↔ (^◡𝑓 ∘ 𝐾):(1...𝑁)–1-1-onto→(1...𝑀)))
21	16, 20	mpbird 166	. . 3 ⊢ (𝜑 → (^◡𝑓 ∘ 𝐾):(1...𝑀)–1-1-onto→(1...𝑀))
22		prodmodc.3	. . . . 5 ⊢ 𝐺 = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1))
23		breq1 3940	. . . . . 6 ⊢ (𝑗 = 𝑚 → (𝑗 ≤ (♯‘𝐴) ↔ 𝑚 ≤ (♯‘𝐴)))
24		fveq2 5429	. . . . . . 7 ⊢ (𝑗 = 𝑚 → (𝑓‘𝑗) = (𝑓‘𝑚))
25	24	csbeq1d 3014	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋(𝑓‘𝑗) / 𝑘⦌𝐵 = ⦋(𝑓‘𝑚) / 𝑘⦌𝐵)
26	23, 25	ifbieq1d 3499	. . . . 5 ⊢ (𝑗 = 𝑚 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1))
27		elnnuz 9386	. . . . . . 7 ⊢ (𝑚 ∈ ℕ ↔ 𝑚 ∈ (ℤ_≥‘1))
28	27	biimpri 132	. . . . . 6 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 𝑚 ∈ ℕ)
29	28	adantl 275	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → 𝑚 ∈ ℕ)
30		f1of 5375	. . . . . . . . . 10 ⊢ (𝑓:(1...𝑀)–1-1-onto→𝐴 → 𝑓:(1...𝑀)⟶𝐴)
31	11, 30	syl 14	. . . . . . . . 9 ⊢ (𝜑 → 𝑓:(1...𝑀)⟶𝐴)
32	31	ad2antrr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑓:(1...𝑀)⟶𝐴)
33		1zzd 9105	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 1 ∈ ℤ)
34	8	nnzd 9196	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℤ)
35	34	ad2antrr 480	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑀 ∈ ℤ)
36		eluzelz 9359	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 𝑚 ∈ ℤ)
37	36	ad2antlr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ ℤ)
38	33, 35, 37	3jca 1162	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑚 ∈ ℤ))
39		eluzle 9362	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 1 ≤ 𝑚)
40	39	ad2antlr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 1 ≤ 𝑚)
41		simpr 109	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ≤ (♯‘𝐴))
42	8	nnnn0d 9054	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
43		hashfz1 10561	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ₀ → (♯‘(1...𝑀)) = 𝑀)
44	42, 43	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(1...𝑀)) = 𝑀)
45		1zzd 9105	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℤ)
46	45, 34	fzfigd 10235	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1...𝑀) ∈ Fin)
47	46, 11	fihasheqf1od 10568	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(1...𝑀)) = (♯‘𝐴))
48	44, 47	eqtr3d 2175	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 = (♯‘𝐴))
49	48	ad2antrr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑀 = (♯‘𝐴))
50	41, 49	breqtrrd 3964	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ≤ 𝑀)
51	40, 50	jca 304	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1 ≤ 𝑚 ∧ 𝑚 ≤ 𝑀))
52		elfz2 9828	. . . . . . . . 9 ⊢ (𝑚 ∈ (1...𝑀) ↔ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑚 ∈ ℤ) ∧ (1 ≤ 𝑚 ∧ 𝑚 ≤ 𝑀)))
53	38, 51, 52	sylanbrc 414	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ (1...𝑀))
54	32, 53	ffvelrnd 5564	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (𝑓‘𝑚) ∈ 𝐴)
55		prodmo.2	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → 𝐵 ∈ ℂ)
56	55	ralrimiva 2508	. . . . . . . 8 ⊢ (𝜑 → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
57	56	ad2antrr 480	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
58		nfcsb1v 3040	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋(𝑓‘𝑚) / 𝑘⦌𝐵
59	58	nfel1 2293	. . . . . . . 8 ⊢ Ⅎ𝑘⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ
60		csbeq1a 3016	. . . . . . . . 9 ⊢ (𝑘 = (𝑓‘𝑚) → 𝐵 = ⦋(𝑓‘𝑚) / 𝑘⦌𝐵)
61	60	eleq1d 2209	. . . . . . . 8 ⊢ (𝑘 = (𝑓‘𝑚) → (𝐵 ∈ ℂ ↔ ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
62	59, 61	rspc 2787	. . . . . . 7 ⊢ ((𝑓‘𝑚) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
63	54, 57, 62	sylc 62	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ)
64		1cnd 7806	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑚 ≤ (♯‘𝐴)) → 1 ∈ ℂ)
65	29	nnzd 9196	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → 𝑚 ∈ ℤ)
66	48, 34	eqeltrrd 2218	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐴) ∈ ℤ)
67	66	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (♯‘𝐴) ∈ ℤ)
68		zdcle 9151	. . . . . . 7 ⊢ ((𝑚 ∈ ℤ ∧ (♯‘𝐴) ∈ ℤ) → DECID 𝑚 ≤ (♯‘𝐴))
69	65, 67, 68	syl2anc 409	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → DECID 𝑚 ≤ (♯‘𝐴))
70	63, 64, 69	ifcldadc 3506	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1) ∈ ℂ)
71	22, 26, 29, 70	fvmptd3 5522	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐺‘𝑚) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1))
72	71, 70	eqeltrd 2217	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐺‘𝑚) ∈ ℂ)
73		prodmodclem3.4	. . . . 5 ⊢ 𝐻 = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1))
74		fveq2 5429	. . . . . . 7 ⊢ (𝑗 = 𝑚 → (𝐾‘𝑗) = (𝐾‘𝑚))
75	74	csbeq1d 3014	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋(𝐾‘𝑗) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑚) / 𝑘⦌𝐵)
76	23, 75	ifbieq1d 3499	. . . . 5 ⊢ (𝑗 = 𝑚 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1))
77	14	ad2antrr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝐾:(1...𝑁)–1-1-onto→𝐴)
78		f1of 5375	. . . . . . . . 9 ⊢ (𝐾:(1...𝑁)–1-1-onto→𝐴 → 𝐾:(1...𝑁)⟶𝐴)
79	77, 78	syl 14	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝐾:(1...𝑁)⟶𝐴)
80	19	ad2antrr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1...𝑀) = (1...𝑁))
81	53, 80	eleqtrd 2219	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ (1...𝑁))
82	79, 81	ffvelrnd 5564	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (𝐾‘𝑚) ∈ 𝐴)
83		nfcsb1v 3040	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋(𝐾‘𝑚) / 𝑘⦌𝐵
84	83	nfel1 2293	. . . . . . . 8 ⊢ Ⅎ𝑘⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ
85		csbeq1a 3016	. . . . . . . . 9 ⊢ (𝑘 = (𝐾‘𝑚) → 𝐵 = ⦋(𝐾‘𝑚) / 𝑘⦌𝐵)
86	85	eleq1d 2209	. . . . . . . 8 ⊢ (𝑘 = (𝐾‘𝑚) → (𝐵 ∈ ℂ ↔ ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
87	84, 86	rspc 2787	. . . . . . 7 ⊢ ((𝐾‘𝑚) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
88	82, 57, 87	sylc 62	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ)
89	88, 64, 69	ifcldadc 3506	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1) ∈ ℂ)
90	73, 76, 29, 89	fvmptd3 5522	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐻‘𝑚) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1))
91	90, 89	eqeltrd 2217	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐻‘𝑚) ∈ ℂ)
92	19	f1oeq2d 5371	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾:(1...𝑀)–1-1-onto→𝐴 ↔ 𝐾:(1...𝑁)–1-1-onto→𝐴))
93	14, 92	mpbird 166	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:(1...𝑀)–1-1-onto→𝐴)
94		f1of 5375	. . . . . . . . 9 ⊢ (𝐾:(1...𝑀)–1-1-onto→𝐴 → 𝐾:(1...𝑀)⟶𝐴)
95	93, 94	syl 14	. . . . . . . 8 ⊢ (𝜑 → 𝐾:(1...𝑀)⟶𝐴)
96		fvco3 5500	. . . . . . . 8 ⊢ ((𝐾:(1...𝑀)⟶𝐴 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) = (^◡𝑓‘(𝐾‘𝑖)))
97	95, 96	sylan 281	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) = (^◡𝑓‘(𝐾‘𝑖)))
98	97	fveq2d 5433	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = (𝑓‘(^◡𝑓‘(𝐾‘𝑖))))
99	11	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑓:(1...𝑀)–1-1-onto→𝐴)
100	95	ffvelrnda 5563	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐾‘𝑖) ∈ 𝐴)
101		f1ocnvfv2 5687	. . . . . . 7 ⊢ ((𝑓:(1...𝑀)–1-1-onto→𝐴 ∧ (𝐾‘𝑖) ∈ 𝐴) → (𝑓‘(^◡𝑓‘(𝐾‘𝑖))) = (𝐾‘𝑖))
102	99, 100, 101	syl2anc 409	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘(^◡𝑓‘(𝐾‘𝑖))) = (𝐾‘𝑖))
103	98, 102	eqtrd 2173	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = (𝐾‘𝑖))
104	103	csbeq1d 3014	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
105		breq1 3940	. . . . . . 7 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → (𝑗 ≤ (♯‘𝐴) ↔ ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴)))
106		fveq2 5429	. . . . . . . 8 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → (𝑓‘𝑗) = (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)))
107	106	csbeq1d 3014	. . . . . . 7 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → ⦋(𝑓‘𝑗) / 𝑘⦌𝐵 = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
108	105, 107	ifbieq1d 3499	. . . . . 6 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1) = if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1))
109		f1of 5375	. . . . . . . . 9 ⊢ ((^◡𝑓 ∘ 𝐾):(1...𝑀)–1-1-onto→(1...𝑀) → (^◡𝑓 ∘ 𝐾):(1...𝑀)⟶(1...𝑀))
110	21, 109	syl 14	. . . . . . . 8 ⊢ (𝜑 → (^◡𝑓 ∘ 𝐾):(1...𝑀)⟶(1...𝑀))
111	110	ffvelrnda 5563	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀))
112		elfznn 9865	. . . . . . 7 ⊢ (((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ ℕ)
113	111, 112	syl 14	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ ℕ)
114		elfzle2 9839	. . . . . . . . . 10 ⊢ (((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ 𝑀)
115	111, 114	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ 𝑀)
116	48	adantr 274	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑀 = (♯‘𝐴))
117	115, 116	breqtrd 3962	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴))
118	117	iftrued 3486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1) = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
119	56	adantr 274	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
120		nfcsb1v 3040	. . . . . . . . . . 11 ⊢ Ⅎ𝑘⦋(𝐾‘𝑖) / 𝑘⦌𝐵
121	120	nfel1 2293	. . . . . . . . . 10 ⊢ Ⅎ𝑘⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ
122		csbeq1a 3016	. . . . . . . . . . 11 ⊢ (𝑘 = (𝐾‘𝑖) → 𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
123	122	eleq1d 2209	. . . . . . . . . 10 ⊢ (𝑘 = (𝐾‘𝑖) → (𝐵 ∈ ℂ ↔ ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ))
124	121, 123	rspc 2787	. . . . . . . . 9 ⊢ ((𝐾‘𝑖) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ))
125	100, 119, 124	sylc 62	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ)
126	104, 125	eqeltrd 2217	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵 ∈ ℂ)
127	118, 126	eqeltrd 2217	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1) ∈ ℂ)
128	22, 108, 113, 127	fvmptd3 5522	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1))
129	128, 118	eqtrd 2173	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
130		breq1 3940	. . . . . . 7 ⊢ (𝑗 = 𝑖 → (𝑗 ≤ (♯‘𝐴) ↔ 𝑖 ≤ (♯‘𝐴)))
131		fveq2 5429	. . . . . . . 8 ⊢ (𝑗 = 𝑖 → (𝐾‘𝑗) = (𝐾‘𝑖))
132	131	csbeq1d 3014	. . . . . . 7 ⊢ (𝑗 = 𝑖 → ⦋(𝐾‘𝑗) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
133	130, 132	ifbieq1d 3499	. . . . . 6 ⊢ (𝑗 = 𝑖 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1))
134		elfznn 9865	. . . . . . 7 ⊢ (𝑖 ∈ (1...𝑀) → 𝑖 ∈ ℕ)
135	134	adantl 275	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ∈ ℕ)
136		elfzle2 9839	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...𝑀) → 𝑖 ≤ 𝑀)
137	136	adantl 275	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ≤ 𝑀)
138	137, 116	breqtrd 3962	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ≤ (♯‘𝐴))
139	138	iftrued 3486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1) = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
140	139, 125	eqeltrd 2217	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1) ∈ ℂ)
141	73, 133, 135, 140	fvmptd3 5522	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1))
142	141, 139	eqtrd 2173	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
143	104, 129, 142	3eqtr4rd 2184	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)))
144	2, 4, 6, 10, 21, 72, 91, 143	seq3f1o 10308	. 2 ⊢ (𝜑 → (seq1( · , 𝐻)‘𝑀) = (seq1( · , 𝐺)‘𝑀))
145	18	fveq2d 5433	. 2 ⊢ (𝜑 → (seq1( · , 𝐻)‘𝑀) = (seq1( · , 𝐻)‘𝑁))
146	144, 145	eqtr3d 2175	1 ⊢ (𝜑 → (seq1( · , 𝐺)‘𝑀) = (seq1( · , 𝐻)‘𝑁))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 103 DECID wdc 820 ∧ w3a 963 = wceq 1332 ∈ wcel 1481 ∀wral 2417 ⦋csb 3007 ifcif 3479 class class class wbr 3937 ↦ cmpt 3997 ^◡ccnv 4546 ∘ ccom 4551 ⟶wf 5127 –1-1-onto→wf1o 5130 ‘cfv 5131 (class class class)co 5782 ℂcc 7642 1c1 7645 · cmul 7649 ≤ cle 7825 ℕcn 8744 ℕ₀cn0 9001 ℤcz 9078 ℤ_≥cuz 9350 ...cfz 9821 seqcseq 10249 ♯chash 10553

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 604 ax-in2 605 ax-io 699 ax-5 1424 ax-7 1425 ax-gen 1426 ax-ie1 1470 ax-ie2 1471 ax-8 1483 ax-10 1484 ax-11 1485 ax-i12 1486 ax-bndl 1487 ax-4 1488 ax-13 1492 ax-14 1493 ax-17 1507 ax-i9 1511 ax-ial 1515 ax-i5r 1516 ax-ext 2122 ax-coll 4051 ax-sep 4054 ax-nul 4062 ax-pow 4106 ax-pr 4139 ax-un 4363 ax-setind 4460 ax-iinf 4510 ax-cnex 7735 ax-resscn 7736 ax-1cn 7737 ax-1re 7738 ax-icn 7739 ax-addcl 7740 ax-addrcl 7741 ax-mulcl 7742 ax-addcom 7744 ax-mulcom 7745 ax-addass 7746 ax-mulass 7747 ax-distr 7748 ax-i2m1 7749 ax-0lt1 7750 ax-0id 7752 ax-rnegex 7753 ax-cnre 7755 ax-pre-ltirr 7756 ax-pre-ltwlin 7757 ax-pre-lttrn 7758 ax-pre-apti 7759 ax-pre-ltadd 7760

This theorem depends on definitions: df-bi 116 df-dc 821 df-3or 964 df-3an 965 df-tru 1335 df-fal 1338 df-nf 1438 df-sb 1737 df-eu 2003 df-mo 2004 df-clab 2127 df-cleq 2133 df-clel 2136 df-nfc 2271 df-ne 2310 df-nel 2405 df-ral 2422 df-rex 2423 df-reu 2424 df-rab 2426 df-v 2691 df-sbc 2914 df-csb 3008 df-dif 3078 df-un 3080 df-in 3082 df-ss 3089 df-nul 3369 df-if 3480 df-pw 3517 df-sn 3538 df-pr 3539 df-op 3541 df-uni 3745 df-int 3780 df-iun 3823 df-br 3938 df-opab 3998 df-mpt 3999 df-tr 4035 df-id 4223 df-iord 4296 df-on 4298 df-ilim 4299 df-suc 4301 df-iom 4513 df-xp 4553 df-rel 4554 df-cnv 4555 df-co 4556 df-dm 4557 df-rn 4558 df-res 4559 df-ima 4560 df-iota 5096 df-fun 5133 df-fn 5134 df-f 5135 df-f1 5136 df-fo 5137 df-f1o 5138 df-fv 5139 df-riota 5738 df-ov 5785 df-oprab 5786 df-mpo 5787 df-1st 6046 df-2nd 6047 df-recs 6210 df-frec 6296 df-1o 6321 df-er 6437 df-en 6643 df-dom 6644 df-fin 6645 df-pnf 7826 df-mnf 7827 df-xr 7828 df-ltxr 7829 df-le 7830 df-sub 7959 df-neg 7960 df-inn 8745 df-n0 9002 df-z 9079 df-uz 9351 df-fz 9822 df-fzo 9951 df-seqfrec 10250 df-ihash 10554

This theorem is referenced by: prodmodclem2a 11377 prodmodc 11379

W3C validator