Metamath Proof Explorer


Theorem sumeq2ii

Description: Equality theorem for sum, with the class expressions B and C guarded by _I to be always sets. (Contributed by Mario Carneiro, 13-Jun-2019)

Ref Expression
Assertion sumeq2ii ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C → ∑ k ∈ A B = ∑ k ∈ A C

Proof

Step Hyp Ref Expression
1 simpr ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ → m ∈ ℤ
2 simpr ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m ∧ n ∈ A → n ∈ A
3 simplll ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m ∧ n ∈ A → ∀ k ∈ A I ⁡ B = I ⁡ C
4 nfcv ⊢ Ⅎ _ k I
5 nfcsb1v ⊢ Ⅎ _ k ⦋ n / k⦌ B
6 4 5 nffv ⊢ Ⅎ _ k I ⁡ ⦋ n / k⦌ B
7 nfcsb1v ⊢ Ⅎ _ k ⦋ n / k⦌ C
8 4 7 nffv ⊢ Ⅎ _ k I ⁡ ⦋ n / k⦌ C
9 6 8 nfeq ⊢ Ⅎ k I ⁡ ⦋ n / k⦌ B = I ⁡ ⦋ n / k⦌ C
10 csbeq1a ⊢ k = n → B = ⦋ n / k⦌ B
11 10 fveq2d ⊢ k = n → I ⁡ B = I ⁡ ⦋ n / k⦌ B
12 csbeq1a ⊢ k = n → C = ⦋ n / k⦌ C
13 12 fveq2d ⊢ k = n → I ⁡ C = I ⁡ ⦋ n / k⦌ C
14 11 13 eqeq12d ⊢ k = n → I ⁡ B = I ⁡ C ↔ I ⁡ ⦋ n / k⦌ B = I ⁡ ⦋ n / k⦌ C
15 9 14 rspc ⊢ n ∈ A → ∀ k ∈ A I ⁡ B = I ⁡ C → I ⁡ ⦋ n / k⦌ B = I ⁡ ⦋ n / k⦌ C
16 2 3 15 sylc ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m ∧ n ∈ A → I ⁡ ⦋ n / k⦌ B = I ⁡ ⦋ n / k⦌ C
17 16 ifeq1da ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m → if n ∈ A I ⁡ ⦋ n / k⦌ B I ⁡ 0 = if n ∈ A I ⁡ ⦋ n / k⦌ C I ⁡ 0
18 fvif ⊢ I ⁡ if n ∈ A ⦋ n / k⦌ B 0 = if n ∈ A I ⁡ ⦋ n / k⦌ B I ⁡ 0
19 fvif ⊢ I ⁡ if n ∈ A ⦋ n / k⦌ C 0 = if n ∈ A I ⁡ ⦋ n / k⦌ C I ⁡ 0
20 17 18 19 3eqtr4g ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m → I ⁡ if n ∈ A ⦋ n / k⦌ B 0 = I ⁡ if n ∈ A ⦋ n / k⦌ C 0
21 20 mpteq2dv ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m → n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ B 0 = n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ C 0
22 21 fveq1d ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m → n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ B 0 ⁡ x = n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ C 0 ⁡ x
23 eqid ⊢ n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 = n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0
24 eqid ⊢ n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ B 0 = n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ B 0
25 23 24 fvmptex ⊢ n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⁡ x = n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ B 0 ⁡ x
26 eqid ⊢ n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 = n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0
27 eqid ⊢ n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ C 0 = n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ C 0
28 26 27 fvmptex ⊢ n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⁡ x = n ∈ ℤ ⟼ I ⁡ if n ∈ A ⦋ n / k⦌ C 0 ⁡ x
29 22 25 28 3eqtr4g ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ ∧ x ∈ ℤ ≥ m → n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⁡ x = n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⁡ x
30 1 29 seqfeq ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ → seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 = seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0
31 30 breq1d ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ → seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⇝ x
32 31 anbi2d ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℤ → A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⇝ x
33 32 rexbidva ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⇝ x
34 simplr ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → m ∈ ℕ
35 nnuz ⊢ ℕ = ℤ ≥ 1
36 34 35 eleqtrdi ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → m ∈ ℤ ≥ 1
37 f1of ⊢ f : 1 … m ⟶ 1-1 onto A → f : 1 … m ⟶ A
38 37 ad2antlr ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → f : 1 … m ⟶ A
39 ffvelcdm ⊢ f : 1 … m ⟶ A ∧ x ∈ 1 … m → f ⁡ x ∈ A
40 38 39 sylancom ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → f ⁡ x ∈ A
41 simplll ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → ∀ k ∈ A I ⁡ B = I ⁡ C
42 nfcsb1v ⊢ Ⅎ _ k ⦋ f ⁡ x / k⦌ I ⁡ B
43 nfcsb1v ⊢ Ⅎ _ k ⦋ f ⁡ x / k⦌ I ⁡ C
44 42 43 nfeq ⊢ Ⅎ k ⦋ f ⁡ x / k⦌ I ⁡ B = ⦋ f ⁡ x / k⦌ I ⁡ C
45 csbeq1a ⊢ k = f ⁡ x → I ⁡ B = ⦋ f ⁡ x / k⦌ I ⁡ B
46 csbeq1a ⊢ k = f ⁡ x → I ⁡ C = ⦋ f ⁡ x / k⦌ I ⁡ C
47 45 46 eqeq12d ⊢ k = f ⁡ x → I ⁡ B = I ⁡ C ↔ ⦋ f ⁡ x / k⦌ I ⁡ B = ⦋ f ⁡ x / k⦌ I ⁡ C
48 44 47 rspc ⊢ f ⁡ x ∈ A → ∀ k ∈ A I ⁡ B = I ⁡ C → ⦋ f ⁡ x / k⦌ I ⁡ B = ⦋ f ⁡ x / k⦌ I ⁡ C
49 40 41 48 sylc ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → ⦋ f ⁡ x / k⦌ I ⁡ B = ⦋ f ⁡ x / k⦌ I ⁡ C
50 fvex ⊢ f ⁡ x ∈ V
51 csbfv2g ⊢ f ⁡ x ∈ V → ⦋ f ⁡ x / k⦌ I ⁡ B = I ⁡ ⦋ f ⁡ x / k⦌ B
52 50 51 ax-mp ⊢ ⦋ f ⁡ x / k⦌ I ⁡ B = I ⁡ ⦋ f ⁡ x / k⦌ B
53 csbfv2g ⊢ f ⁡ x ∈ V → ⦋ f ⁡ x / k⦌ I ⁡ C = I ⁡ ⦋ f ⁡ x / k⦌ C
54 50 53 ax-mp ⊢ ⦋ f ⁡ x / k⦌ I ⁡ C = I ⁡ ⦋ f ⁡ x / k⦌ C
55 49 52 54 3eqtr3g ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → I ⁡ ⦋ f ⁡ x / k⦌ B = I ⁡ ⦋ f ⁡ x / k⦌ C
56 elfznn ⊢ x ∈ 1 … m → x ∈ ℕ
57 56 adantl ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → x ∈ ℕ
58 fveq2 ⊢ n = x → f ⁡ n = f ⁡ x
59 58 csbeq1d ⊢ n = x → ⦋ f ⁡ n / k⦌ B = ⦋ f ⁡ x / k⦌ B
60 eqid ⊢ n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B = n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B
61 59 60 fvmpti ⊢ x ∈ ℕ → n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ x = I ⁡ ⦋ f ⁡ x / k⦌ B
62 57 61 syl ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ x = I ⁡ ⦋ f ⁡ x / k⦌ B
63 58 csbeq1d ⊢ n = x → ⦋ f ⁡ n / k⦌ C = ⦋ f ⁡ x / k⦌ C
64 eqid ⊢ n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C = n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C
65 63 64 fvmpti ⊢ x ∈ ℕ → n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ x = I ⁡ ⦋ f ⁡ x / k⦌ C
66 57 65 syl ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ x = I ⁡ ⦋ f ⁡ x / k⦌ C
67 55 62 66 3eqtr4d ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ x ∈ 1 … m → n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ x = n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ x
68 36 67 seqfveq ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
69 68 eqeq2d ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
70 69 pm5.32da ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ → f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
71 70 exbidv ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C ∧ m ∈ ℕ → ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
72 71 rexbidva ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C → ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
73 33 72 orbi12d ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
74 73 iotabidv ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C → ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m = ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
75 df-sum ⊢ ∑ k ∈ A B = ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
76 df-sum ⊢ ∑ k ∈ A C = ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ C 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ C ⁡ m
77 74 75 76 3eqtr4g ⊢ ∀ k ∈ A I ⁡ B = I ⁡ C → ∑ k ∈ A B = ∑ k ∈ A C