MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  prodeq2ii Structured version   Visualization version   GIF version

Theorem prodeq2ii 15255
Description: Equality theorem for product, with the class expressions 𝐵 and 𝐶 guarded by I to be always sets. (Contributed by Scott Fenton, 4-Dec-2017.)
Assertion
Ref Expression
prodeq2ii (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → ∏𝑘𝐴 𝐵 = ∏𝑘𝐴 𝐶)
Distinct variable group:   𝐴,𝑘
Allowed substitution hints:   𝐵(𝑘)   𝐶(𝑘)

Proof of Theorem prodeq2ii
Dummy variables 𝑓 𝑚 𝑛 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eluzelz 12241 . . . . . . . . . . . . 13 (𝑛 ∈ (ℤ𝑚) → 𝑛 ∈ ℤ)
21adantl 482 . . . . . . . . . . . 12 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑛 ∈ (ℤ𝑚)) → 𝑛 ∈ ℤ)
3 nfra1 3216 . . . . . . . . . . . . . . . . 17 𝑘𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶)
4 rsp 3202 . . . . . . . . . . . . . . . . . . . . 21 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → (𝑘𝐴 → ( I ‘𝐵) = ( I ‘𝐶)))
54adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑘 ∈ ℤ) → (𝑘𝐴 → ( I ‘𝐵) = ( I ‘𝐶)))
6 ifeq1 4467 . . . . . . . . . . . . . . . . . . . 20 (( I ‘𝐵) = ( I ‘𝐶) → if(𝑘𝐴, ( I ‘𝐵), ( I ‘1)) = if(𝑘𝐴, ( I ‘𝐶), ( I ‘1)))
75, 6syl6 35 . . . . . . . . . . . . . . . . . . 19 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑘 ∈ ℤ) → (𝑘𝐴 → if(𝑘𝐴, ( I ‘𝐵), ( I ‘1)) = if(𝑘𝐴, ( I ‘𝐶), ( I ‘1))))
8 iffalse 4472 . . . . . . . . . . . . . . . . . . . 20 𝑘𝐴 → if(𝑘𝐴, ( I ‘𝐵), ( I ‘1)) = ( I ‘1))
9 iffalse 4472 . . . . . . . . . . . . . . . . . . . 20 𝑘𝐴 → if(𝑘𝐴, ( I ‘𝐶), ( I ‘1)) = ( I ‘1))
108, 9eqtr4d 2856 . . . . . . . . . . . . . . . . . . 19 𝑘𝐴 → if(𝑘𝐴, ( I ‘𝐵), ( I ‘1)) = if(𝑘𝐴, ( I ‘𝐶), ( I ‘1)))
117, 10pm2.61d1 181 . . . . . . . . . . . . . . . . . 18 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑘 ∈ ℤ) → if(𝑘𝐴, ( I ‘𝐵), ( I ‘1)) = if(𝑘𝐴, ( I ‘𝐶), ( I ‘1)))
12 fvif 6679 . . . . . . . . . . . . . . . . . 18 ( I ‘if(𝑘𝐴, 𝐵, 1)) = if(𝑘𝐴, ( I ‘𝐵), ( I ‘1))
13 fvif 6679 . . . . . . . . . . . . . . . . . 18 ( I ‘if(𝑘𝐴, 𝐶, 1)) = if(𝑘𝐴, ( I ‘𝐶), ( I ‘1))
1411, 12, 133eqtr4g 2878 . . . . . . . . . . . . . . . . 17 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑘 ∈ ℤ) → ( I ‘if(𝑘𝐴, 𝐵, 1)) = ( I ‘if(𝑘𝐴, 𝐶, 1)))
153, 14mpteq2da 5151 . . . . . . . . . . . . . . . 16 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1))) = (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1))))
1615adantr 481 . . . . . . . . . . . . . . 15 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑥 ∈ (ℤ𝑛)) → (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1))) = (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1))))
1716fveq1d 6665 . . . . . . . . . . . . . 14 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑥 ∈ (ℤ𝑛)) → ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1)))‘𝑥) = ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1)))‘𝑥))
1817adantlr 711 . . . . . . . . . . . . 13 (((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑛 ∈ (ℤ𝑚)) ∧ 𝑥 ∈ (ℤ𝑛)) → ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1)))‘𝑥) = ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1)))‘𝑥))
19 eqid 2818 . . . . . . . . . . . . . 14 (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))
20 eqid 2818 . . . . . . . . . . . . . 14 (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1))) = (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1)))
2119, 20fvmptex 6774 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))‘𝑥) = ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1)))‘𝑥)
22 eqid 2818 . . . . . . . . . . . . . 14 (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))
23 eqid 2818 . . . . . . . . . . . . . 14 (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1))) = (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1)))
2422, 23fvmptex 6774 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))‘𝑥) = ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1)))‘𝑥)
2518, 21, 243eqtr4g 2878 . . . . . . . . . . . 12 (((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑛 ∈ (ℤ𝑚)) ∧ 𝑥 ∈ (ℤ𝑛)) → ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))‘𝑥) = ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))‘𝑥))
262, 25seqfeq 13383 . . . . . . . . . . 11 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑛 ∈ (ℤ𝑚)) → seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) = seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
2726breq1d 5067 . . . . . . . . . 10 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑛 ∈ (ℤ𝑚)) → (seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦 ↔ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦))
2827anbi2d 628 . . . . . . . . 9 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑛 ∈ (ℤ𝑚)) → ((𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ (𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦)))
2928exbidv 1913 . . . . . . . 8 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑛 ∈ (ℤ𝑚)) → (∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦)))
3029rexbidva 3293 . . . . . . 7 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦)))
3130adantr 481 . . . . . 6 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℤ) → (∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ↔ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦)))
32 simpr 485 . . . . . . . 8 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℤ) → 𝑚 ∈ ℤ)
3315adantr 481 . . . . . . . . . . 11 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑥 ∈ (ℤ𝑚)) → (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1))) = (𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1))))
3433fveq1d 6665 . . . . . . . . . 10 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑥 ∈ (ℤ𝑚)) → ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐵, 1)))‘𝑥) = ((𝑘 ∈ ℤ ↦ ( I ‘if(𝑘𝐴, 𝐶, 1)))‘𝑥))
3534, 21, 243eqtr4g 2878 . . . . . . . . 9 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑥 ∈ (ℤ𝑚)) → ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))‘𝑥) = ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))‘𝑥))
3635adantlr 711 . . . . . . . 8 (((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℤ) ∧ 𝑥 ∈ (ℤ𝑚)) → ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))‘𝑥) = ((𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))‘𝑥))
3732, 36seqfeq 13383 . . . . . . 7 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℤ) → seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) = seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))))
3837breq1d 5067 . . . . . 6 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℤ) → (seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑥 ↔ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥))
3931, 383anbi23d 1430 . . . . 5 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℤ) → ((𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑥) ↔ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)))
4039rexbidva 3293 . . . 4 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑥) ↔ ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥)))
41 simplr 765 . . . . . . . . . 10 (((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → 𝑚 ∈ ℕ)
42 nnuz 12269 . . . . . . . . . 10 ℕ = (ℤ‘1)
4341, 42eleqtrdi 2920 . . . . . . . . 9 (((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → 𝑚 ∈ (ℤ‘1))
44 f1of 6608 . . . . . . . . . . . . . 14 (𝑓:(1...𝑚)–1-1-onto𝐴𝑓:(1...𝑚)⟶𝐴)
4544ad2antlr 723 . . . . . . . . . . . . 13 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → 𝑓:(1...𝑚)⟶𝐴)
46 ffvelrn 6841 . . . . . . . . . . . . 13 ((𝑓:(1...𝑚)⟶𝐴𝑥 ∈ (1...𝑚)) → (𝑓𝑥) ∈ 𝐴)
4745, 46sylancom 588 . . . . . . . . . . . 12 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → (𝑓𝑥) ∈ 𝐴)
48 simplll 771 . . . . . . . . . . . 12 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → ∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶))
49 nfcsb1v 3904 . . . . . . . . . . . . . 14 𝑘(𝑓𝑥) / 𝑘( I ‘𝐵)
50 nfcsb1v 3904 . . . . . . . . . . . . . 14 𝑘(𝑓𝑥) / 𝑘( I ‘𝐶)
5149, 50nfeq 2988 . . . . . . . . . . . . 13 𝑘(𝑓𝑥) / 𝑘( I ‘𝐵) = (𝑓𝑥) / 𝑘( I ‘𝐶)
52 csbeq1a 3894 . . . . . . . . . . . . . 14 (𝑘 = (𝑓𝑥) → ( I ‘𝐵) = (𝑓𝑥) / 𝑘( I ‘𝐵))
53 csbeq1a 3894 . . . . . . . . . . . . . 14 (𝑘 = (𝑓𝑥) → ( I ‘𝐶) = (𝑓𝑥) / 𝑘( I ‘𝐶))
5452, 53eqeq12d 2834 . . . . . . . . . . . . 13 (𝑘 = (𝑓𝑥) → (( I ‘𝐵) = ( I ‘𝐶) ↔ (𝑓𝑥) / 𝑘( I ‘𝐵) = (𝑓𝑥) / 𝑘( I ‘𝐶)))
5551, 54rspc 3608 . . . . . . . . . . . 12 ((𝑓𝑥) ∈ 𝐴 → (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → (𝑓𝑥) / 𝑘( I ‘𝐵) = (𝑓𝑥) / 𝑘( I ‘𝐶)))
5647, 48, 55sylc 65 . . . . . . . . . . 11 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → (𝑓𝑥) / 𝑘( I ‘𝐵) = (𝑓𝑥) / 𝑘( I ‘𝐶))
57 fvex 6676 . . . . . . . . . . . 12 (𝑓𝑥) ∈ V
58 csbfv2g 6707 . . . . . . . . . . . 12 ((𝑓𝑥) ∈ V → (𝑓𝑥) / 𝑘( I ‘𝐵) = ( I ‘(𝑓𝑥) / 𝑘𝐵))
5957, 58ax-mp 5 . . . . . . . . . . 11 (𝑓𝑥) / 𝑘( I ‘𝐵) = ( I ‘(𝑓𝑥) / 𝑘𝐵)
60 csbfv2g 6707 . . . . . . . . . . . 12 ((𝑓𝑥) ∈ V → (𝑓𝑥) / 𝑘( I ‘𝐶) = ( I ‘(𝑓𝑥) / 𝑘𝐶))
6157, 60ax-mp 5 . . . . . . . . . . 11 (𝑓𝑥) / 𝑘( I ‘𝐶) = ( I ‘(𝑓𝑥) / 𝑘𝐶)
6256, 59, 613eqtr3g 2876 . . . . . . . . . 10 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → ( I ‘(𝑓𝑥) / 𝑘𝐵) = ( I ‘(𝑓𝑥) / 𝑘𝐶))
63 elfznn 12924 . . . . . . . . . . . 12 (𝑥 ∈ (1...𝑚) → 𝑥 ∈ ℕ)
6463adantl 482 . . . . . . . . . . 11 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → 𝑥 ∈ ℕ)
65 fveq2 6663 . . . . . . . . . . . . 13 (𝑛 = 𝑥 → (𝑓𝑛) = (𝑓𝑥))
6665csbeq1d 3884 . . . . . . . . . . . 12 (𝑛 = 𝑥(𝑓𝑛) / 𝑘𝐵 = (𝑓𝑥) / 𝑘𝐵)
67 eqid 2818 . . . . . . . . . . . 12 (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵) = (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)
6866, 67fvmpti 6760 . . . . . . . . . . 11 (𝑥 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)‘𝑥) = ( I ‘(𝑓𝑥) / 𝑘𝐵))
6964, 68syl 17 . . . . . . . . . 10 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → ((𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)‘𝑥) = ( I ‘(𝑓𝑥) / 𝑘𝐵))
7065csbeq1d 3884 . . . . . . . . . . . 12 (𝑛 = 𝑥(𝑓𝑛) / 𝑘𝐶 = (𝑓𝑥) / 𝑘𝐶)
71 eqid 2818 . . . . . . . . . . . 12 (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶) = (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶)
7270, 71fvmpti 6760 . . . . . . . . . . 11 (𝑥 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶)‘𝑥) = ( I ‘(𝑓𝑥) / 𝑘𝐶))
7364, 72syl 17 . . . . . . . . . 10 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → ((𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶)‘𝑥) = ( I ‘(𝑓𝑥) / 𝑘𝐶))
7462, 69, 733eqtr4d 2863 . . . . . . . . 9 ((((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) ∧ 𝑥 ∈ (1...𝑚)) → ((𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)‘𝑥) = ((𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶)‘𝑥))
7543, 74seqfveq 13382 . . . . . . . 8 (((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚) = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))
7675eqeq2d 2829 . . . . . . 7 (((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → (𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚) ↔ 𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚)))
7776pm5.32da 579 . . . . . 6 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) → ((𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ (𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))))
7877exbidv 1913 . . . . 5 ((∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) ∧ 𝑚 ∈ ℕ) → (∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))))
7978rexbidva 3293 . . . 4 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))))
8040, 79orbi12d 912 . . 3 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ↔ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚)))))
8180iotabidv 6332 . 2 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))) = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚)))))
82 df-prod 15248 . 2 𝑘𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
83 df-prod 15248 . 2 𝑘𝐴 𝐶 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ ∃𝑛 ∈ (ℤ𝑚)∃𝑦(𝑦 ≠ 0 ∧ seq𝑛( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑦) ∧ seq𝑚( · , (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐶, 1))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( · , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐶))‘𝑚))))
8481, 82, 833eqtr4g 2878 1 (∀𝑘𝐴 ( I ‘𝐵) = ( I ‘𝐶) → ∏𝑘𝐴 𝐵 = ∏𝑘𝐴 𝐶)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  wo 841  w3a 1079   = wceq 1528  wex 1771  wcel 2105  wne 3013  wral 3135  wrex 3136  Vcvv 3492  csb 3880  wss 3933  ifcif 4463   class class class wbr 5057  cmpt 5137   I cid 5452  cio 6305  wf 6344  1-1-ontowf1o 6347  cfv 6348  (class class class)co 7145  0cc0 10525  1c1 10526   · cmul 10530  cn 11626  cz 11969  cuz 12231  ...cfz 12880  seqcseq 13357  cli 14829  cprod 15247
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2790  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7450  ax-cnex 10581  ax-resscn 10582  ax-1cn 10583  ax-icn 10584  ax-addcl 10585  ax-addrcl 10586  ax-mulcl 10587  ax-mulrcl 10588  ax-mulcom 10589  ax-addass 10590  ax-mulass 10591  ax-distr 10592  ax-i2m1 10593  ax-1ne0 10594  ax-1rid 10595  ax-rnegex 10596  ax-rrecex 10597  ax-cnre 10598  ax-pre-lttri 10599  ax-pre-lttrn 10600  ax-pre-ltadd 10601  ax-pre-mulgt0 10602
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-3or 1080  df-3an 1081  df-tru 1531  df-fal 1541  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2615  df-eu 2647  df-clab 2797  df-cleq 2811  df-clel 2890  df-nfc 2960  df-ne 3014  df-nel 3121  df-ral 3140  df-rex 3141  df-reu 3142  df-rab 3144  df-v 3494  df-sbc 3770  df-csb 3881  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-pss 3951  df-nul 4289  df-if 4464  df-pw 4537  df-sn 4558  df-pr 4560  df-tp 4562  df-op 4564  df-uni 4831  df-iun 4912  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141  df-ord 6187  df-on 6188  df-lim 6189  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-riota 7103  df-ov 7148  df-oprab 7149  df-mpo 7150  df-om 7570  df-1st 7678  df-2nd 7679  df-wrecs 7936  df-recs 7997  df-rdg 8035  df-er 8278  df-en 8498  df-dom 8499  df-sdom 8500  df-pnf 10665  df-mnf 10666  df-xr 10667  df-ltxr 10668  df-le 10669  df-sub 10860  df-neg 10861  df-nn 11627  df-n0 11886  df-z 11970  df-uz 12232  df-fz 12881  df-seq 13358  df-prod 15248
This theorem is referenced by:  prodeq2  15256  prod2id  15270
  Copyright terms: Public domain W3C validator