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 16832

Description: Lemma for 4sq 16836. (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 12809	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ (ℤ_≥‘2) → 𝑀 ∈ ℕ)
5	3, 4	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ ℕ)
6		4sq.e	. . . . . . . . . . . 12 ⊢ 𝐸 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
7	2, 5, 6	4sqlem5 16814	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 ∈ ℤ ∧ ((𝐴 − 𝐸) / 𝑀) ∈ ℤ))
8	7	simpld 495	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ ℤ)
9		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ∈ ℤ)
11	10	zred 12607	. . . . . . . 8 ⊢ (𝜑 → (𝐸↑2) ∈ ℝ)
12		4sq.b	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℤ)
13		4sq.f	. . . . . . . . . . . 12 ⊢ 𝐹 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
14	12, 5, 13	4sqlem5 16814	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∈ ℤ ∧ ((𝐵 − 𝐹) / 𝑀) ∈ ℤ))
15	14	simpld 495	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ ℤ)
16		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℤ)
17	15, 16	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ∈ ℤ)
18	17	zred 12607	. . . . . . . 8 ⊢ (𝜑 → (𝐹↑2) ∈ ℝ)
19	11, 18	readdcld 11184	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℝ)
20		4sq.c	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶 ∈ ℤ)
21		4sq.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (((𝐶 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
22	20, 5, 21	4sqlem5 16814	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐺 ∈ ℤ ∧ ((𝐶 − 𝐺) / 𝑀) ∈ ℤ))
23	22	simpld 495	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ∈ ℤ)
24		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℤ)
25	23, 24	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ∈ ℤ)
26	25	zred 12607	. . . . . . . 8 ⊢ (𝜑 → (𝐺↑2) ∈ ℝ)
27		4sq.d	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ ℤ)
28		4sq.h	. . . . . . . . . . . 12 ⊢ 𝐻 = (((𝐷 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
29	27, 5, 28	4sqlem5 16814	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∈ ℤ ∧ ((𝐷 − 𝐻) / 𝑀) ∈ ℤ))
30	29	simpld 495	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ ℤ)
31		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℤ)
32	30, 31	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ∈ ℤ)
33	32	zred 12607	. . . . . . . 8 ⊢ (𝜑 → (𝐻↑2) ∈ ℝ)
34	26, 33	readdcld 11184	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℝ)
35	5	nnred 12168	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
36	35	resqcld 14030	. . . . . . . 8 ⊢ (𝜑 → (𝑀↑2) ∈ ℝ)
37	36	rehalfcld 12400	. . . . . . 7 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℝ)
38	37	rehalfcld 12400	. . . . . . . . 9 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℝ)
39	2, 5, 6	4sqlem7 16816	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ≤ (((𝑀↑2) / 2) / 2))
40	12, 5, 13	4sqlem7 16816	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ≤ (((𝑀↑2) / 2) / 2))
41	11, 18, 38, 38, 39, 40	le2addd 11774	. . . . . . . 8 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
42	37	recnd 11183	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℂ)
43	42	2halvesd 12399	. . . . . . . 8 ⊢ (𝜑 → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
44	41, 43	breqtrd 5131	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝑀↑2) / 2))
45	20, 5, 21	4sqlem7 16816	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ≤ (((𝑀↑2) / 2) / 2))
46	27, 5, 28	4sqlem7 16816	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ≤ (((𝑀↑2) / 2) / 2))
47	26, 33, 38, 38, 45, 46	le2addd 11774	. . . . . . . 8 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
48	47, 43	breqtrd 5131	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((𝑀↑2) / 2))
49	19, 34, 37, 37, 44, 48	le2addd 11774	. . . . . 6 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (((𝑀↑2) / 2) + ((𝑀↑2) / 2)))
50	36	recnd 11183	. . . . . . 7 ⊢ (𝜑 → (𝑀↑2) ∈ ℂ)
51	50	2halvesd 12399	. . . . . 6 ⊢ (𝜑 → (((𝑀↑2) / 2) + ((𝑀↑2) / 2)) = (𝑀↑2))
52	49, 51	breqtrd 5131	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀↑2))
53	35	recnd 11183	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ℂ)
54	53	sqvald 14048	. . . . 5 ⊢ (𝜑 → (𝑀↑2) = (𝑀 · 𝑀))
55	52, 54	breqtrd 5131	. . . 4 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀))
56	19, 34	readdcld 11184	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ)
57	5	nngt0d 12202	. . . . 5 ⊢ (𝜑 → 0 < 𝑀)
58		ledivmul 12031	. . . . 5 ⊢ (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
59	56, 35, 35, 57, 58	syl112anc 1374	. . . 4 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
60	55, 59	mpbird 256	. . 3 ⊢ (𝜑 → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀)
61	1, 60	eqbrtrid 5140	. 2 ⊢ (𝜑 → 𝑅 ≤ 𝑀)
62		simpr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 0) → 𝑅 = 0)
63	1, 62	eqtr3id 2790	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0)
64	56	recnd 11183	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℂ)
65	5	nnne0d 12203	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑀 ≠ 0)
66	64, 53, 65	diveq0ad 11941	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0))
67		zsqcl2 14043	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℕ₀)
68	8, 67	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐸↑2) ∈ ℕ₀)
69		zsqcl2 14043	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℕ₀)
70	15, 69	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐹↑2) ∈ ℕ₀)
71	68, 70	nn0addcld 12477	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ₀)
72	71	nn0ge0d 12476	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐸↑2) + (𝐹↑2)))
73		zsqcl2 14043	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℕ₀)
74	23, 73	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐺↑2) ∈ ℕ₀)
75		zsqcl2 14043	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℕ₀)
76	30, 75	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻↑2) ∈ ℕ₀)
77	74, 76	nn0addcld 12477	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℕ₀)
78	77	nn0ge0d 12476	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐺↑2) + (𝐻↑2)))
79		add20 11667	. . . . . . . . . . . . . . 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 837	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0)))
81	66, 80	bitrd 278	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0)))
82	81	biimpa 477	. . . . . . . . . . . 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 495	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) + (𝐹↑2)) = 0)
85	68	nn0ge0d 12476	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐸↑2))
86	70	nn0ge0d 12476	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐹↑2))
87		add20 11667	. . . . . . . . . . . 12 ⊢ ((((𝐸↑2) ∈ ℝ ∧ 0 ≤ (𝐸↑2)) ∧ ((𝐹↑2) ∈ ℝ ∧ 0 ≤ (𝐹↑2))) → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
88	11, 85, 18, 86, 87	syl22anc 837	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
89	88	biimpa 477	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐸↑2) + (𝐹↑2)) = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
90	84, 89	syldan 591	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
91	90	simpld 495	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐸↑2) = 0)
92	2, 5, 6, 91	4sqlem9 16818	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐴↑2))
93	90	simprd 496	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐹↑2) = 0)
94	12, 5, 13, 93	4sqlem9 16818	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐵↑2))
95	5	nnsqcld 14147	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀↑2) ∈ ℕ)
96	95	nnzd 12526	. . . . . . . . 9 ⊢ (𝜑 → (𝑀↑2) ∈ ℤ)
97		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℤ → (𝐴↑2) ∈ ℤ)
98	2, 97	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) ∈ ℤ)
99		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
100	12, 99	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐵↑2) ∈ ℤ)
101		dvds2add 16172	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐴↑2) ∈ ℤ ∧ (𝐵↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
102	96, 98, 100, 101	syl3anc 1371	. . . . . . . 8 ⊢ (𝜑 → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
103	102	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
104	92, 94, 103	mp2and 697	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)))
105	83	simprd 496	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) + (𝐻↑2)) = 0)
106	74	nn0ge0d 12476	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐺↑2))
107	76	nn0ge0d 12476	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐻↑2))
108		add20 11667	. . . . . . . . . . . 12 ⊢ ((((𝐺↑2) ∈ ℝ ∧ 0 ≤ (𝐺↑2)) ∧ ((𝐻↑2) ∈ ℝ ∧ 0 ≤ (𝐻↑2))) → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
109	26, 106, 33, 107, 108	syl22anc 837	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
110	109	biimpa 477	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐺↑2) + (𝐻↑2)) = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
111	105, 110	syldan 591	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
112	111	simpld 495	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐺↑2) = 0)
113	20, 5, 21, 112	4sqlem9 16818	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐶↑2))
114	111	simprd 496	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐻↑2) = 0)
115	27, 5, 28, 114	4sqlem9 16818	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐷↑2))
116		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐶 ∈ ℤ → (𝐶↑2) ∈ ℤ)
117	20, 116	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐶↑2) ∈ ℤ)
118		zsqcl 14034	. . . . . . . . . 10 ⊢ (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
119	27, 118	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐷↑2) ∈ ℤ)
120		dvds2add 16172	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐶↑2) ∈ ℤ ∧ (𝐷↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
121	96, 117, 119, 120	syl3anc 1371	. . . . . . . 8 ⊢ (𝜑 → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
122	121	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
123	113, 115, 122	mp2and 697	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2)))
124	98, 100	zaddcld 12611	. . . . . . . 8 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℤ)
125	117, 119	zaddcld 12611	. . . . . . . 8 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
126		dvds2add 16172	. . . . . . . 8 ⊢ (((𝑀↑2) ∈ ℤ ∧ ((𝐴↑2) + (𝐵↑2)) ∈ ℤ ∧ ((𝐶↑2) + (𝐷↑2)) ∈ ℤ) → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
127	96, 124, 125, 126	syl3anc 1371	. . . . . . 7 ⊢ (𝜑 → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
128	127	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
129	104, 123, 128	mp2and 697	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
130	96	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∈ ℤ)
131	124	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐴↑2) + (𝐵↑2)) ∈ ℤ)
132	43	adantr 481	. . . . . . . . . 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 16831	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0) ∧ (((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0)))
142	141	simpld 495	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0))
143	142	simpld 495	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0)
144	38	recnd 11183	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℂ)
145	10	zcnd 12608	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐸↑2) ∈ ℂ)
146	144, 145	subeq0ad 11522	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ↔ (((𝑀↑2) / 2) / 2) = (𝐸↑2)))
147	146	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ↔ (((𝑀↑2) / 2) / 2) = (𝐸↑2)))
148	143, 147	mpbid 231	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) = (𝐸↑2))
149	10	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐸↑2) ∈ ℤ)
150	148, 149	eqeltrd 2838	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) ∈ ℤ)
151	150, 150	zaddcld 12611	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) ∈ ℤ)
152	132, 151	eqeltrrd 2839	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝑀↑2) / 2) ∈ ℤ)
153	131, 152	zsubcld 12612	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
154	125	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
155	154, 152	zsubcld 12612	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
156	98	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐴↑2) ∈ ℤ)
157	156, 150	zsubcld 12612	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐴↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
158	100	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐵↑2) ∈ ℤ)
159	158, 150	zsubcld 12612	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐵↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
160	2, 5, 6, 143	4sqlem10 16819	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
161	142	simprd 496	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0)
162	12, 5, 13, 161	4sqlem10 16819	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐵↑2) − (((𝑀↑2) / 2) / 2)))
163	130, 157, 159, 160, 162	dvds2addd 16174	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
164	98	zcnd 12608	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴↑2) ∈ ℂ)
165	100	zcnd 12608	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵↑2) ∈ ℂ)
166	164, 165, 144, 144	addsub4d 11559	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
167	43	oveq2d 7373	. . . . . . . . . . 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 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
170	163, 169	breqtrd 5131	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
171	117	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐶↑2) ∈ ℤ)
172	171, 150	zsubcld 12612	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
173	119	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐷↑2) ∈ ℤ)
174	173, 150	zsubcld 12612	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐷↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
175	141	simprd 496	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0))
176	175	simpld 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0)
177	20, 5, 21, 176	4sqlem10 16819	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐶↑2) − (((𝑀↑2) / 2) / 2)))
178	175	simprd 496	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0)
179	27, 5, 28, 178	4sqlem10 16819	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐷↑2) − (((𝑀↑2) / 2) / 2)))
180	130, 172, 174, 177, 179	dvds2addd 16174	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
181	117	zcnd 12608	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
182	119	zcnd 12608	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷↑2) ∈ ℂ)
183	181, 182, 144, 144	addsub4d 11559	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
184	43	oveq2d 7373	. . . . . . . . . . 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 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
187	180, 186	breqtrd 5131	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
188	130, 153, 155, 170, 187	dvds2addd 16174	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
189	124	zcnd 12608	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℂ)
190	125	zcnd 12608	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℂ)
191	189, 190, 42, 42	addsub4d 11559	. . . . . . . . 9 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (((𝑀↑2) / 2) + ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
192	51	oveq2d 7373	. . . . . . . . 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 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
195	188, 194	breqtrd 5131	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
196	124, 125	zaddcld 12611	. . . . . . . 8 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
197	196	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
198		dvdssubr 16187	. . . . . . 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 256	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
201	129, 200	jaodan 956	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
202	140	adantr 481	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
203	201, 202	breqtrrd 5133	. . 3 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀↑2) ∥ (𝑀 · 𝑃))
204	203	ex 413	. 2 ⊢ (𝜑 → ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃)))
205	61, 204	jca 512	1 ⊢ (𝜑 → (𝑅 ≤ 𝑀 ∧ ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∨ wo 845 = wceq 1541 ∈ wcel 2106 {cab 2713 ∃wrex 3073 {crab 3407 ⊆ wss 3910 class class class wbr 5105 ‘cfv 6496 (class class class)co 7357 infcinf 9377 ℝcr 11050 0cc0 11051 1c1 11052 + caddc 11054 · cmul 11056 < clt 11189 ≤ cle 11190 − cmin 11385 / cdiv 11812 ℕcn 12153 2c2 12208 ℕ₀cn0 12413 ℤcz 12499 ℤ_≥cuz 12763 ...cfz 13424 mod cmo 13774 ↑cexp 13967 ∥ cdvds 16136 ℙcprime 16547

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-2nd 7922 df-frecs 8212 df-wrecs 8243 df-recs 8317 df-rdg 8356 df-er 8648 df-en 8884 df-dom 8885 df-sdom 8886 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-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

This theorem is referenced by: 4sqlem17 16833

W3C validator