Metamath Proof Explorer


Theorem 2sqlem6

Description: Lemma for 2sq . If a number that is a sum of two squares is divisible by a number whose prime divisors are all sums of two squares, then the quotient is a sum of two squares. (Contributed by Mario Carneiro, 20-Jun-2015)

Ref Expression
Hypotheses 2sq.1 ⊢ S = ran ⁡ w ∈ ℤ i ⟼ w 2
2sqlem6.1 ⊢ φ → A ∈ ℕ
2sqlem6.2 ⊢ φ → B ∈ ℕ
2sqlem6.3 ⊢ φ → ∀ p ∈ ℙ p ∥ B → p ∈ S
2sqlem6.4 ⊢ φ → A ⁢ B ∈ S
Assertion 2sqlem6 ⊢ φ → A ∈ S

Proof

Step Hyp Ref Expression
1 2sq.1 ⊢ S = ran ⁡ w ∈ ℤ i ⟼ w 2
2 2sqlem6.1 ⊢ φ → A ∈ ℕ
3 2sqlem6.2 ⊢ φ → B ∈ ℕ
4 2sqlem6.3 ⊢ φ → ∀ p ∈ ℙ p ∥ B → p ∈ S
5 2sqlem6.4 ⊢ φ → A ⁢ B ∈ S
6 breq2 ⊢ x = 1 → p ∥ x ↔ p ∥ 1
7 6 imbi1d ⊢ x = 1 → p ∥ x → p ∈ S ↔ p ∥ 1 → p ∈ S
8 7 ralbidv ⊢ x = 1 → ∀ p ∈ ℙ p ∥ x → p ∈ S ↔ ∀ p ∈ ℙ p ∥ 1 → p ∈ S
9 oveq2 ⊢ x = 1 → m ⁢ x = m ⋅ 1
10 9 eleq1d ⊢ x = 1 → m ⁢ x ∈ S ↔ m ⋅ 1 ∈ S
11 10 imbi1d ⊢ x = 1 → m ⁢ x ∈ S → m ∈ S ↔ m ⋅ 1 ∈ S → m ∈ S
12 11 ralbidv ⊢ x = 1 → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ m ∈ ℕ m ⋅ 1 ∈ S → m ∈ S
13 8 12 imbi12d ⊢ x = 1 → ∀ p ∈ ℙ p ∥ x → p ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ p ∈ ℙ p ∥ 1 → p ∈ S → ∀ m ∈ ℕ m ⋅ 1 ∈ S → m ∈ S
14 breq2 ⊢ x = y → p ∥ x ↔ p ∥ y
15 14 imbi1d ⊢ x = y → p ∥ x → p ∈ S ↔ p ∥ y → p ∈ S
16 15 ralbidv ⊢ x = y → ∀ p ∈ ℙ p ∥ x → p ∈ S ↔ ∀ p ∈ ℙ p ∥ y → p ∈ S
17 oveq2 ⊢ x = y → m ⁢ x = m ⁢ y
18 17 eleq1d ⊢ x = y → m ⁢ x ∈ S ↔ m ⁢ y ∈ S
19 18 imbi1d ⊢ x = y → m ⁢ x ∈ S → m ∈ S ↔ m ⁢ y ∈ S → m ∈ S
20 19 ralbidv ⊢ x = y → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S
21 16 20 imbi12d ⊢ x = y → ∀ p ∈ ℙ p ∥ x → p ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ p ∈ ℙ p ∥ y → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S
22 breq2 ⊢ x = z → p ∥ x ↔ p ∥ z
23 22 imbi1d ⊢ x = z → p ∥ x → p ∈ S ↔ p ∥ z → p ∈ S
24 23 ralbidv ⊢ x = z → ∀ p ∈ ℙ p ∥ x → p ∈ S ↔ ∀ p ∈ ℙ p ∥ z → p ∈ S
25 oveq2 ⊢ x = z → m ⁢ x = m ⁢ z
26 25 eleq1d ⊢ x = z → m ⁢ x ∈ S ↔ m ⁢ z ∈ S
27 26 imbi1d ⊢ x = z → m ⁢ x ∈ S → m ∈ S ↔ m ⁢ z ∈ S → m ∈ S
28 27 ralbidv ⊢ x = z → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S
29 24 28 imbi12d ⊢ x = z → ∀ p ∈ ℙ p ∥ x → p ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ p ∈ ℙ p ∥ z → p ∈ S → ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S
30 breq2 ⊢ x = y ⁢ z → p ∥ x ↔ p ∥ y ⁢ z
31 30 imbi1d ⊢ x = y ⁢ z → p ∥ x → p ∈ S ↔ p ∥ y ⁢ z → p ∈ S
32 31 ralbidv ⊢ x = y ⁢ z → ∀ p ∈ ℙ p ∥ x → p ∈ S ↔ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S
33 oveq2 ⊢ x = y ⁢ z → m ⁢ x = m ⁢ y ⁢ z
34 33 eleq1d ⊢ x = y ⁢ z → m ⁢ x ∈ S ↔ m ⁢ y ⁢ z ∈ S
35 34 imbi1d ⊢ x = y ⁢ z → m ⁢ x ∈ S → m ∈ S ↔ m ⁢ y ⁢ z ∈ S → m ∈ S
36 35 ralbidv ⊢ x = y ⁢ z → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
37 32 36 imbi12d ⊢ x = y ⁢ z → ∀ p ∈ ℙ p ∥ x → p ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
38 breq2 ⊢ x = B → p ∥ x ↔ p ∥ B
39 38 imbi1d ⊢ x = B → p ∥ x → p ∈ S ↔ p ∥ B → p ∈ S
40 39 ralbidv ⊢ x = B → ∀ p ∈ ℙ p ∥ x → p ∈ S ↔ ∀ p ∈ ℙ p ∥ B → p ∈ S
41 oveq2 ⊢ x = B → m ⁢ x = m ⁢ B
42 41 eleq1d ⊢ x = B → m ⁢ x ∈ S ↔ m ⁢ B ∈ S
43 42 imbi1d ⊢ x = B → m ⁢ x ∈ S → m ∈ S ↔ m ⁢ B ∈ S → m ∈ S
44 43 ralbidv ⊢ x = B → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ m ∈ ℕ m ⁢ B ∈ S → m ∈ S
45 40 44 imbi12d ⊢ x = B → ∀ p ∈ ℙ p ∥ x → p ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S ↔ ∀ p ∈ ℙ p ∥ B → p ∈ S → ∀ m ∈ ℕ m ⁢ B ∈ S → m ∈ S
46 nncn ⊢ m ∈ ℕ → m ∈ ℂ
47 46 mulridd ⊢ m ∈ ℕ → m ⋅ 1 = m
48 47 eleq1d ⊢ m ∈ ℕ → m ⋅ 1 ∈ S ↔ m ∈ S
49 48 biimpd ⊢ m ∈ ℕ → m ⋅ 1 ∈ S → m ∈ S
50 49 rgen ⊢ ∀ m ∈ ℕ m ⋅ 1 ∈ S → m ∈ S
51 50 a1i ⊢ ∀ p ∈ ℙ p ∥ 1 → p ∈ S → ∀ m ∈ ℕ m ⋅ 1 ∈ S → m ∈ S
52 breq1 ⊢ p = x → p ∥ x ↔ x ∥ x
53 eleq1 ⊢ p = x → p ∈ S ↔ x ∈ S
54 52 53 imbi12d ⊢ p = x → p ∥ x → p ∈ S ↔ x ∥ x → x ∈ S
55 54 rspcv ⊢ x ∈ ℙ → ∀ p ∈ ℙ p ∥ x → p ∈ S → x ∥ x → x ∈ S
56 prmz ⊢ x ∈ ℙ → x ∈ ℤ
57 iddvds ⊢ x ∈ ℤ → x ∥ x
58 56 57 syl ⊢ x ∈ ℙ → x ∥ x
59 simprl ⊢ x ∈ ℙ ∧ x ∈ S ∧ m ∈ ℕ ∧ m ⁢ x ∈ S → m ∈ ℕ
60 simpll ⊢ x ∈ ℙ ∧ x ∈ S ∧ m ∈ ℕ ∧ m ⁢ x ∈ S → x ∈ ℙ
61 simprr ⊢ x ∈ ℙ ∧ x ∈ S ∧ m ∈ ℕ ∧ m ⁢ x ∈ S → m ⁢ x ∈ S
62 simplr ⊢ x ∈ ℙ ∧ x ∈ S ∧ m ∈ ℕ ∧ m ⁢ x ∈ S → x ∈ S
63 1 59 60 61 62 2sqlem5 ⊢ x ∈ ℙ ∧ x ∈ S ∧ m ∈ ℕ ∧ m ⁢ x ∈ S → m ∈ S
64 63 expr ⊢ x ∈ ℙ ∧ x ∈ S ∧ m ∈ ℕ → m ⁢ x ∈ S → m ∈ S
65 64 ralrimiva ⊢ x ∈ ℙ ∧ x ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S
66 65 ex ⊢ x ∈ ℙ → x ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S
67 58 66 embantd ⊢ x ∈ ℙ → x ∥ x → x ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S
68 55 67 syld ⊢ x ∈ ℙ → ∀ p ∈ ℙ p ∥ x → p ∈ S → ∀ m ∈ ℕ m ⁢ x ∈ S → m ∈ S
69 anim12 ⊢ ∀ p ∈ ℙ p ∥ y → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S → ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ∧ ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S
70 simpr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ p ∈ ℙ → p ∈ ℙ
71 eluzelz ⊢ y ∈ ℤ ≥ 2 → y ∈ ℤ
72 71 ad2antrr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ p ∈ ℙ → y ∈ ℤ
73 eluzelz ⊢ z ∈ ℤ ≥ 2 → z ∈ ℤ
74 73 ad2antlr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ p ∈ ℙ → z ∈ ℤ
75 euclemma ⊢ p ∈ ℙ ∧ y ∈ ℤ ∧ z ∈ ℤ → p ∥ y ⁢ z ↔ p ∥ y ∨ p ∥ z
76 70 72 74 75 syl3anc ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ p ∈ ℙ → p ∥ y ⁢ z ↔ p ∥ y ∨ p ∥ z
77 76 imbi1d ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ p ∈ ℙ → p ∥ y ⁢ z → p ∈ S ↔ p ∥ y ∨ p ∥ z → p ∈ S
78 jaob ⊢ p ∥ y ∨ p ∥ z → p ∈ S ↔ p ∥ y → p ∈ S ∧ p ∥ z → p ∈ S
79 77 78 bitrdi ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ p ∈ ℙ → p ∥ y ⁢ z → p ∈ S ↔ p ∥ y → p ∈ S ∧ p ∥ z → p ∈ S
80 79 ralbidva ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 → ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ↔ ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ p ∥ z → p ∈ S
81 r19.26 ⊢ ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ p ∥ z → p ∈ S ↔ ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S
82 80 81 bitrdi ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 → ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ↔ ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S
83 82 biimpa ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S
84 oveq1 ⊢ m = n → m ⁢ y = n ⁢ y
85 84 eleq1d ⊢ m = n → m ⁢ y ∈ S ↔ n ⁢ y ∈ S
86 eleq1 ⊢ m = n → m ∈ S ↔ n ∈ S
87 85 86 imbi12d ⊢ m = n → m ⁢ y ∈ S → m ∈ S ↔ n ⁢ y ∈ S → n ∈ S
88 87 cbvralvw ⊢ ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ↔ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S
89 46 adantl ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ∈ ℂ
90 uzssz ⊢ ℤ ≥ 2 ⊆ ℤ
91 zsscn ⊢ ℤ ⊆ ℂ
92 90 91 sstri ⊢ ℤ ≥ 2 ⊆ ℂ
93 simpll ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → y ∈ ℤ ≥ 2
94 93 ad2antrr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → y ∈ ℤ ≥ 2
95 92 94 sselid ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → y ∈ ℂ
96 simplr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → z ∈ ℤ ≥ 2
97 96 ad2antrr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → z ∈ ℤ ≥ 2
98 92 97 sselid ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → z ∈ ℂ
99 mul32 ⊢ m ∈ ℂ ∧ y ∈ ℂ ∧ z ∈ ℂ → m ⁢ y ⁢ z = m ⁢ z ⁢ y
100 mulass ⊢ m ∈ ℂ ∧ y ∈ ℂ ∧ z ∈ ℂ → m ⁢ y ⁢ z = m ⁢ y ⁢ z
101 99 100 eqtr3d ⊢ m ∈ ℂ ∧ y ∈ ℂ ∧ z ∈ ℂ → m ⁢ z ⁢ y = m ⁢ y ⁢ z
102 89 95 98 101 syl3anc ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ⁢ z ⁢ y = m ⁢ y ⁢ z
103 102 eleq1d ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ⁢ z ⁢ y ∈ S ↔ m ⁢ y ⁢ z ∈ S
104 simpr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ∈ ℕ
105 eluz2nn ⊢ z ∈ ℤ ≥ 2 → z ∈ ℕ
106 97 105 syl ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → z ∈ ℕ
107 104 106 nnmulcld ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ⁢ z ∈ ℕ
108 simplr ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S
109 oveq1 ⊢ n = m ⁢ z → n ⁢ y = m ⁢ z ⁢ y
110 109 eleq1d ⊢ n = m ⁢ z → n ⁢ y ∈ S ↔ m ⁢ z ⁢ y ∈ S
111 eleq1 ⊢ n = m ⁢ z → n ∈ S ↔ m ⁢ z ∈ S
112 110 111 imbi12d ⊢ n = m ⁢ z → n ⁢ y ∈ S → n ∈ S ↔ m ⁢ z ⁢ y ∈ S → m ⁢ z ∈ S
113 112 rspcv ⊢ m ⁢ z ∈ ℕ → ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S → m ⁢ z ⁢ y ∈ S → m ⁢ z ∈ S
114 107 108 113 sylc ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ⁢ z ⁢ y ∈ S → m ⁢ z ∈ S
115 103 114 sylbird ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ⁢ y ⁢ z ∈ S → m ⁢ z ∈ S
116 115 imim1d ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S ∧ m ∈ ℕ → m ⁢ z ∈ S → m ∈ S → m ⁢ y ⁢ z ∈ S → m ∈ S
117 116 ralimdva ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ n ∈ ℕ n ⁢ y ∈ S → n ∈ S → ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
118 88 117 sylan2b ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S ∧ ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S → ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
119 118 expimpd ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ∧ ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
120 83 119 embantd ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 ∧ ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ∧ ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
121 120 ex ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 → ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ∧ ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
122 121 com23 ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 → ∀ p ∈ ℙ p ∥ y → p ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ∧ ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
123 69 122 syl5 ⊢ y ∈ ℤ ≥ 2 ∧ z ∈ ℤ ≥ 2 → ∀ p ∈ ℙ p ∥ y → p ∈ S → ∀ m ∈ ℕ m ⁢ y ∈ S → m ∈ S ∧ ∀ p ∈ ℙ p ∥ z → p ∈ S → ∀ m ∈ ℕ m ⁢ z ∈ S → m ∈ S → ∀ p ∈ ℙ p ∥ y ⁢ z → p ∈ S → ∀ m ∈ ℕ m ⁢ y ⁢ z ∈ S → m ∈ S
124 13 21 29 37 45 51 68 123 prmind ⊢ B ∈ ℕ → ∀ p ∈ ℙ p ∥ B → p ∈ S → ∀ m ∈ ℕ m ⁢ B ∈ S → m ∈ S
125 3 4 124 sylc ⊢ φ → ∀ m ∈ ℕ m ⁢ B ∈ S → m ∈ S
126 oveq1 ⊢ m = A → m ⁢ B = A ⁢ B
127 126 eleq1d ⊢ m = A → m ⁢ B ∈ S ↔ A ⁢ B ∈ S
128 eleq1 ⊢ m = A → m ∈ S ↔ A ∈ S
129 127 128 imbi12d ⊢ m = A → m ⁢ B ∈ S → m ∈ S ↔ A ⁢ B ∈ S → A ∈ S
130 129 rspcv ⊢ A ∈ ℕ → ∀ m ∈ ℕ m ⁢ B ∈ S → m ∈ S → A ⁢ B ∈ S → A ∈ S
131 2 125 5 130 syl3c ⊢ φ → A ∈ S