4sqlem16 - Metamath Proof Explorer

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

Theorem 4sqlem16 16999

Description: Lemma for 4sq 17003. (Contributed by Mario Carneiro, 16-Jul-2014.) (Revised by AV, 14-Sep-2020.)

**Hypotheses**
Ref	Expression
4sq.1	⊢ 𝑆 = {𝑛 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℤ 𝑛 = (((𝑥↑2) + (𝑦↑2)) + ((𝑧↑2) + (𝑤↑2)))}
4sq.2	⊢ (𝜑 → 𝑁 ∈ ℕ)
4sq.3	⊢ (𝜑 → 𝑃 = ((2 · 𝑁) + 1))
4sq.4	⊢ (𝜑 → 𝑃 ∈ ℙ)
4sq.5	⊢ (𝜑 → (0...(2 · 𝑁)) ⊆ 𝑆)
4sq.6	⊢ 𝑇 = {𝑖 ∈ ℕ ∣ (𝑖 · 𝑃) ∈ 𝑆}
4sq.7	⊢ 𝑀 = inf(𝑇, ℝ, < )
4sq.m	⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘2))
4sq.a	⊢ (𝜑 → 𝐴 ∈ ℤ)
4sq.b	⊢ (𝜑 → 𝐵 ∈ ℤ)
4sq.c	⊢ (𝜑 → 𝐶 ∈ ℤ)
4sq.d	⊢ (𝜑 → 𝐷 ∈ ℤ)
4sq.e	⊢ 𝐸 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.f	⊢ 𝐹 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.g	⊢ 𝐺 = (((𝐶 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.h	⊢ 𝐻 = (((𝐷 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.r	⊢ 𝑅 = ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀)
4sq.p	⊢ (𝜑 → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))

**Assertion**
Ref	Expression
4sqlem16	⊢ (𝜑 → (𝑅 ≤ 𝑀 ∧ ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃))))

Distinct variable groups: 𝑤,𝑛,𝑥,𝑦,𝑧 𝐵,𝑛 𝑛,𝐸 𝑛,𝐺 𝑛,𝐻 𝐴,𝑛 𝐶,𝑛 𝐷,𝑛 𝑛,𝐹 𝑖,𝑛,𝑀 𝑛,𝑁 𝑃,𝑖,𝑛 𝜑,𝑛 𝑆,𝑖,𝑛 𝑅,𝑖 Allowed substitution hints: 𝜑(𝑥,𝑦,𝑧,𝑤,𝑖) 𝐴(𝑥,𝑦,𝑧,𝑤,𝑖) 𝐵(𝑥,𝑦,𝑧,𝑤,𝑖) 𝐶(𝑥,𝑦,𝑧,𝑤,𝑖) 𝐷(𝑥,𝑦,𝑧,𝑤,𝑖) 𝑃(𝑥,𝑦,𝑧,𝑤) 𝑅(𝑥,𝑦,𝑧,𝑤,𝑛) 𝑆(𝑥,𝑦,𝑧,𝑤) 𝑇(𝑥,𝑦,𝑧,𝑤,𝑖,𝑛) 𝐸(𝑥,𝑦,𝑧,𝑤,𝑖) 𝐹(𝑥,𝑦,𝑧,𝑤,𝑖) 𝐺(𝑥,𝑦,𝑧,𝑤,𝑖) 𝐻(𝑥,𝑦,𝑧,𝑤,𝑖) 𝑀(𝑥,𝑦,𝑧,𝑤) 𝑁(𝑥,𝑦,𝑧,𝑤,𝑖)

**Proof of Theorem 4sqlem16**
Step	Hyp	Ref	Expression
1		4sq.r	. . 3 ⊢ 𝑅 = ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀)
2		4sq.a	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℤ)
3		4sq.m	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘2))
4		eluz2nn 12925	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ (ℤ_≥‘2) → 𝑀 ∈ ℕ)
5	3, 4	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ ℕ)
6		4sq.e	. . . . . . . . . . . 12 ⊢ 𝐸 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
7	2, 5, 6	4sqlem5 16981	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 ∈ ℤ ∧ ((𝐴 − 𝐸) / 𝑀) ∈ ℤ))
8	7	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ ℤ)
9		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ∈ ℤ)
11	10	zred 12724	. . . . . . . 8 ⊢ (𝜑 → (𝐸↑2) ∈ ℝ)
12		4sq.b	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℤ)
13		4sq.f	. . . . . . . . . . . 12 ⊢ 𝐹 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
14	12, 5, 13	4sqlem5 16981	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∈ ℤ ∧ ((𝐵 − 𝐹) / 𝑀) ∈ ℤ))
15	14	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ ℤ)
16		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℤ)
17	15, 16	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ∈ ℤ)
18	17	zred 12724	. . . . . . . 8 ⊢ (𝜑 → (𝐹↑2) ∈ ℝ)
19	11, 18	readdcld 11291	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℝ)
20		4sq.c	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶 ∈ ℤ)
21		4sq.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (((𝐶 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
22	20, 5, 21	4sqlem5 16981	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐺 ∈ ℤ ∧ ((𝐶 − 𝐺) / 𝑀) ∈ ℤ))
23	22	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ∈ ℤ)
24		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℤ)
25	23, 24	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ∈ ℤ)
26	25	zred 12724	. . . . . . . 8 ⊢ (𝜑 → (𝐺↑2) ∈ ℝ)
27		4sq.d	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ ℤ)
28		4sq.h	. . . . . . . . . . . 12 ⊢ 𝐻 = (((𝐷 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
29	27, 5, 28	4sqlem5 16981	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∈ ℤ ∧ ((𝐷 − 𝐻) / 𝑀) ∈ ℤ))
30	29	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ ℤ)
31		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℤ)
32	30, 31	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ∈ ℤ)
33	32	zred 12724	. . . . . . . 8 ⊢ (𝜑 → (𝐻↑2) ∈ ℝ)
34	26, 33	readdcld 11291	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℝ)
35	5	nnred 12282	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
36	35	resqcld 14166	. . . . . . . 8 ⊢ (𝜑 → (𝑀↑2) ∈ ℝ)
37	36	rehalfcld 12515	. . . . . . 7 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℝ)
38	37	rehalfcld 12515	. . . . . . . . 9 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℝ)
39	2, 5, 6	4sqlem7 16983	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ≤ (((𝑀↑2) / 2) / 2))
40	12, 5, 13	4sqlem7 16983	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ≤ (((𝑀↑2) / 2) / 2))
41	11, 18, 38, 38, 39, 40	le2addd 11883	. . . . . . . 8 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
42	37	recnd 11290	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℂ)
43	42	2halvesd 12514	. . . . . . . 8 ⊢ (𝜑 → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
44	41, 43	breqtrd 5168	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝑀↑2) / 2))
45	20, 5, 21	4sqlem7 16983	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ≤ (((𝑀↑2) / 2) / 2))
46	27, 5, 28	4sqlem7 16983	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ≤ (((𝑀↑2) / 2) / 2))
47	26, 33, 38, 38, 45, 46	le2addd 11883	. . . . . . . 8 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
48	47, 43	breqtrd 5168	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((𝑀↑2) / 2))
49	19, 34, 37, 37, 44, 48	le2addd 11883	. . . . . 6 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (((𝑀↑2) / 2) + ((𝑀↑2) / 2)))
50	36	recnd 11290	. . . . . . 7 ⊢ (𝜑 → (𝑀↑2) ∈ ℂ)
51	50	2halvesd 12514	. . . . . 6 ⊢ (𝜑 → (((𝑀↑2) / 2) + ((𝑀↑2) / 2)) = (𝑀↑2))
52	49, 51	breqtrd 5168	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀↑2))
53	35	recnd 11290	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ℂ)
54	53	sqvald 14184	. . . . 5 ⊢ (𝜑 → (𝑀↑2) = (𝑀 · 𝑀))
55	52, 54	breqtrd 5168	. . . 4 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀))
56	19, 34	readdcld 11291	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ)
57	5	nngt0d 12316	. . . . 5 ⊢ (𝜑 → 0 < 𝑀)
58		ledivmul 12145	. . . . 5 ⊢ (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
59	56, 35, 35, 57, 58	syl112anc 1375	. . . 4 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
60	55, 59	mpbird 257	. . 3 ⊢ (𝜑 → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀)
61	1, 60	eqbrtrid 5177	. 2 ⊢ (𝜑 → 𝑅 ≤ 𝑀)
62		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 0) → 𝑅 = 0)
63	1, 62	eqtr3id 2790	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0)
64	56	recnd 11290	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℂ)
65	5	nnne0d 12317	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑀 ≠ 0)
66	64, 53, 65	diveq0ad 12054	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0))
67		zsqcl2 14179	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℕ₀)
68	8, 67	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐸↑2) ∈ ℕ₀)
69		zsqcl2 14179	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℕ₀)
70	15, 69	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐹↑2) ∈ ℕ₀)
71	68, 70	nn0addcld 12593	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ₀)
72	71	nn0ge0d 12592	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐸↑2) + (𝐹↑2)))
73		zsqcl2 14179	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℕ₀)
74	23, 73	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐺↑2) ∈ ℕ₀)
75		zsqcl2 14179	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℕ₀)
76	30, 75	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻↑2) ∈ ℕ₀)
77	74, 76	nn0addcld 12593	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℕ₀)
78	77	nn0ge0d 12592	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐺↑2) + (𝐻↑2)))
79		add20 11776	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸↑2) + (𝐹↑2)) ∈ ℝ ∧ 0 ≤ ((𝐸↑2) + (𝐹↑2))) ∧ (((𝐺↑2) + (𝐻↑2)) ∈ ℝ ∧ 0 ≤ ((𝐺↑2) + (𝐻↑2)))) → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0)))
80	19, 72, 34, 78, 79	syl22anc 838	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0)))
81	66, 80	bitrd 279	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0)))
82	81	biimpa 476	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0) → (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0))
83	63, 82	syldan 591	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0))
84	83	simpld 494	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) + (𝐹↑2)) = 0)
85	68	nn0ge0d 12592	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐸↑2))
86	70	nn0ge0d 12592	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐹↑2))
87		add20 11776	. . . . . . . . . . . 12 ⊢ ((((𝐸↑2) ∈ ℝ ∧ 0 ≤ (𝐸↑2)) ∧ ((𝐹↑2) ∈ ℝ ∧ 0 ≤ (𝐹↑2))) → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
88	11, 85, 18, 86, 87	syl22anc 838	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
89	88	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐸↑2) + (𝐹↑2)) = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
90	84, 89	syldan 591	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
91	90	simpld 494	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐸↑2) = 0)
92	2, 5, 6, 91	4sqlem9 16985	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐴↑2))
93	90	simprd 495	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐹↑2) = 0)
94	12, 5, 13, 93	4sqlem9 16985	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐵↑2))
95	5	nnsqcld 14284	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀↑2) ∈ ℕ)
96	95	nnzd 12642	. . . . . . . . 9 ⊢ (𝜑 → (𝑀↑2) ∈ ℤ)
97		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℤ → (𝐴↑2) ∈ ℤ)
98	2, 97	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) ∈ ℤ)
99		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
100	12, 99	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐵↑2) ∈ ℤ)
101		dvds2add 16328	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐴↑2) ∈ ℤ ∧ (𝐵↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
102	96, 98, 100, 101	syl3anc 1372	. . . . . . . 8 ⊢ (𝜑 → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
103	102	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
104	92, 94, 103	mp2and 699	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)))
105	83	simprd 495	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) + (𝐻↑2)) = 0)
106	74	nn0ge0d 12592	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐺↑2))
107	76	nn0ge0d 12592	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐻↑2))
108		add20 11776	. . . . . . . . . . . 12 ⊢ ((((𝐺↑2) ∈ ℝ ∧ 0 ≤ (𝐺↑2)) ∧ ((𝐻↑2) ∈ ℝ ∧ 0 ≤ (𝐻↑2))) → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
109	26, 106, 33, 107, 108	syl22anc 838	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
110	109	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐺↑2) + (𝐻↑2)) = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
111	105, 110	syldan 591	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
112	111	simpld 494	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐺↑2) = 0)
113	20, 5, 21, 112	4sqlem9 16985	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐶↑2))
114	111	simprd 495	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐻↑2) = 0)
115	27, 5, 28, 114	4sqlem9 16985	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐷↑2))
116		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐶 ∈ ℤ → (𝐶↑2) ∈ ℤ)
117	20, 116	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐶↑2) ∈ ℤ)
118		zsqcl 14170	. . . . . . . . . 10 ⊢ (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
119	27, 118	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐷↑2) ∈ ℤ)
120		dvds2add 16328	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐶↑2) ∈ ℤ ∧ (𝐷↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
121	96, 117, 119, 120	syl3anc 1372	. . . . . . . 8 ⊢ (𝜑 → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
122	121	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
123	113, 115, 122	mp2and 699	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2)))
124	98, 100	zaddcld 12728	. . . . . . . 8 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℤ)
125	117, 119	zaddcld 12728	. . . . . . . 8 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
126		dvds2add 16328	. . . . . . . 8 ⊢ (((𝑀↑2) ∈ ℤ ∧ ((𝐴↑2) + (𝐵↑2)) ∈ ℤ ∧ ((𝐶↑2) + (𝐷↑2)) ∈ ℤ) → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
127	96, 124, 125, 126	syl3anc 1372	. . . . . . 7 ⊢ (𝜑 → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
128	127	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
129	104, 123, 128	mp2and 699	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
130	96	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∈ ℤ)
131	124	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐴↑2) + (𝐵↑2)) ∈ ℤ)
132	43	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
133		4sq.1	. . . . . . . . . . . . . . . 16 ⊢ 𝑆 = {𝑛 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℤ 𝑛 = (((𝑥↑2) + (𝑦↑2)) + ((𝑧↑2) + (𝑤↑2)))}
134		4sq.2	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 ∈ ℕ)
135		4sq.3	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 = ((2 · 𝑁) + 1))
136		4sq.4	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑃 ∈ ℙ)
137		4sq.5	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (0...(2 · 𝑁)) ⊆ 𝑆)
138		4sq.6	. . . . . . . . . . . . . . . 16 ⊢ 𝑇 = {𝑖 ∈ ℕ ∣ (𝑖 · 𝑃) ∈ 𝑆}
139		4sq.7	. . . . . . . . . . . . . . . 16 ⊢ 𝑀 = inf(𝑇, ℝ, < )
140		4sq.p	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
141	133, 134, 135, 136, 137, 138, 139, 3, 2, 12, 20, 27, 6, 13, 21, 28, 1, 140	4sqlem15 16998	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0) ∧ (((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0)))
142	141	simpld 494	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0))
143	142	simpld 494	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0)
144	38	recnd 11290	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℂ)
145	10	zcnd 12725	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐸↑2) ∈ ℂ)
146	144, 145	subeq0ad 11631	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ↔ (((𝑀↑2) / 2) / 2) = (𝐸↑2)))
147	146	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ↔ (((𝑀↑2) / 2) / 2) = (𝐸↑2)))
148	143, 147	mpbid 232	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) = (𝐸↑2))
149	10	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐸↑2) ∈ ℤ)
150	148, 149	eqeltrd 2840	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) ∈ ℤ)
151	150, 150	zaddcld 12728	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) ∈ ℤ)
152	132, 151	eqeltrrd 2841	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝑀↑2) / 2) ∈ ℤ)
153	131, 152	zsubcld 12729	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
154	125	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
155	154, 152	zsubcld 12729	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
156	98	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐴↑2) ∈ ℤ)
157	156, 150	zsubcld 12729	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐴↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
158	100	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐵↑2) ∈ ℤ)
159	158, 150	zsubcld 12729	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐵↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
160	2, 5, 6, 143	4sqlem10 16986	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
161	142	simprd 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0)
162	12, 5, 13, 161	4sqlem10 16986	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐵↑2) − (((𝑀↑2) / 2) / 2)))
163	130, 157, 159, 160, 162	dvds2addd 16330	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
164	98	zcnd 12725	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴↑2) ∈ ℂ)
165	100	zcnd 12725	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵↑2) ∈ ℂ)
166	164, 165, 144, 144	addsub4d 11668	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
167	43	oveq2d 7448	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
168	166, 167	eqtr3d 2778	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
169	168	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
170	163, 169	breqtrd 5168	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
171	117	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐶↑2) ∈ ℤ)
172	171, 150	zsubcld 12729	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
173	119	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐷↑2) ∈ ℤ)
174	173, 150	zsubcld 12729	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐷↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
175	141	simprd 495	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0))
176	175	simpld 494	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0)
177	20, 5, 21, 176	4sqlem10 16986	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐶↑2) − (((𝑀↑2) / 2) / 2)))
178	175	simprd 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0)
179	27, 5, 28, 178	4sqlem10 16986	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐷↑2) − (((𝑀↑2) / 2) / 2)))
180	130, 172, 174, 177, 179	dvds2addd 16330	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
181	117	zcnd 12725	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
182	119	zcnd 12725	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷↑2) ∈ ℂ)
183	181, 182, 144, 144	addsub4d 11668	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
184	43	oveq2d 7448	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
185	183, 184	eqtr3d 2778	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
186	185	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
187	180, 186	breqtrd 5168	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
188	130, 153, 155, 170, 187	dvds2addd 16330	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
189	124	zcnd 12725	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℂ)
190	125	zcnd 12725	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℂ)
191	189, 190, 42, 42	addsub4d 11668	. . . . . . . . 9 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (((𝑀↑2) / 2) + ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
192	51	oveq2d 7448	. . . . . . . . 9 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (((𝑀↑2) / 2) + ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
193	191, 192	eqtr3d 2778	. . . . . . . 8 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
194	193	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
195	188, 194	breqtrd 5168	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
196	124, 125	zaddcld 12728	. . . . . . . 8 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
197	196	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
198		dvdssubr 16343	. . . . . . 7 ⊢ (((𝑀↑2) ∈ ℤ ∧ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ) → ((𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ↔ (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2))))
199	130, 197, 198	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ↔ (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2))))
200	195, 199	mpbird 257	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
201	129, 200	jaodan 959	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
202	140	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
203	201, 202	breqtrrd 5170	. . 3 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀↑2) ∥ (𝑀 · 𝑃))
204	203	ex 412	. 2 ⊢ (𝜑 → ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃)))
205	61, 204	jca 511	1 ⊢ (𝜑 → (𝑅 ≤ 𝑀 ∧ ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 = wceq 1539 ∈ wcel 2107 {cab 2713 ∃wrex 3069 {crab 3435 ⊆ wss 3950 class class class wbr 5142 ‘cfv 6560 (class class class)co 7432 infcinf 9482 ℝcr 11155 0cc0 11156 1c1 11157 + caddc 11159 · cmul 11161 < clt 11296 ≤ cle 11297 − cmin 11493 / cdiv 11921 ℕcn 12267 2c2 12322 ℕ₀cn0 12528 ℤcz 12615 ℤ_≥cuz 12879 ...cfz 13548 mod cmo 13910 ↑cexp 14103 ∥ cdvds 16291 ℙcprime 16709

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1794 ax-4 1808 ax-5 1909 ax-6 1966 ax-7 2006 ax-8 2109 ax-9 2117 ax-10 2140 ax-11 2156 ax-12 2176 ax-ext 2707 ax-sep 5295 ax-nul 5305 ax-pow 5364 ax-pr 5431 ax-un 7756 ax-cnex 11212 ax-resscn 11213 ax-1cn 11214 ax-icn 11215 ax-addcl 11216 ax-addrcl 11217 ax-mulcl 11218 ax-mulrcl 11219 ax-mulcom 11220 ax-addass 11221 ax-mulass 11222 ax-distr 11223 ax-i2m1 11224 ax-1ne0 11225 ax-1rid 11226 ax-rnegex 11227 ax-rrecex 11228 ax-cnre 11229 ax-pre-lttri 11230 ax-pre-lttrn 11231 ax-pre-ltadd 11232 ax-pre-mulgt0 11233 ax-pre-sup 11234

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1779 df-nf 1783 df-sb 2064 df-mo 2539 df-eu 2568 df-clab 2714 df-cleq 2728 df-clel 2815 df-nfc 2891 df-ne 2940 df-nel 3046 df-ral 3061 df-rex 3070 df-rmo 3379 df-reu 3380 df-rab 3436 df-v 3481 df-sbc 3788 df-csb 3899 df-dif 3953 df-un 3955 df-in 3957 df-ss 3967 df-pss 3970 df-nul 4333 df-if 4525 df-pw 4601 df-sn 4626 df-pr 4628 df-op 4632 df-uni 4907 df-iun 4992 df-br 5143 df-opab 5205 df-mpt 5225 df-tr 5259 df-id 5577 df-eprel 5583 df-po 5591 df-so 5592 df-fr 5636 df-we 5638 df-xp 5690 df-rel 5691 df-cnv 5692 df-co 5693 df-dm 5694 df-rn 5695 df-res 5696 df-ima 5697 df-pred 6320 df-ord 6386 df-on 6387 df-lim 6388 df-suc 6389 df-iota 6513 df-fun 6562 df-fn 6563 df-f 6564 df-f1 6565 df-fo 6566 df-f1o 6567 df-fv 6568 df-riota 7389 df-ov 7435 df-oprab 7436 df-mpo 7437 df-om 7889 df-2nd 8016 df-frecs 8307 df-wrecs 8338 df-recs 8412 df-rdg 8451 df-er 8746 df-en 8987 df-dom 8988 df-sdom 8989 df-sup 9483 df-inf 9484 df-pnf 11298 df-mnf 11299 df-xr 11300 df-ltxr 11301 df-le 11302 df-sub 11495 df-neg 11496 df-div 11922 df-nn 12268 df-2 12330 df-3 12331 df-n0 12529 df-z 12616 df-uz 12880 df-rp 13036 df-fl 13833 df-mod 13911 df-seq 14044 df-exp 14104 df-cj 15139 df-re 15140 df-im 15141 df-sqrt 15275 df-abs 15276 df-dvds 16292 df-gcd 16533

This theorem is referenced by: 4sqlem17 17000

W3C validator