Theorem 2sqlem7 27476

Description: Lemma for 2sq 27482. (Contributed by Mario Carneiro, 19-Jun-2015.)

Hypotheses

Ref	Expression
2sq.1	⊢ 𝑆 = ran (𝑤 ∈ ℤ[i] ↦ ((abs‘𝑤)↑2))
2sqlem7.2	⊢ 𝑌 = {𝑧 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2)))}

Assertion

Ref	Expression
2sqlem7	⊢ 𝑌 ⊆ (𝑆 ∩ ℕ)

Distinct variable groups:   𝑥,𝑤,𝑦,𝑧   𝑥,𝑆,𝑦,𝑧   𝑥,𝑌,𝑦

Allowed substitution hints:   𝑆(𝑤)   𝑌(𝑧,𝑤)

Proof of Theorem 2sqlem7

Step	Hyp	Ref	Expression
1		2sqlem7.2	. 2 ⊢ 𝑌 = {𝑧 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2)))}
2		simpr 483	. . . . . . 7 ⊢ (((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) → 𝑧 = ((𝑥↑2) + (𝑦↑2)))
3	2	reximi 3077	. . . . . 6 ⊢ (∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) → ∃𝑦 ∈ ℤ 𝑧 = ((𝑥↑2) + (𝑦↑2)))
4	3	reximi 3077	. . . . 5 ⊢ (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) → ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ 𝑧 = ((𝑥↑2) + (𝑦↑2)))
5		2sq.1	. . . . . 6 ⊢ 𝑆 = ran (𝑤 ∈ ℤ[i] ↦ ((abs‘𝑤)↑2))
6	5	2sqlem2 27470	. . . . 5 ⊢ (𝑧 ∈ 𝑆 ↔ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ 𝑧 = ((𝑥↑2) + (𝑦↑2)))
7	4, 6	sylibr 233	. . . 4 ⊢ (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) → 𝑧 ∈ 𝑆)
8		ax-1ne0 11234	. . . . . . . . . 10 ⊢ 1 ≠ 0
9		gcdeq0 16538	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) → ((𝑥 gcd 𝑦) = 0 ↔ (𝑥 = 0 ∧ 𝑦 = 0)))
10	9	adantr 479	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → ((𝑥 gcd 𝑦) = 0 ↔ (𝑥 = 0 ∧ 𝑦 = 0)))
11		simpr 483	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (𝑥 gcd 𝑦) = 1)
12	11	eqeq1d 2731	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → ((𝑥 gcd 𝑦) = 0 ↔ 1 = 0))
13	10, 12	bitr3d 280	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → ((𝑥 = 0 ∧ 𝑦 = 0) ↔ 1 = 0))
14	13	necon3bbid 2971	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (¬ (𝑥 = 0 ∧ 𝑦 = 0) ↔ 1 ≠ 0))
15	8, 14	mpbiri 257	. . . . . . . . 9 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → ¬ (𝑥 = 0 ∧ 𝑦 = 0))
16		zsqcl2 14168	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ ℤ → (𝑥↑2) ∈ ℕ0)
17	16	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (𝑥↑2) ∈ ℕ0)
18	17	nn0red 12595	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (𝑥↑2) ∈ ℝ)
19	17	nn0ge0d 12597	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → 0 ≤ (𝑥↑2))
20		zsqcl2 14168	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℤ → (𝑦↑2) ∈ ℕ0)
21	20	ad2antlr 725	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (𝑦↑2) ∈ ℕ0)
22	21	nn0red 12595	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (𝑦↑2) ∈ ℝ)
23	21	nn0ge0d 12597	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → 0 ≤ (𝑦↑2))
24		add20 11783	. . . . . . . . . . 11 ⊢ ((((𝑥↑2) ∈ ℝ ∧ 0 ≤ (𝑥↑2)) ∧ ((𝑦↑2) ∈ ℝ ∧ 0 ≤ (𝑦↑2))) → (((𝑥↑2) + (𝑦↑2)) = 0 ↔ ((𝑥↑2) = 0 ∧ (𝑦↑2) = 0)))
25	18, 19, 22, 23, 24	syl22anc 837	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (((𝑥↑2) + (𝑦↑2)) = 0 ↔ ((𝑥↑2) = 0 ∧ (𝑦↑2) = 0)))
26		zcn 12625	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ ℤ → 𝑥 ∈ ℂ)
27	26	ad2antrr 724	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → 𝑥 ∈ ℂ)
28		zcn 12625	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ℤ → 𝑦 ∈ ℂ)
29	28	ad2antlr 725	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → 𝑦 ∈ ℂ)
30		sqeq0 14150	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ ℂ → ((𝑥↑2) = 0 ↔ 𝑥 = 0))
31		sqeq0 14150	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ℂ → ((𝑦↑2) = 0 ↔ 𝑦 = 0))
32	30, 31	bi2anan9 636	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (((𝑥↑2) = 0 ∧ (𝑦↑2) = 0) ↔ (𝑥 = 0 ∧ 𝑦 = 0)))
33	27, 29, 32	syl2anc 582	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (((𝑥↑2) = 0 ∧ (𝑦↑2) = 0) ↔ (𝑥 = 0 ∧ 𝑦 = 0)))
34	25, 33	bitrd 278	. . . . . . . . 9 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (((𝑥↑2) + (𝑦↑2)) = 0 ↔ (𝑥 = 0 ∧ 𝑦 = 0)))
35	15, 34	mtbird 324	. . . . . . . 8 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → ¬ ((𝑥↑2) + (𝑦↑2)) = 0)
36		nn0addcl 12569	. . . . . . . . . . . 12 ⊢ (((𝑥↑2) ∈ ℕ0 ∧ (𝑦↑2) ∈ ℕ0) → ((𝑥↑2) + (𝑦↑2)) ∈ ℕ0)
37	16, 20, 36	syl2an 594	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) → ((𝑥↑2) + (𝑦↑2)) ∈ ℕ0)
38	37	adantr 479	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → ((𝑥↑2) + (𝑦↑2)) ∈ ℕ0)
39		elnn0 12536	. . . . . . . . . 10 ⊢ (((𝑥↑2) + (𝑦↑2)) ∈ ℕ0 ↔ (((𝑥↑2) + (𝑦↑2)) ∈ ℕ ∨ ((𝑥↑2) + (𝑦↑2)) = 0))
40	38, 39	sylib 217	. . . . . . . . 9 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (((𝑥↑2) + (𝑦↑2)) ∈ ℕ ∨ ((𝑥↑2) + (𝑦↑2)) = 0))
41	40	ord 862	. . . . . . . 8 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (¬ ((𝑥↑2) + (𝑦↑2)) ∈ ℕ → ((𝑥↑2) + (𝑦↑2)) = 0))
42	35, 41	mt3d 148	. . . . . . 7 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → ((𝑥↑2) + (𝑦↑2)) ∈ ℕ)
43		eleq1 2817	. . . . . . 7 ⊢ (𝑧 = ((𝑥↑2) + (𝑦↑2)) → (𝑧 ∈ ℕ ↔ ((𝑥↑2) + (𝑦↑2)) ∈ ℕ))
44	42, 43	syl5ibrcom 246	. . . . . 6 ⊢ (((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) ∧ (𝑥 gcd 𝑦) = 1) → (𝑧 = ((𝑥↑2) + (𝑦↑2)) → 𝑧 ∈ ℕ))
45	44	expimpd 452	. . . . 5 ⊢ ((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) → (((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) → 𝑧 ∈ ℕ))
46	45	rexlimivv 3194	. . . 4 ⊢ (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) → 𝑧 ∈ ℕ)
47	7, 46	elind 4205	. . 3 ⊢ (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) → 𝑧 ∈ (𝑆 ∩ ℕ))
48	47	abssi 4076	. 2 ⊢ {𝑧 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2)))} ⊆ (𝑆 ∩ ℕ)
49	1, 48	eqsstri 4026	1 ⊢ 𝑌 ⊆ (𝑆 ∩ ℕ)

Syntax hints:  ¬ wn 3   ↔ wb 205   ∧ wa 394   ∨ wo 845   = wceq 1534   ∈ wcel 2100  {cab 2706   ≠ wne 2933  ∃wrex 3063   ∩ cin 3958   ⊆ wss 3959   class class class wbr 5156   ↦ cmpt 5239  ran crn 5687  ‘cfv 6558  (class class class)co 7430  ℂcc 11163  ℝcr 11164  0cc0 11165  1c1 11166   + caddc 11168   ≤ cle 11306  ℕcn 12274  2c2 12329  ℕ₀cn0 12534  ℤcz 12620  ↑cexp 14092  abscabs 15260   gcd cgcd 16515  ℤ[i]cgz 16952

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2102  ax-9 2110  ax-10 2133  ax-11 2150  ax-12 2170  ax-ext 2700  ax-sep 5307  ax-nul 5314  ax-pow 5373  ax-pr 5437  ax-un 7751  ax-cnex 11221  ax-resscn 11222  ax-1cn 11223  ax-icn 11224  ax-addcl 11225  ax-addrcl 11226  ax-mulcl 11227  ax-mulrcl 11228  ax-mulcom 11229  ax-addass 11230  ax-mulass 11231  ax-distr 11232  ax-i2m1 11233  ax-1ne0 11234  ax-1rid 11235  ax-rnegex 11236  ax-rrecex 11237  ax-cnre 11238  ax-pre-lttri 11239  ax-pre-lttrn 11240  ax-pre-ltadd 11241  ax-pre-mulgt0 11242  ax-pre-sup 11243

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2062  df-mo 2532  df-eu 2561  df-clab 2707  df-cleq 2721  df-clel 2806  df-nfc 2881  df-ne 2934  df-nel 3040  df-ral 3055  df-rex 3064  df-rmo 3373  df-reu 3374  df-rab 3429  df-v 3474  df-sbc 3789  df-csb 3905  df-dif 3962  df-un 3964  df-in 3966  df-ss 3976  df-pss 3979  df-nul 4336  df-if 4537  df-pw 4612  df-sn 4637  df-pr 4639  df-op 4643  df-uni 4919  df-iun 5008  df-br 5157  df-opab 5219  df-mpt 5240  df-tr 5274  df-id 5584  df-eprel 5590  df-po 5598  df-so 5599  df-fr 5641  df-we 5643  df-xp 5692  df-rel 5693  df-cnv 5694  df-co 5695  df-dm 5696  df-rn 5697  df-res 5698  df-ima 5699  df-pred 6317  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6510  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-riota 7386  df-ov 7433  df-oprab 7434  df-mpo 7435  df-om 7885  df-2nd 8012  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-er 8742  df-en 8983  df-dom 8984  df-sdom 8985  df-sup 9492  df-inf 9493  df-pnf 11307  df-mnf 11308  df-xr 11309  df-ltxr 11310  df-le 11311  df-sub 11503  df-neg 11504  df-div 11929  df-nn 12275  df-2 12337  df-3 12338  df-n0 12535  df-z 12621  df-uz 12885  df-rp 13039  df-seq 14033  df-exp 14093  df-cj 15125  df-re 15126  df-im 15127  df-sqrt 15261  df-abs 15262  df-dvds 16278  df-gcd 16516  df-gz 16953

This theorem is referenced by:  2sqlem8  27478  2sqlem9  27479