prodmodclem3 - Intuitionistic Logic Explorer

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

Theorem prodmodclem3 12081

Description: Lemma for prodmodc 12084. (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 8122	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑚 · 𝑦) ∈ ℂ)
2	1	adantl 277	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑚 · 𝑦) ∈ ℂ)
3		mulcom 8124	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑚 · 𝑦) = (𝑦 · 𝑚))
4	3	adantl 277	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑚 · 𝑦) = (𝑦 · 𝑚))
5		mulass 8126	. . . 4 ⊢ ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑥 ∈ ℂ) → ((𝑚 · 𝑦) · 𝑥) = (𝑚 · (𝑦 · 𝑥)))
6	5	adantl 277	. . 3 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → ((𝑚 · 𝑦) · 𝑥) = (𝑚 · (𝑦 · 𝑥)))
7		prodmolem3.5	. . . . 5 ⊢ (𝜑 → (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ))
8	7	simpld 112	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℕ)
9		nnuz 9754	. . . 4 ⊢ ℕ = (ℤ_≥‘1)
10	8, 9	eleqtrdi 2322	. . 3 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘1))
11		prodmolem3.6	. . . . . 6 ⊢ (𝜑 → 𝑓:(1...𝑀)–1-1-onto→𝐴)
12		f1ocnv 5584	. . . . . 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 5594	. . . . 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 11882	. . . . . 6 ⊢ (𝜑 → 𝑀 = 𝑁)
19	18	oveq2d 6016	. . . . 5 ⊢ (𝜑 → (1...𝑀) = (1...𝑁))
20	19	f1oeq2d 5567	. . . 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 4085	. . . . . 6 ⊢ (𝑗 = 𝑚 → (𝑗 ≤ (♯‘𝐴) ↔ 𝑚 ≤ (♯‘𝐴)))
24		fveq2 5626	. . . . . . 7 ⊢ (𝑗 = 𝑚 → (𝑓‘𝑗) = (𝑓‘𝑚))
25	24	csbeq1d 3131	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋(𝑓‘𝑗) / 𝑘⦌𝐵 = ⦋(𝑓‘𝑚) / 𝑘⦌𝐵)
26	23, 25	ifbieq1d 3625	. . . . 5 ⊢ (𝑗 = 𝑚 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1))
27		elnnuz 9755	. . . . . . 7 ⊢ (𝑚 ∈ ℕ ↔ 𝑚 ∈ (ℤ_≥‘1))
28	27	biimpri 133	. . . . . 6 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 𝑚 ∈ ℕ)
29	28	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → 𝑚 ∈ ℕ)
30		f1of 5571	. . . . . . . . . 10 ⊢ (𝑓:(1...𝑀)–1-1-onto→𝐴 → 𝑓:(1...𝑀)⟶𝐴)
31	11, 30	syl 14	. . . . . . . . 9 ⊢ (𝜑 → 𝑓:(1...𝑀)⟶𝐴)
32	31	ad2antrr 488	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑓:(1...𝑀)⟶𝐴)
33		1zzd 9469	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 1 ∈ ℤ)
34	8	nnzd 9564	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℤ)
35	34	ad2antrr 488	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑀 ∈ ℤ)
36		eluzelz 9727	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 𝑚 ∈ ℤ)
37	36	ad2antlr 489	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ ℤ)
38	33, 35, 37	3jca 1201	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑚 ∈ ℤ))
39		eluzle 9730	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ℤ_≥‘1) → 1 ≤ 𝑚)
40	39	ad2antlr 489	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 1 ≤ 𝑚)
41		simpr 110	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ≤ (♯‘𝐴))
42	8	nnnn0d 9418	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
43		hashfz1 11000	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ₀ → (♯‘(1...𝑀)) = 𝑀)
44	42, 43	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(1...𝑀)) = 𝑀)
45		1zzd 9469	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℤ)
46	45, 34	fzfigd 10648	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1...𝑀) ∈ Fin)
47	46, 11	fihasheqf1od 11006	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘(1...𝑀)) = (♯‘𝐴))
48	44, 47	eqtr3d 2264	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 = (♯‘𝐴))
49	48	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑀 = (♯‘𝐴))
50	41, 49	breqtrrd 4110	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ≤ 𝑀)
51	40, 50	jca 306	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (1 ≤ 𝑚 ∧ 𝑚 ≤ 𝑀))
52		elfz2 10207	. . . . . . . . 9 ⊢ (𝑚 ∈ (1...𝑀) ↔ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑚 ∈ ℤ) ∧ (1 ≤ 𝑚 ∧ 𝑚 ≤ 𝑀)))
53	38, 51, 52	sylanbrc 417	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ (1...𝑀))
54	32, 53	ffvelcdmd 5770	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (𝑓‘𝑚) ∈ 𝐴)
55		prodmo.2	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → 𝐵 ∈ ℂ)
56	55	ralrimiva 2603	. . . . . . . 8 ⊢ (𝜑 → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
57	56	ad2antrr 488	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
58		nfcsb1v 3157	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋(𝑓‘𝑚) / 𝑘⦌𝐵
59	58	nfel1 2383	. . . . . . . 8 ⊢ Ⅎ𝑘⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ
60		csbeq1a 3133	. . . . . . . . 9 ⊢ (𝑘 = (𝑓‘𝑚) → 𝐵 = ⦋(𝑓‘𝑚) / 𝑘⦌𝐵)
61	60	eleq1d 2298	. . . . . . . 8 ⊢ (𝑘 = (𝑓‘𝑚) → (𝐵 ∈ ℂ ↔ ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
62	59, 61	rspc 2901	. . . . . . 7 ⊢ ((𝑓‘𝑚) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
63	54, 57, 62	sylc 62	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ⦋(𝑓‘𝑚) / 𝑘⦌𝐵 ∈ ℂ)
64		1cnd 8158	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑚 ≤ (♯‘𝐴)) → 1 ∈ ℂ)
65	29	nnzd 9564	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → 𝑚 ∈ ℤ)
66	48, 34	eqeltrrd 2307	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐴) ∈ ℤ)
67	66	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (♯‘𝐴) ∈ ℤ)
68		zdcle 9519	. . . . . . 7 ⊢ ((𝑚 ∈ ℤ ∧ (♯‘𝐴) ∈ ℤ) → DECID 𝑚 ≤ (♯‘𝐴))
69	65, 67, 68	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → DECID 𝑚 ≤ (♯‘𝐴))
70	63, 64, 69	ifcldadc 3632	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1) ∈ ℂ)
71	22, 26, 29, 70	fvmptd3 5727	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐺‘𝑚) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝑓‘𝑚) / 𝑘⦌𝐵, 1))
72	71, 70	eqeltrd 2306	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐺‘𝑚) ∈ ℂ)
73		prodmodclem3.4	. . . . 5 ⊢ 𝐻 = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1))
74		fveq2 5626	. . . . . . 7 ⊢ (𝑗 = 𝑚 → (𝐾‘𝑗) = (𝐾‘𝑚))
75	74	csbeq1d 3131	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋(𝐾‘𝑗) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑚) / 𝑘⦌𝐵)
76	23, 75	ifbieq1d 3625	. . . . 5 ⊢ (𝑗 = 𝑚 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1))
77	14	ad2antrr 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝐾:(1...𝑁)–1-1-onto→𝐴)
78		f1of 5571	. . . . . . . . 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 2308	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → 𝑚 ∈ (1...𝑁))
82	79, 81	ffvelcdmd 5770	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → (𝐾‘𝑚) ∈ 𝐴)
83		nfcsb1v 3157	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋(𝐾‘𝑚) / 𝑘⦌𝐵
84	83	nfel1 2383	. . . . . . . 8 ⊢ Ⅎ𝑘⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ
85		csbeq1a 3133	. . . . . . . . 9 ⊢ (𝑘 = (𝐾‘𝑚) → 𝐵 = ⦋(𝐾‘𝑚) / 𝑘⦌𝐵)
86	85	eleq1d 2298	. . . . . . . 8 ⊢ (𝑘 = (𝐾‘𝑚) → (𝐵 ∈ ℂ ↔ ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
87	84, 86	rspc 2901	. . . . . . 7 ⊢ ((𝐾‘𝑚) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ))
88	82, 57, 87	sylc 62	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) ∧ 𝑚 ≤ (♯‘𝐴)) → ⦋(𝐾‘𝑚) / 𝑘⦌𝐵 ∈ ℂ)
89	88, 64, 69	ifcldadc 3632	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1) ∈ ℂ)
90	73, 76, 29, 89	fvmptd3 5727	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐻‘𝑚) = if(𝑚 ≤ (♯‘𝐴), ⦋(𝐾‘𝑚) / 𝑘⦌𝐵, 1))
91	90, 89	eqeltrd 2306	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ_≥‘1)) → (𝐻‘𝑚) ∈ ℂ)
92	19	f1oeq2d 5567	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾:(1...𝑀)–1-1-onto→𝐴 ↔ 𝐾:(1...𝑁)–1-1-onto→𝐴))
93	14, 92	mpbird 167	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:(1...𝑀)–1-1-onto→𝐴)
94		f1of 5571	. . . . . . . . 9 ⊢ (𝐾:(1...𝑀)–1-1-onto→𝐴 → 𝐾:(1...𝑀)⟶𝐴)
95	93, 94	syl 14	. . . . . . . 8 ⊢ (𝜑 → 𝐾:(1...𝑀)⟶𝐴)
96		fvco3 5704	. . . . . . . 8 ⊢ ((𝐾:(1...𝑀)⟶𝐴 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) = (^◡𝑓‘(𝐾‘𝑖)))
97	95, 96	sylan 283	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) = (^◡𝑓‘(𝐾‘𝑖)))
98	97	fveq2d 5630	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = (𝑓‘(^◡𝑓‘(𝐾‘𝑖))))
99	11	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑓:(1...𝑀)–1-1-onto→𝐴)
100	95	ffvelcdmda 5769	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐾‘𝑖) ∈ 𝐴)
101		f1ocnvfv2 5901	. . . . . . 7 ⊢ ((𝑓:(1...𝑀)–1-1-onto→𝐴 ∧ (𝐾‘𝑖) ∈ 𝐴) → (𝑓‘(^◡𝑓‘(𝐾‘𝑖))) = (𝐾‘𝑖))
102	99, 100, 101	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘(^◡𝑓‘(𝐾‘𝑖))) = (𝐾‘𝑖))
103	98, 102	eqtrd 2262	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = (𝐾‘𝑖))
104	103	csbeq1d 3131	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
105		breq1 4085	. . . . . . 7 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → (𝑗 ≤ (♯‘𝐴) ↔ ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴)))
106		fveq2 5626	. . . . . . . 8 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → (𝑓‘𝑗) = (𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)))
107	106	csbeq1d 3131	. . . . . . 7 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → ⦋(𝑓‘𝑗) / 𝑘⦌𝐵 = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
108	105, 107	ifbieq1d 3625	. . . . . 6 ⊢ (𝑗 = ((^◡𝑓 ∘ 𝐾)‘𝑖) → if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑘⦌𝐵, 1) = if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1))
109		f1of 5571	. . . . . . . . 9 ⊢ ((^◡𝑓 ∘ 𝐾):(1...𝑀)–1-1-onto→(1...𝑀) → (^◡𝑓 ∘ 𝐾):(1...𝑀)⟶(1...𝑀))
110	21, 109	syl 14	. . . . . . . 8 ⊢ (𝜑 → (^◡𝑓 ∘ 𝐾):(1...𝑀)⟶(1...𝑀))
111	110	ffvelcdmda 5769	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀))
112		elfznn 10246	. . . . . . 7 ⊢ (((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ ℕ)
113	111, 112	syl 14	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ ℕ)
114		elfzle2 10220	. . . . . . . . . 10 ⊢ (((^◡𝑓 ∘ 𝐾)‘𝑖) ∈ (1...𝑀) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ 𝑀)
115	111, 114	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ 𝑀)
116	48	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑀 = (♯‘𝐴))
117	115, 116	breqtrd 4108	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴))
118	117	iftrued 3609	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1) = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
119	56	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ)
120		nfcsb1v 3157	. . . . . . . . . . 11 ⊢ Ⅎ𝑘⦋(𝐾‘𝑖) / 𝑘⦌𝐵
121	120	nfel1 2383	. . . . . . . . . 10 ⊢ Ⅎ𝑘⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ
122		csbeq1a 3133	. . . . . . . . . . 11 ⊢ (𝑘 = (𝐾‘𝑖) → 𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
123	122	eleq1d 2298	. . . . . . . . . 10 ⊢ (𝑘 = (𝐾‘𝑖) → (𝐵 ∈ ℂ ↔ ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ))
124	121, 123	rspc 2901	. . . . . . . . 9 ⊢ ((𝐾‘𝑖) ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ))
125	100, 119, 124	sylc 62	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝐾‘𝑖) / 𝑘⦌𝐵 ∈ ℂ)
126	104, 125	eqeltrd 2306	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵 ∈ ℂ)
127	118, 126	eqeltrd 2306	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1) ∈ ℂ)
128	22, 108, 113, 127	fvmptd3 5727	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = if(((^◡𝑓 ∘ 𝐾)‘𝑖) ≤ (♯‘𝐴), ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵, 1))
129	128, 118	eqtrd 2262	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)) = ⦋(𝑓‘((^◡𝑓 ∘ 𝐾)‘𝑖)) / 𝑘⦌𝐵)
130		breq1 4085	. . . . . . 7 ⊢ (𝑗 = 𝑖 → (𝑗 ≤ (♯‘𝐴) ↔ 𝑖 ≤ (♯‘𝐴)))
131		fveq2 5626	. . . . . . . 8 ⊢ (𝑗 = 𝑖 → (𝐾‘𝑗) = (𝐾‘𝑖))
132	131	csbeq1d 3131	. . . . . . 7 ⊢ (𝑗 = 𝑖 → ⦋(𝐾‘𝑗) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
133	130, 132	ifbieq1d 3625	. . . . . 6 ⊢ (𝑗 = 𝑖 → if(𝑗 ≤ (♯‘𝐴), ⦋(𝐾‘𝑗) / 𝑘⦌𝐵, 1) = if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1))
134		elfznn 10246	. . . . . . 7 ⊢ (𝑖 ∈ (1...𝑀) → 𝑖 ∈ ℕ)
135	134	adantl 277	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ∈ ℕ)
136		elfzle2 10220	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...𝑀) → 𝑖 ≤ 𝑀)
137	136	adantl 277	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ≤ 𝑀)
138	137, 116	breqtrd 4108	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → 𝑖 ≤ (♯‘𝐴))
139	138	iftrued 3609	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1) = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
140	139, 125	eqeltrd 2306	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1) ∈ ℂ)
141	73, 133, 135, 140	fvmptd3 5727	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = if(𝑖 ≤ (♯‘𝐴), ⦋(𝐾‘𝑖) / 𝑘⦌𝐵, 1))
142	141, 139	eqtrd 2262	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = ⦋(𝐾‘𝑖) / 𝑘⦌𝐵)
143	104, 129, 142	3eqtr4rd 2273	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑀)) → (𝐻‘𝑖) = (𝐺‘((^◡𝑓 ∘ 𝐾)‘𝑖)))
144	2, 4, 6, 10, 21, 72, 91, 143	seq3f1o 10734	. 2 ⊢ (𝜑 → (seq1( · , 𝐻)‘𝑀) = (seq1( · , 𝐺)‘𝑀))
145	18	fveq2d 5630	. 2 ⊢ (𝜑 → (seq1( · , 𝐻)‘𝑀) = (seq1( · , 𝐻)‘𝑁))
146	144, 145	eqtr3d 2264	1 ⊢ (𝜑 → (seq1( · , 𝐺)‘𝑀) = (seq1( · , 𝐻)‘𝑁))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 DECID wdc 839 ∧ w3a 1002 = wceq 1395 ∈ wcel 2200 ∀wral 2508 ⦋csb 3124 ifcif 3602 class class class wbr 4082 ↦ cmpt 4144 ^◡ccnv 4717 ∘ ccom 4722 ⟶wf 5313 –1-1-onto→wf1o 5316 ‘cfv 5317 (class class class)co 6000 ℂcc 7993 1c1 7996 · cmul 8000 ≤ cle 8178 ℕcn 9106 ℕ₀cn0 9365 ℤcz 9442 ℤ_≥cuz 9718 ...cfz 10200 seqcseq 10664 ♯chash 10992

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 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4198 ax-sep 4201 ax-nul 4209 ax-pow 4257 ax-pr 4292 ax-un 4523 ax-setind 4628 ax-iinf 4679 ax-cnex 8086 ax-resscn 8087 ax-1cn 8088 ax-1re 8089 ax-icn 8090 ax-addcl 8091 ax-addrcl 8092 ax-mulcl 8093 ax-addcom 8095 ax-mulcom 8096 ax-addass 8097 ax-mulass 8098 ax-distr 8099 ax-i2m1 8100 ax-0lt1 8101 ax-0id 8103 ax-rnegex 8104 ax-cnre 8106 ax-pre-ltirr 8107 ax-pre-ltwlin 8108 ax-pre-lttrn 8109 ax-pre-apti 8110 ax-pre-ltadd 8111

This theorem depends on definitions: df-bi 117 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-nel 2496 df-ral 2513 df-rex 2514 df-reu 2515 df-rab 2517 df-v 2801 df-sbc 3029 df-csb 3125 df-dif 3199 df-un 3201 df-in 3203 df-ss 3210 df-nul 3492 df-if 3603 df-pw 3651 df-sn 3672 df-pr 3673 df-op 3675 df-uni 3888 df-int 3923 df-iun 3966 df-br 4083 df-opab 4145 df-mpt 4146 df-tr 4182 df-id 4383 df-iord 4456 df-on 4458 df-ilim 4459 df-suc 4461 df-iom 4682 df-xp 4724 df-rel 4725 df-cnv 4726 df-co 4727 df-dm 4728 df-rn 4729 df-res 4730 df-ima 4731 df-iota 5277 df-fun 5319 df-fn 5320 df-f 5321 df-f1 5322 df-fo 5323 df-f1o 5324 df-fv 5325 df-riota 5953 df-ov 6003 df-oprab 6004 df-mpo 6005 df-1st 6284 df-2nd 6285 df-recs 6449 df-frec 6535 df-1o 6560 df-er 6678 df-en 6886 df-dom 6887 df-fin 6888 df-pnf 8179 df-mnf 8180 df-xr 8181 df-ltxr 8182 df-le 8183 df-sub 8315 df-neg 8316 df-inn 9107 df-n0 9366 df-z 9443 df-uz 9719 df-fz 10201 df-fzo 10335 df-seqfrec 10665 df-ihash 10993

This theorem is referenced by: prodmodclem2a 12082 prodmodc 12084

W3C validator