Metamath Proof Explorer


Theorem zprod

Description: Series product with index set a subset of the upper integers. (Contributed by Scott Fenton, 5-Dec-2017)

Ref Expression
Hypotheses zprod.1 ⊢ Z = ℤ ≥ M
zprod.2 ⊢ φ → M ∈ ℤ
zprod.3 ⊢ φ → ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × F ⇝ y
zprod.4 ⊢ φ → A ⊆ Z
zprod.5 ⊢ φ ∧ k ∈ Z → F ⁡ k = if k ∈ A B 1
zprod.6 ⊢ φ ∧ k ∈ A → B ∈ ℂ
Assertion zprod ⊢ φ → ∏ k ∈ A B = ⇝ ⁡ seq M × F

Proof

Step Hyp Ref Expression
1 zprod.1 ⊢ Z = ℤ ≥ M
2 zprod.2 ⊢ φ → M ∈ ℤ
3 zprod.3 ⊢ φ → ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × F ⇝ y
4 zprod.4 ⊢ φ → A ⊆ Z
5 zprod.5 ⊢ φ ∧ k ∈ Z → F ⁡ k = if k ∈ A B 1
6 zprod.6 ⊢ φ ∧ k ∈ A → B ∈ ℂ
7 3simpb ⊢ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → A ⊆ ℤ ≥ m ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
8 nfcv ⊢ Ⅎ _ i if k ∈ A B 1
9 nfv ⊢ Ⅎ k i ∈ A
10 nfcsb1v ⊢ Ⅎ _ k ⦋ i / k⦌ B
11 nfcv ⊢ Ⅎ _ k 1
12 9 10 11 nfif ⊢ Ⅎ _ k if i ∈ A ⦋ i / k⦌ B 1
13 eleq1w ⊢ k = i → k ∈ A ↔ i ∈ A
14 csbeq1a ⊢ k = i → B = ⦋ i / k⦌ B
15 13 14 ifbieq1d ⊢ k = i → if k ∈ A B 1 = if i ∈ A ⦋ i / k⦌ B 1
16 8 12 15 cbvmpt ⊢ k ∈ ℤ ⟼ if k ∈ A B 1 = i ∈ ℤ ⟼ if i ∈ A ⦋ i / k⦌ B 1
17 simpll ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → φ
18 6 ralrimiva ⊢ φ → ∀ k ∈ A B ∈ ℂ
19 10 nfel1 ⊢ Ⅎ k ⦋ i / k⦌ B ∈ ℂ
20 14 eleq1d ⊢ k = i → B ∈ ℂ ↔ ⦋ i / k⦌ B ∈ ℂ
21 19 20 rspc ⊢ i ∈ A → ∀ k ∈ A B ∈ ℂ → ⦋ i / k⦌ B ∈ ℂ
22 18 21 syl5 ⊢ i ∈ A → φ → ⦋ i / k⦌ B ∈ ℂ
23 17 22 mpan9 ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m ∧ i ∈ A → ⦋ i / k⦌ B ∈ ℂ
24 simplr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → m ∈ ℤ
25 2 ad2antrr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → M ∈ ℤ
26 simpr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → A ⊆ ℤ ≥ m
27 4 1 sseqtrdi ⊢ φ → A ⊆ ℤ ≥ M
28 27 ad2antrr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → A ⊆ ℤ ≥ M
29 16 23 24 25 26 28 prodrb ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ↔ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
30 29 biimpd ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
31 30 expimpd ⊢ φ ∧ m ∈ ℤ → A ⊆ ℤ ≥ m ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
32 7 31 syl5 ⊢ φ ∧ m ∈ ℤ → A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
33 32 rexlimdva ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
34 uzssz ⊢ ℤ ≥ M ⊆ ℤ
35 zssre ⊢ ℤ ⊆ ℝ
36 34 35 sstri ⊢ ℤ ≥ M ⊆ ℝ
37 1 36 eqsstri ⊢ Z ⊆ ℝ
38 4 37 sstrdi ⊢ φ → A ⊆ ℝ
39 38 ad2antrr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → A ⊆ ℝ
40 ltso ⊢ < Or ℝ
41 soss ⊢ A ⊆ ℝ → < Or ℝ → < Or A
42 39 40 41 mpisyl ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → < Or A
43 fzfi ⊢ 1 … m ∈ Fin
44 ovex ⊢ 1 … m ∈ V
45 44 f1oen ⊢ f : 1 … m ⟶ 1-1 onto A → 1 … m ≈ A
46 45 adantl ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → 1 … m ≈ A
47 46 ensymd ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → A ≈ 1 … m
48 enfii ⊢ 1 … m ∈ Fin ∧ A ≈ 1 … m → A ∈ Fin
49 43 47 48 sylancr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → A ∈ Fin
50 fz1iso ⊢ < Or A ∧ A ∈ Fin → ∃ g g Isom < , < 1 … A A
51 42 49 50 syl2anc ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → ∃ g g Isom < , < 1 … A A
52 simpll ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → φ
53 52 22 mpan9 ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A ∧ i ∈ A → ⦋ i / k⦌ B ∈ ℂ
54 fveq2 ⊢ n = j → f ⁡ n = f ⁡ j
55 54 csbeq1d ⊢ n = j → ⦋ f ⁡ n / k⦌ B = ⦋ f ⁡ j / k⦌ B
56 csbcow ⊢ ⦋ f ⁡ j / i⦌ ⦋ i / k⦌ B = ⦋ f ⁡ j / k⦌ B
57 55 56 eqtr4di ⊢ n = j → ⦋ f ⁡ n / k⦌ B = ⦋ f ⁡ j / i⦌ ⦋ i / k⦌ B
58 57 cbvmptv ⊢ n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B = j ∈ ℕ ⟼ ⦋ f ⁡ j / i⦌ ⦋ i / k⦌ B
59 eqid ⊢ j ∈ ℕ ⟼ ⦋ g ⁡ j / i⦌ ⦋ i / k⦌ B = j ∈ ℕ ⟼ ⦋ g ⁡ j / i⦌ ⦋ i / k⦌ B
60 simplr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → m ∈ ℕ
61 2 ad2antrr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → M ∈ ℤ
62 27 ad2antrr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → A ⊆ ℤ ≥ M
63 simprl ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → f : 1 … m ⟶ 1-1 onto A
64 simprr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → g Isom < , < 1 … A A
65 16 53 58 59 60 61 62 63 64 prodmolem2a ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
66 65 expr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → g Isom < , < 1 … A A → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
67 66 exlimdv ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → ∃ g g Isom < , < 1 … A A → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
68 51 67 mpd ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
69 breq2 ⊢ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ↔ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
70 68 69 syl5ibrcom ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
71 70 expimpd ⊢ φ ∧ m ∈ ℕ → f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
72 71 exlimdv ⊢ φ ∧ m ∈ ℕ → ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
73 72 rexlimdva ⊢ φ → ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
74 33 73 jaod ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
75 2 adantr ⊢ φ ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → M ∈ ℤ
76 4 adantr ⊢ φ ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → A ⊆ Z
77 1 eleq2i ⊢ n ∈ Z ↔ n ∈ ℤ ≥ M
78 eluzelz ⊢ n ∈ ℤ ≥ M → n ∈ ℤ
79 78 adantl ⊢ φ ∧ n ∈ ℤ ≥ M → n ∈ ℤ
80 uztrn ⊢ z ∈ ℤ ≥ n ∧ n ∈ ℤ ≥ M → z ∈ ℤ ≥ M
81 80 ancoms ⊢ n ∈ ℤ ≥ M ∧ z ∈ ℤ ≥ n → z ∈ ℤ ≥ M
82 1 eleq2i ⊢ k ∈ Z ↔ k ∈ ℤ ≥ M
83 1 34 eqsstri ⊢ Z ⊆ ℤ
84 83 sseli ⊢ k ∈ Z → k ∈ ℤ
85 iftrue ⊢ k ∈ A → if k ∈ A B 1 = B
86 85 adantl ⊢ φ ∧ k ∈ A → if k ∈ A B 1 = B
87 86 6 eqeltrd ⊢ φ ∧ k ∈ A → if k ∈ A B 1 ∈ ℂ
88 87 ex ⊢ φ → k ∈ A → if k ∈ A B 1 ∈ ℂ
89 iffalse ⊢ ¬ k ∈ A → if k ∈ A B 1 = 1
90 ax-1cn ⊢ 1 ∈ ℂ
91 89 90 eqeltrdi ⊢ ¬ k ∈ A → if k ∈ A B 1 ∈ ℂ
92 88 91 pm2.61d1 ⊢ φ → if k ∈ A B 1 ∈ ℂ
93 eqid ⊢ k ∈ ℤ ⟼ if k ∈ A B 1 = k ∈ ℤ ⟼ if k ∈ A B 1
94 93 fvmpt2 ⊢ k ∈ ℤ ∧ if k ∈ A B 1 ∈ ℂ → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = if k ∈ A B 1
95 84 92 94 syl2anr ⊢ φ ∧ k ∈ Z → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = if k ∈ A B 1
96 5 95 eqtr4d ⊢ φ ∧ k ∈ Z → F ⁡ k = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k
97 82 96 sylan2br ⊢ φ ∧ k ∈ ℤ ≥ M → F ⁡ k = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k
98 97 ralrimiva ⊢ φ → ∀ k ∈ ℤ ≥ M F ⁡ k = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k
99 nffvmpt1 ⊢ Ⅎ _ k k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
100 99 nfeq2 ⊢ Ⅎ k F ⁡ z = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
101 fveq2 ⊢ k = z → F ⁡ k = F ⁡ z
102 fveq2 ⊢ k = z → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
103 101 102 eqeq12d ⊢ k = z → F ⁡ k = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k ↔ F ⁡ z = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
104 100 103 rspc ⊢ z ∈ ℤ ≥ M → ∀ k ∈ ℤ ≥ M F ⁡ k = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k → F ⁡ z = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
105 98 104 mpan9 ⊢ φ ∧ z ∈ ℤ ≥ M → F ⁡ z = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
106 81 105 sylan2 ⊢ φ ∧ n ∈ ℤ ≥ M ∧ z ∈ ℤ ≥ n → F ⁡ z = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
107 106 anassrs ⊢ φ ∧ n ∈ ℤ ≥ M ∧ z ∈ ℤ ≥ n → F ⁡ z = k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z
108 79 107 seqfeq ⊢ φ ∧ n ∈ ℤ ≥ M → seq n × F = seq n × k ∈ ℤ ⟼ if k ∈ A B 1
109 108 breq1d ⊢ φ ∧ n ∈ ℤ ≥ M → seq n × F ⇝ y ↔ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
110 109 anbi2d ⊢ φ ∧ n ∈ ℤ ≥ M → y ≠ 0 ∧ seq n × F ⇝ y ↔ y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
111 110 exbidv ⊢ φ ∧ n ∈ ℤ ≥ M → ∃ y y ≠ 0 ∧ seq n × F ⇝ y ↔ ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
112 77 111 sylan2b ⊢ φ ∧ n ∈ Z → ∃ y y ≠ 0 ∧ seq n × F ⇝ y ↔ ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
113 112 rexbidva ⊢ φ → ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × F ⇝ y ↔ ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
114 3 113 mpbid ⊢ φ → ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
115 114 adantr ⊢ φ ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
116 simpr ⊢ φ ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
117 fveq2 ⊢ m = M → ℤ ≥ m = ℤ ≥ M
118 117 1 eqtr4di ⊢ m = M → ℤ ≥ m = Z
119 118 sseq2d ⊢ m = M → A ⊆ ℤ ≥ m ↔ A ⊆ Z
120 118 rexeqdv ⊢ m = M → ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ↔ ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y
121 seqeq1 ⊢ m = M → seq m × k ∈ ℤ ⟼ if k ∈ A B 1 = seq M × k ∈ ℤ ⟼ if k ∈ A B 1
122 121 breq1d ⊢ m = M → seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ↔ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
123 119 120 122 3anbi123d ⊢ m = M → A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ↔ A ⊆ Z ∧ ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
124 123 rspcev ⊢ M ∈ ℤ ∧ A ⊆ Z ∧ ∃ n ∈ Z ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
125 75 76 115 116 124 syl13anc ⊢ φ ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
126 125 orcd ⊢ φ ∧ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
127 126 ex ⊢ φ → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
128 74 127 impbid ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x
129 95 5 eqtr4d ⊢ φ ∧ k ∈ Z → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = F ⁡ k
130 82 129 sylan2br ⊢ φ ∧ k ∈ ℤ ≥ M → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = F ⁡ k
131 130 ralrimiva ⊢ φ → ∀ k ∈ ℤ ≥ M k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = F ⁡ k
132 99 nfeq1 ⊢ Ⅎ k k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z = F ⁡ z
133 102 101 eqeq12d ⊢ k = z → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = F ⁡ k ↔ k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z = F ⁡ z
134 132 133 rspc ⊢ z ∈ ℤ ≥ M → ∀ k ∈ ℤ ≥ M k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ k = F ⁡ k → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z = F ⁡ z
135 131 134 mpan9 ⊢ φ ∧ z ∈ ℤ ≥ M → k ∈ ℤ ⟼ if k ∈ A B 1 ⁡ z = F ⁡ z
136 2 135 seqfeq ⊢ φ → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 = seq M × F
137 136 breq1d ⊢ φ → seq M × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ↔ seq M × F ⇝ x
138 128 137 bitrd ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ seq M × F ⇝ x
139 138 iotabidv ⊢ φ → ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m = ι x | seq M × F ⇝ x
140 df-prod ⊢ ∏ k ∈ A B = ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ ∃ n ∈ ℤ ≥ m ∃ y y ≠ 0 ∧ seq n × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ y ∧ seq m × k ∈ ℤ ⟼ if k ∈ A B 1 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 × n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
141 df-fv ⊢ ⇝ ⁡ seq M × F = ι x | seq M × F ⇝ x
142 139 140 141 3eqtr4g ⊢ φ → ∏ k ∈ A B = ⇝ ⁡ seq M × F