Metamath Proof Explorer


Theorem prodmolem3

Description: Lemma for prodmo . (Contributed by Scott Fenton, 4-Dec-2017)

Ref Expression
Hypotheses prodmo.1 ⊢ F = k ∈ ℤ ⟼ if k ∈ A B 1
prodmo.2 ⊢ φ ∧ k ∈ A → B ∈ ℂ
prodmo.3 ⊢ G = j ∈ ℕ ⟼ ⦋ f ⁡ j / k⦌ B
prodmolem3.4 ⊢ H = j ∈ ℕ ⟼ ⦋ K ⁡ j / k⦌ B
prodmolem3.5 ⊢ φ → M ∈ ℕ ∧ N ∈ ℕ
prodmolem3.6 ⊢ φ → f : 1 … M ⟶ 1-1 onto A
prodmolem3.7 ⊢ φ → K : 1 … N ⟶ 1-1 onto A
Assertion prodmolem3 ⊢ φ → seq 1 × G ⁡ M = seq 1 × H ⁡ N

Proof

Step Hyp Ref Expression
1 prodmo.1 ⊢ F = k ∈ ℤ ⟼ if k ∈ A B 1
2 prodmo.2 ⊢ φ ∧ k ∈ A → B ∈ ℂ
3 prodmo.3 ⊢ G = j ∈ ℕ ⟼ ⦋ f ⁡ j / k⦌ B
4 prodmolem3.4 ⊢ H = j ∈ ℕ ⟼ ⦋ K ⁡ j / k⦌ B
5 prodmolem3.5 ⊢ φ → M ∈ ℕ ∧ N ∈ ℕ
6 prodmolem3.6 ⊢ φ → f : 1 … M ⟶ 1-1 onto A
7 prodmolem3.7 ⊢ φ → K : 1 … N ⟶ 1-1 onto A
8 mulcl ⊢ m ∈ ℂ ∧ j ∈ ℂ → m ⁢ j ∈ ℂ
9 8 adantl ⊢ φ ∧ m ∈ ℂ ∧ j ∈ ℂ → m ⁢ j ∈ ℂ
10 mulcom ⊢ m ∈ ℂ ∧ j ∈ ℂ → m ⁢ j = j ⁢ m
11 10 adantl ⊢ φ ∧ m ∈ ℂ ∧ j ∈ ℂ → m ⁢ j = j ⁢ m
12 mulass ⊢ m ∈ ℂ ∧ j ∈ ℂ ∧ z ∈ ℂ → m ⁢ j ⁢ z = m ⁢ j ⁢ z
13 12 adantl ⊢ φ ∧ m ∈ ℂ ∧ j ∈ ℂ ∧ z ∈ ℂ → m ⁢ j ⁢ z = m ⁢ j ⁢ z
14 5 simpld ⊢ φ → M ∈ ℕ
15 nnuz ⊢ ℕ = ℤ ≥ 1
16 14 15 eleqtrdi ⊢ φ → M ∈ ℤ ≥ 1
17 ssidd ⊢ φ → ℂ ⊆ ℂ
18 f1ocnv ⊢ f : 1 … M ⟶ 1-1 onto A → f -1 : A ⟶ 1-1 onto 1 … M
19 6 18 syl ⊢ φ → f -1 : A ⟶ 1-1 onto 1 … M
20 f1oco ⊢ f -1 : A ⟶ 1-1 onto 1 … M ∧ K : 1 … N ⟶ 1-1 onto A → f -1 ∘ K : 1 … N ⟶ 1-1 onto 1 … M
21 19 7 20 syl2anc ⊢ φ → f -1 ∘ K : 1 … N ⟶ 1-1 onto 1 … M
22 ovex ⊢ 1 … N ∈ V
23 22 f1oen ⊢ f -1 ∘ K : 1 … N ⟶ 1-1 onto 1 … M → 1 … N ≈ 1 … M
24 21 23 syl ⊢ φ → 1 … N ≈ 1 … M
25 fzfi ⊢ 1 … N ∈ Fin
26 fzfi ⊢ 1 … M ∈ Fin
27 hashen ⊢ 1 … N ∈ Fin ∧ 1 … M ∈ Fin → 1 … N = 1 … M ↔ 1 … N ≈ 1 … M
28 25 26 27 mp2an ⊢ 1 … N = 1 … M ↔ 1 … N ≈ 1 … M
29 24 28 sylibr ⊢ φ → 1 … N = 1 … M
30 5 simprd ⊢ φ → N ∈ ℕ
31 30 nnnn0d ⊢ φ → N ∈ ℕ 0
32 hashfz1 ⊢ N ∈ ℕ 0 → 1 … N = N
33 31 32 syl ⊢ φ → 1 … N = N
34 14 nnnn0d ⊢ φ → M ∈ ℕ 0
35 hashfz1 ⊢ M ∈ ℕ 0 → 1 … M = M
36 34 35 syl ⊢ φ → 1 … M = M
37 29 33 36 3eqtr3rd ⊢ φ → M = N
38 37 oveq2d ⊢ φ → 1 … M = 1 … N
39 38 f1oeq2d ⊢ φ → f -1 ∘ K : 1 … M ⟶ 1-1 onto 1 … M ↔ f -1 ∘ K : 1 … N ⟶ 1-1 onto 1 … M
40 21 39 mpbird ⊢ φ → f -1 ∘ K : 1 … M ⟶ 1-1 onto 1 … M
41 fveq2 ⊢ j = m → f ⁡ j = f ⁡ m
42 41 csbeq1d ⊢ j = m → ⦋ f ⁡ j / k⦌ B = ⦋ f ⁡ m / k⦌ B
43 elfznn ⊢ m ∈ 1 … M → m ∈ ℕ
44 43 adantl ⊢ φ ∧ m ∈ 1 … M → m ∈ ℕ
45 f1of ⊢ f : 1 … M ⟶ 1-1 onto A → f : 1 … M ⟶ A
46 6 45 syl ⊢ φ → f : 1 … M ⟶ A
47 46 ffvelcdmda ⊢ φ ∧ m ∈ 1 … M → f ⁡ m ∈ A
48 2 ralrimiva ⊢ φ → ∀ k ∈ A B ∈ ℂ
49 48 adantr ⊢ φ ∧ m ∈ 1 … M → ∀ k ∈ A B ∈ ℂ
50 nfcsb1v ⊢ Ⅎ _ k ⦋ f ⁡ m / k⦌ B
51 50 nfel1 ⊢ Ⅎ k ⦋ f ⁡ m / k⦌ B ∈ ℂ
52 csbeq1a ⊢ k = f ⁡ m → B = ⦋ f ⁡ m / k⦌ B
53 52 eleq1d ⊢ k = f ⁡ m → B ∈ ℂ ↔ ⦋ f ⁡ m / k⦌ B ∈ ℂ
54 51 53 rspc ⊢ f ⁡ m ∈ A → ∀ k ∈ A B ∈ ℂ → ⦋ f ⁡ m / k⦌ B ∈ ℂ
55 47 49 54 sylc ⊢ φ ∧ m ∈ 1 … M → ⦋ f ⁡ m / k⦌ B ∈ ℂ
56 3 42 44 55 fvmptd3 ⊢ φ ∧ m ∈ 1 … M → G ⁡ m = ⦋ f ⁡ m / k⦌ B
57 56 55 eqeltrd ⊢ φ ∧ m ∈ 1 … M → G ⁡ m ∈ ℂ
58 38 f1oeq2d ⊢ φ → K : 1 … M ⟶ 1-1 onto A ↔ K : 1 … N ⟶ 1-1 onto A
59 7 58 mpbird ⊢ φ → K : 1 … M ⟶ 1-1 onto A
60 f1of ⊢ K : 1 … M ⟶ 1-1 onto A → K : 1 … M ⟶ A
61 59 60 syl ⊢ φ → K : 1 … M ⟶ A
62 fvco3 ⊢ K : 1 … M ⟶ A ∧ i ∈ 1 … M → f -1 ∘ K ⁡ i = f -1 ⁡ K ⁡ i
63 61 62 sylan ⊢ φ ∧ i ∈ 1 … M → f -1 ∘ K ⁡ i = f -1 ⁡ K ⁡ i
64 63 fveq2d ⊢ φ ∧ i ∈ 1 … M → f ⁡ f -1 ∘ K ⁡ i = f ⁡ f -1 ⁡ K ⁡ i
65 6 adantr ⊢ φ ∧ i ∈ 1 … M → f : 1 … M ⟶ 1-1 onto A
66 61 ffvelcdmda ⊢ φ ∧ i ∈ 1 … M → K ⁡ i ∈ A
67 f1ocnvfv2 ⊢ f : 1 … M ⟶ 1-1 onto A ∧ K ⁡ i ∈ A → f ⁡ f -1 ⁡ K ⁡ i = K ⁡ i
68 65 66 67 syl2anc ⊢ φ ∧ i ∈ 1 … M → f ⁡ f -1 ⁡ K ⁡ i = K ⁡ i
69 64 68 eqtrd ⊢ φ ∧ i ∈ 1 … M → f ⁡ f -1 ∘ K ⁡ i = K ⁡ i
70 69 csbeq1d ⊢ φ ∧ i ∈ 1 … M → ⦋ f ⁡ f -1 ∘ K ⁡ i / k⦌ B = ⦋ K ⁡ i / k⦌ B
71 70 fveq2d ⊢ φ ∧ i ∈ 1 … M → I ⁡ ⦋ f ⁡ f -1 ∘ K ⁡ i / k⦌ B = I ⁡ ⦋ K ⁡ i / k⦌ B
72 f1of ⊢ f -1 ∘ K : 1 … M ⟶ 1-1 onto 1 … M → f -1 ∘ K : 1 … M ⟶ 1 … M
73 40 72 syl ⊢ φ → f -1 ∘ K : 1 … M ⟶ 1 … M
74 73 ffvelcdmda ⊢ φ ∧ i ∈ 1 … M → f -1 ∘ K ⁡ i ∈ 1 … M
75 elfznn ⊢ f -1 ∘ K ⁡ i ∈ 1 … M → f -1 ∘ K ⁡ i ∈ ℕ
76 fveq2 ⊢ j = f -1 ∘ K ⁡ i → f ⁡ j = f ⁡ f -1 ∘ K ⁡ i
77 76 csbeq1d ⊢ j = f -1 ∘ K ⁡ i → ⦋ f ⁡ j / k⦌ B = ⦋ f ⁡ f -1 ∘ K ⁡ i / k⦌ B
78 77 3 fvmpti ⊢ f -1 ∘ K ⁡ i ∈ ℕ → G ⁡ f -1 ∘ K ⁡ i = I ⁡ ⦋ f ⁡ f -1 ∘ K ⁡ i / k⦌ B
79 74 75 78 3syl ⊢ φ ∧ i ∈ 1 … M → G ⁡ f -1 ∘ K ⁡ i = I ⁡ ⦋ f ⁡ f -1 ∘ K ⁡ i / k⦌ B
80 elfznn ⊢ i ∈ 1 … M → i ∈ ℕ
81 80 adantl ⊢ φ ∧ i ∈ 1 … M → i ∈ ℕ
82 fveq2 ⊢ j = i → K ⁡ j = K ⁡ i
83 82 csbeq1d ⊢ j = i → ⦋ K ⁡ j / k⦌ B = ⦋ K ⁡ i / k⦌ B
84 83 4 fvmpti ⊢ i ∈ ℕ → H ⁡ i = I ⁡ ⦋ K ⁡ i / k⦌ B
85 81 84 syl ⊢ φ ∧ i ∈ 1 … M → H ⁡ i = I ⁡ ⦋ K ⁡ i / k⦌ B
86 71 79 85 3eqtr4rd ⊢ φ ∧ i ∈ 1 … M → H ⁡ i = G ⁡ f -1 ∘ K ⁡ i
87 9 11 13 16 17 40 57 86 seqf1o ⊢ φ → seq 1 × H ⁡ M = seq 1 × G ⁡ M
88 37 fveq2d ⊢ φ → seq 1 × H ⁡ M = seq 1 × H ⁡ N
89 87 88 eqtr3d ⊢ φ → seq 1 × G ⁡ M = seq 1 × H ⁡ N