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

Theorem 2sqlem6 26771
Description: Lemma for 2sq 26778. 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.)
Hypotheses
Ref Expression
2sq.1 𝑆 = ran (𝑤 ∈ ℤ[i] ↦ ((abs‘𝑤)↑2))
2sqlem6.1 (𝜑𝐴 ∈ ℕ)
2sqlem6.2 (𝜑𝐵 ∈ ℕ)
2sqlem6.3 (𝜑 → ∀𝑝 ∈ ℙ (𝑝𝐵𝑝𝑆))
2sqlem6.4 (𝜑 → (𝐴 · 𝐵) ∈ 𝑆)
Assertion
Ref Expression
2sqlem6 (𝜑𝐴𝑆)
Distinct variable groups:   𝑤,𝑝   𝜑,𝑝   𝐵,𝑝   𝑆,𝑝
Allowed substitution hints:   𝜑(𝑤)   𝐴(𝑤,𝑝)   𝐵(𝑤)   𝑆(𝑤)

Proof of Theorem 2sqlem6
Dummy variables 𝑛 𝑥 𝑦 𝑧 𝑚 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 2sqlem6.1 . 2 (𝜑𝐴 ∈ ℕ)
2 2sqlem6.2 . . 3 (𝜑𝐵 ∈ ℕ)
3 2sqlem6.3 . . 3 (𝜑 → ∀𝑝 ∈ ℙ (𝑝𝐵𝑝𝑆))
4 breq2 5109 . . . . . . 7 (𝑥 = 1 → (𝑝𝑥𝑝 ∥ 1))
54imbi1d 341 . . . . . 6 (𝑥 = 1 → ((𝑝𝑥𝑝𝑆) ↔ (𝑝 ∥ 1 → 𝑝𝑆)))
65ralbidv 3174 . . . . 5 (𝑥 = 1 → (∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) ↔ ∀𝑝 ∈ ℙ (𝑝 ∥ 1 → 𝑝𝑆)))
7 oveq2 7365 . . . . . . . 8 (𝑥 = 1 → (𝑚 · 𝑥) = (𝑚 · 1))
87eleq1d 2822 . . . . . . 7 (𝑥 = 1 → ((𝑚 · 𝑥) ∈ 𝑆 ↔ (𝑚 · 1) ∈ 𝑆))
98imbi1d 341 . . . . . 6 (𝑥 = 1 → (((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ((𝑚 · 1) ∈ 𝑆𝑚𝑆)))
109ralbidv 3174 . . . . 5 (𝑥 = 1 → (∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ∀𝑚 ∈ ℕ ((𝑚 · 1) ∈ 𝑆𝑚𝑆)))
116, 10imbi12d 344 . . . 4 (𝑥 = 1 → ((∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)) ↔ (∀𝑝 ∈ ℙ (𝑝 ∥ 1 → 𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 1) ∈ 𝑆𝑚𝑆))))
12 breq2 5109 . . . . . . 7 (𝑥 = 𝑦 → (𝑝𝑥𝑝𝑦))
1312imbi1d 341 . . . . . 6 (𝑥 = 𝑦 → ((𝑝𝑥𝑝𝑆) ↔ (𝑝𝑦𝑝𝑆)))
1413ralbidv 3174 . . . . 5 (𝑥 = 𝑦 → (∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) ↔ ∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆)))
15 oveq2 7365 . . . . . . . 8 (𝑥 = 𝑦 → (𝑚 · 𝑥) = (𝑚 · 𝑦))
1615eleq1d 2822 . . . . . . 7 (𝑥 = 𝑦 → ((𝑚 · 𝑥) ∈ 𝑆 ↔ (𝑚 · 𝑦) ∈ 𝑆))
1716imbi1d 341 . . . . . 6 (𝑥 = 𝑦 → (((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆)))
1817ralbidv 3174 . . . . 5 (𝑥 = 𝑦 → (∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆)))
1914, 18imbi12d 344 . . . 4 (𝑥 = 𝑦 → ((∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)) ↔ (∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆))))
20 breq2 5109 . . . . . . 7 (𝑥 = 𝑧 → (𝑝𝑥𝑝𝑧))
2120imbi1d 341 . . . . . 6 (𝑥 = 𝑧 → ((𝑝𝑥𝑝𝑆) ↔ (𝑝𝑧𝑝𝑆)))
2221ralbidv 3174 . . . . 5 (𝑥 = 𝑧 → (∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) ↔ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆)))
23 oveq2 7365 . . . . . . . 8 (𝑥 = 𝑧 → (𝑚 · 𝑥) = (𝑚 · 𝑧))
2423eleq1d 2822 . . . . . . 7 (𝑥 = 𝑧 → ((𝑚 · 𝑥) ∈ 𝑆 ↔ (𝑚 · 𝑧) ∈ 𝑆))
2524imbi1d 341 . . . . . 6 (𝑥 = 𝑧 → (((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆)))
2625ralbidv 3174 . . . . 5 (𝑥 = 𝑧 → (∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆)))
2722, 26imbi12d 344 . . . 4 (𝑥 = 𝑧 → ((∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)) ↔ (∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆))))
28 breq2 5109 . . . . . . 7 (𝑥 = (𝑦 · 𝑧) → (𝑝𝑥𝑝 ∥ (𝑦 · 𝑧)))
2928imbi1d 341 . . . . . 6 (𝑥 = (𝑦 · 𝑧) → ((𝑝𝑥𝑝𝑆) ↔ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)))
3029ralbidv 3174 . . . . 5 (𝑥 = (𝑦 · 𝑧) → (∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) ↔ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)))
31 oveq2 7365 . . . . . . . 8 (𝑥 = (𝑦 · 𝑧) → (𝑚 · 𝑥) = (𝑚 · (𝑦 · 𝑧)))
3231eleq1d 2822 . . . . . . 7 (𝑥 = (𝑦 · 𝑧) → ((𝑚 · 𝑥) ∈ 𝑆 ↔ (𝑚 · (𝑦 · 𝑧)) ∈ 𝑆))
3332imbi1d 341 . . . . . 6 (𝑥 = (𝑦 · 𝑧) → (((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆)))
3433ralbidv 3174 . . . . 5 (𝑥 = (𝑦 · 𝑧) → (∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆)))
3530, 34imbi12d 344 . . . 4 (𝑥 = (𝑦 · 𝑧) → ((∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)) ↔ (∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆))))
36 breq2 5109 . . . . . . 7 (𝑥 = 𝐵 → (𝑝𝑥𝑝𝐵))
3736imbi1d 341 . . . . . 6 (𝑥 = 𝐵 → ((𝑝𝑥𝑝𝑆) ↔ (𝑝𝐵𝑝𝑆)))
3837ralbidv 3174 . . . . 5 (𝑥 = 𝐵 → (∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) ↔ ∀𝑝 ∈ ℙ (𝑝𝐵𝑝𝑆)))
39 oveq2 7365 . . . . . . . 8 (𝑥 = 𝐵 → (𝑚 · 𝑥) = (𝑚 · 𝐵))
4039eleq1d 2822 . . . . . . 7 (𝑥 = 𝐵 → ((𝑚 · 𝑥) ∈ 𝑆 ↔ (𝑚 · 𝐵) ∈ 𝑆))
4140imbi1d 341 . . . . . 6 (𝑥 = 𝐵 → (((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ((𝑚 · 𝐵) ∈ 𝑆𝑚𝑆)))
4241ralbidv 3174 . . . . 5 (𝑥 = 𝐵 → (∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆) ↔ ∀𝑚 ∈ ℕ ((𝑚 · 𝐵) ∈ 𝑆𝑚𝑆)))
4338, 42imbi12d 344 . . . 4 (𝑥 = 𝐵 → ((∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)) ↔ (∀𝑝 ∈ ℙ (𝑝𝐵𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝐵) ∈ 𝑆𝑚𝑆))))
44 nncn 12161 . . . . . . . . 9 (𝑚 ∈ ℕ → 𝑚 ∈ ℂ)
4544mulid1d 11172 . . . . . . . 8 (𝑚 ∈ ℕ → (𝑚 · 1) = 𝑚)
4645eleq1d 2822 . . . . . . 7 (𝑚 ∈ ℕ → ((𝑚 · 1) ∈ 𝑆𝑚𝑆))
4746biimpd 228 . . . . . 6 (𝑚 ∈ ℕ → ((𝑚 · 1) ∈ 𝑆𝑚𝑆))
4847rgen 3066 . . . . 5 𝑚 ∈ ℕ ((𝑚 · 1) ∈ 𝑆𝑚𝑆)
4948a1i 11 . . . 4 (∀𝑝 ∈ ℙ (𝑝 ∥ 1 → 𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 1) ∈ 𝑆𝑚𝑆))
50 breq1 5108 . . . . . . 7 (𝑝 = 𝑥 → (𝑝𝑥𝑥𝑥))
51 eleq1 2825 . . . . . . 7 (𝑝 = 𝑥 → (𝑝𝑆𝑥𝑆))
5250, 51imbi12d 344 . . . . . 6 (𝑝 = 𝑥 → ((𝑝𝑥𝑝𝑆) ↔ (𝑥𝑥𝑥𝑆)))
5352rspcv 3577 . . . . 5 (𝑥 ∈ ℙ → (∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) → (𝑥𝑥𝑥𝑆)))
54 prmz 16551 . . . . . . 7 (𝑥 ∈ ℙ → 𝑥 ∈ ℤ)
55 iddvds 16152 . . . . . . 7 (𝑥 ∈ ℤ → 𝑥𝑥)
5654, 55syl 17 . . . . . 6 (𝑥 ∈ ℙ → 𝑥𝑥)
57 2sq.1 . . . . . . . . . 10 𝑆 = ran (𝑤 ∈ ℤ[i] ↦ ((abs‘𝑤)↑2))
58 simprl 769 . . . . . . . . . 10 (((𝑥 ∈ ℙ ∧ 𝑥𝑆) ∧ (𝑚 ∈ ℕ ∧ (𝑚 · 𝑥) ∈ 𝑆)) → 𝑚 ∈ ℕ)
59 simpll 765 . . . . . . . . . 10 (((𝑥 ∈ ℙ ∧ 𝑥𝑆) ∧ (𝑚 ∈ ℕ ∧ (𝑚 · 𝑥) ∈ 𝑆)) → 𝑥 ∈ ℙ)
60 simprr 771 . . . . . . . . . 10 (((𝑥 ∈ ℙ ∧ 𝑥𝑆) ∧ (𝑚 ∈ ℕ ∧ (𝑚 · 𝑥) ∈ 𝑆)) → (𝑚 · 𝑥) ∈ 𝑆)
61 simplr 767 . . . . . . . . . 10 (((𝑥 ∈ ℙ ∧ 𝑥𝑆) ∧ (𝑚 ∈ ℕ ∧ (𝑚 · 𝑥) ∈ 𝑆)) → 𝑥𝑆)
6257, 58, 59, 60, 612sqlem5 26770 . . . . . . . . 9 (((𝑥 ∈ ℙ ∧ 𝑥𝑆) ∧ (𝑚 ∈ ℕ ∧ (𝑚 · 𝑥) ∈ 𝑆)) → 𝑚𝑆)
6362expr 457 . . . . . . . 8 (((𝑥 ∈ ℙ ∧ 𝑥𝑆) ∧ 𝑚 ∈ ℕ) → ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆))
6463ralrimiva 3143 . . . . . . 7 ((𝑥 ∈ ℙ ∧ 𝑥𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆))
6564ex 413 . . . . . 6 (𝑥 ∈ ℙ → (𝑥𝑆 → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)))
6656, 65embantd 59 . . . . 5 (𝑥 ∈ ℙ → ((𝑥𝑥𝑥𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)))
6753, 66syld 47 . . . 4 (𝑥 ∈ ℙ → (∀𝑝 ∈ ℙ (𝑝𝑥𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑥) ∈ 𝑆𝑚𝑆)))
68 anim12 807 . . . . 5 (((∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆)) ∧ (∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆))) → ((∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) ∧ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆)) → (∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆) ∧ ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆))))
69 simpr 485 . . . . . . . . . . . . . 14 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
70 eluzelz 12773 . . . . . . . . . . . . . . 15 (𝑦 ∈ (ℤ‘2) → 𝑦 ∈ ℤ)
7170ad2antrr 724 . . . . . . . . . . . . . 14 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ 𝑝 ∈ ℙ) → 𝑦 ∈ ℤ)
72 eluzelz 12773 . . . . . . . . . . . . . . 15 (𝑧 ∈ (ℤ‘2) → 𝑧 ∈ ℤ)
7372ad2antlr 725 . . . . . . . . . . . . . 14 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ 𝑝 ∈ ℙ) → 𝑧 ∈ ℤ)
74 euclemma 16589 . . . . . . . . . . . . . 14 ((𝑝 ∈ ℙ ∧ 𝑦 ∈ ℤ ∧ 𝑧 ∈ ℤ) → (𝑝 ∥ (𝑦 · 𝑧) ↔ (𝑝𝑦𝑝𝑧)))
7569, 71, 73, 74syl3anc 1371 . . . . . . . . . . . . 13 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝑦 · 𝑧) ↔ (𝑝𝑦𝑝𝑧)))
7675imbi1d 341 . . . . . . . . . . . 12 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) ↔ ((𝑝𝑦𝑝𝑧) → 𝑝𝑆)))
77 jaob 960 . . . . . . . . . . . 12 (((𝑝𝑦𝑝𝑧) → 𝑝𝑆) ↔ ((𝑝𝑦𝑝𝑆) ∧ (𝑝𝑧𝑝𝑆)))
7876, 77bitrdi 286 . . . . . . . . . . 11 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) ↔ ((𝑝𝑦𝑝𝑆) ∧ (𝑝𝑧𝑝𝑆))))
7978ralbidva 3172 . . . . . . . . . 10 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → (∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) ↔ ∀𝑝 ∈ ℙ ((𝑝𝑦𝑝𝑆) ∧ (𝑝𝑧𝑝𝑆))))
80 r19.26 3114 . . . . . . . . . 10 (∀𝑝 ∈ ℙ ((𝑝𝑦𝑝𝑆) ∧ (𝑝𝑧𝑝𝑆)) ↔ (∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) ∧ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆)))
8179, 80bitrdi 286 . . . . . . . . 9 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → (∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) ↔ (∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) ∧ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆))))
8281biimpa 477 . . . . . . . 8 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) → (∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) ∧ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆)))
83 oveq1 7364 . . . . . . . . . . . . 13 (𝑚 = 𝑛 → (𝑚 · 𝑦) = (𝑛 · 𝑦))
8483eleq1d 2822 . . . . . . . . . . . 12 (𝑚 = 𝑛 → ((𝑚 · 𝑦) ∈ 𝑆 ↔ (𝑛 · 𝑦) ∈ 𝑆))
85 eleq1 2825 . . . . . . . . . . . 12 (𝑚 = 𝑛 → (𝑚𝑆𝑛𝑆))
8684, 85imbi12d 344 . . . . . . . . . . 11 (𝑚 = 𝑛 → (((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆) ↔ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)))
8786cbvralvw 3225 . . . . . . . . . 10 (∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆) ↔ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆))
8844adantl 482 . . . . . . . . . . . . . . 15 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → 𝑚 ∈ ℂ)
89 uzssz 12784 . . . . . . . . . . . . . . . . 17 (ℤ‘2) ⊆ ℤ
90 zsscn 12507 . . . . . . . . . . . . . . . . 17 ℤ ⊆ ℂ
9189, 90sstri 3953 . . . . . . . . . . . . . . . 16 (ℤ‘2) ⊆ ℂ
92 simpll 765 . . . . . . . . . . . . . . . . 17 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) → 𝑦 ∈ (ℤ‘2))
9392ad2antrr 724 . . . . . . . . . . . . . . . 16 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → 𝑦 ∈ (ℤ‘2))
9491, 93sselid 3942 . . . . . . . . . . . . . . 15 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → 𝑦 ∈ ℂ)
95 simplr 767 . . . . . . . . . . . . . . . . 17 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) → 𝑧 ∈ (ℤ‘2))
9695ad2antrr 724 . . . . . . . . . . . . . . . 16 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → 𝑧 ∈ (ℤ‘2))
9791, 96sselid 3942 . . . . . . . . . . . . . . 15 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → 𝑧 ∈ ℂ)
98 mul32 11321 . . . . . . . . . . . . . . . 16 ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑚 · 𝑦) · 𝑧) = ((𝑚 · 𝑧) · 𝑦))
99 mulass 11139 . . . . . . . . . . . . . . . 16 ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑚 · 𝑦) · 𝑧) = (𝑚 · (𝑦 · 𝑧)))
10098, 99eqtr3d 2778 . . . . . . . . . . . . . . 15 ((𝑚 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑚 · 𝑧) · 𝑦) = (𝑚 · (𝑦 · 𝑧)))
10188, 94, 97, 100syl3anc 1371 . . . . . . . . . . . . . 14 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → ((𝑚 · 𝑧) · 𝑦) = (𝑚 · (𝑦 · 𝑧)))
102101eleq1d 2822 . . . . . . . . . . . . 13 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → (((𝑚 · 𝑧) · 𝑦) ∈ 𝑆 ↔ (𝑚 · (𝑦 · 𝑧)) ∈ 𝑆))
103 simpr 485 . . . . . . . . . . . . . . 15 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → 𝑚 ∈ ℕ)
104 eluz2nn 12809 . . . . . . . . . . . . . . . 16 (𝑧 ∈ (ℤ‘2) → 𝑧 ∈ ℕ)
10596, 104syl 17 . . . . . . . . . . . . . . 15 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → 𝑧 ∈ ℕ)
106103, 105nnmulcld 12206 . . . . . . . . . . . . . 14 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → (𝑚 · 𝑧) ∈ ℕ)
107 simplr 767 . . . . . . . . . . . . . 14 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆))
108 oveq1 7364 . . . . . . . . . . . . . . . . 17 (𝑛 = (𝑚 · 𝑧) → (𝑛 · 𝑦) = ((𝑚 · 𝑧) · 𝑦))
109108eleq1d 2822 . . . . . . . . . . . . . . . 16 (𝑛 = (𝑚 · 𝑧) → ((𝑛 · 𝑦) ∈ 𝑆 ↔ ((𝑚 · 𝑧) · 𝑦) ∈ 𝑆))
110 eleq1 2825 . . . . . . . . . . . . . . . 16 (𝑛 = (𝑚 · 𝑧) → (𝑛𝑆 ↔ (𝑚 · 𝑧) ∈ 𝑆))
111109, 110imbi12d 344 . . . . . . . . . . . . . . 15 (𝑛 = (𝑚 · 𝑧) → (((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆) ↔ (((𝑚 · 𝑧) · 𝑦) ∈ 𝑆 → (𝑚 · 𝑧) ∈ 𝑆)))
112111rspcv 3577 . . . . . . . . . . . . . 14 ((𝑚 · 𝑧) ∈ ℕ → (∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆) → (((𝑚 · 𝑧) · 𝑦) ∈ 𝑆 → (𝑚 · 𝑧) ∈ 𝑆)))
113106, 107, 112sylc 65 . . . . . . . . . . . . 13 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → (((𝑚 · 𝑧) · 𝑦) ∈ 𝑆 → (𝑚 · 𝑧) ∈ 𝑆))
114102, 113sylbird 259 . . . . . . . . . . . 12 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆 → (𝑚 · 𝑧) ∈ 𝑆))
115114imim1d 82 . . . . . . . . . . 11 (((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) ∧ 𝑚 ∈ ℕ) → (((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆) → ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆)))
116115ralimdva 3164 . . . . . . . . . 10 ((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑛 ∈ ℕ ((𝑛 · 𝑦) ∈ 𝑆𝑛𝑆)) → (∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆)))
11787, 116sylan2b 594 . . . . . . . . 9 ((((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) ∧ ∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆)) → (∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆)))
118117expimpd 454 . . . . . . . 8 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) → ((∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆) ∧ ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆)) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆)))
11982, 118embantd 59 . . . . . . 7 (((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆)) → (((∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) ∧ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆)) → (∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆) ∧ ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆))) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆)))
120119ex 413 . . . . . 6 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → (∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) → (((∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) ∧ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆)) → (∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆) ∧ ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆))) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆))))
121120com23 86 . . . . 5 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → (((∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) ∧ ∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆)) → (∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆) ∧ ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆))) → (∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆))))
12268, 121syl5 34 . . . 4 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → (((∀𝑝 ∈ ℙ (𝑝𝑦𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑦) ∈ 𝑆𝑚𝑆)) ∧ (∀𝑝 ∈ ℙ (𝑝𝑧𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝑧) ∈ 𝑆𝑚𝑆))) → (∀𝑝 ∈ ℙ (𝑝 ∥ (𝑦 · 𝑧) → 𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · (𝑦 · 𝑧)) ∈ 𝑆𝑚𝑆))))
12311, 19, 27, 35, 43, 49, 67, 122prmind 16562 . . 3 (𝐵 ∈ ℕ → (∀𝑝 ∈ ℙ (𝑝𝐵𝑝𝑆) → ∀𝑚 ∈ ℕ ((𝑚 · 𝐵) ∈ 𝑆𝑚𝑆)))
1242, 3, 123sylc 65 . 2 (𝜑 → ∀𝑚 ∈ ℕ ((𝑚 · 𝐵) ∈ 𝑆𝑚𝑆))
125 2sqlem6.4 . 2 (𝜑 → (𝐴 · 𝐵) ∈ 𝑆)
126 oveq1 7364 . . . . 5 (𝑚 = 𝐴 → (𝑚 · 𝐵) = (𝐴 · 𝐵))
127126eleq1d 2822 . . . 4 (𝑚 = 𝐴 → ((𝑚 · 𝐵) ∈ 𝑆 ↔ (𝐴 · 𝐵) ∈ 𝑆))
128 eleq1 2825 . . . 4 (𝑚 = 𝐴 → (𝑚𝑆𝐴𝑆))
129127, 128imbi12d 344 . . 3 (𝑚 = 𝐴 → (((𝑚 · 𝐵) ∈ 𝑆𝑚𝑆) ↔ ((𝐴 · 𝐵) ∈ 𝑆𝐴𝑆)))
130129rspcv 3577 . 2 (𝐴 ∈ ℕ → (∀𝑚 ∈ ℕ ((𝑚 · 𝐵) ∈ 𝑆𝑚𝑆) → ((𝐴 · 𝐵) ∈ 𝑆𝐴𝑆)))
1311, 124, 125, 130syl3c 66 1 (𝜑𝐴𝑆)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  wo 845  w3a 1087   = wceq 1541  wcel 2106  wral 3064   class class class wbr 5105  cmpt 5188  ran crn 5634  cfv 6496  (class class class)co 7357  cc 11049  1c1 11052   · cmul 11056  cn 12153  2c2 12208  cz 12499  cuz 12763  cexp 13967  abscabs 15119  cdvds 16136  cprime 16547  ℤ[i]cgz 16801
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-1st 7921  df-2nd 7922  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-2o 8413  df-er 8648  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-sup 9378  df-inf 9379  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-n0 12414  df-z 12500  df-uz 12764  df-rp 12916  df-fz 13425  df-fl 13697  df-mod 13775  df-seq 13907  df-exp 13968  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121  df-dvds 16137  df-gcd 16375  df-prm 16548  df-gz 16802
This theorem is referenced by:  2sqlem8  26774
  Copyright terms: Public domain W3C validator