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 16589

Description: Lemma for 4sq 16593. (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 12553	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ (ℤ_≥‘2) → 𝑀 ∈ ℕ)
5	3, 4	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ ℕ)
6		4sq.e	. . . . . . . . . . . 12 ⊢ 𝐸 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
7	2, 5, 6	4sqlem5 16571	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 ∈ ℤ ∧ ((𝐴 − 𝐸) / 𝑀) ∈ ℤ))
8	7	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ ℤ)
9		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ∈ ℤ)
11	10	zred 12355	. . . . . . . 8 ⊢ (𝜑 → (𝐸↑2) ∈ ℝ)
12		4sq.b	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℤ)
13		4sq.f	. . . . . . . . . . . 12 ⊢ 𝐹 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
14	12, 5, 13	4sqlem5 16571	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∈ ℤ ∧ ((𝐵 − 𝐹) / 𝑀) ∈ ℤ))
15	14	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ ℤ)
16		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℤ)
17	15, 16	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ∈ ℤ)
18	17	zred 12355	. . . . . . . 8 ⊢ (𝜑 → (𝐹↑2) ∈ ℝ)
19	11, 18	readdcld 10935	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℝ)
20		4sq.c	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶 ∈ ℤ)
21		4sq.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (((𝐶 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
22	20, 5, 21	4sqlem5 16571	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐺 ∈ ℤ ∧ ((𝐶 − 𝐺) / 𝑀) ∈ ℤ))
23	22	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ∈ ℤ)
24		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℤ)
25	23, 24	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ∈ ℤ)
26	25	zred 12355	. . . . . . . 8 ⊢ (𝜑 → (𝐺↑2) ∈ ℝ)
27		4sq.d	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ ℤ)
28		4sq.h	. . . . . . . . . . . 12 ⊢ 𝐻 = (((𝐷 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
29	27, 5, 28	4sqlem5 16571	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∈ ℤ ∧ ((𝐷 − 𝐻) / 𝑀) ∈ ℤ))
30	29	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ ℤ)
31		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℤ)
32	30, 31	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ∈ ℤ)
33	32	zred 12355	. . . . . . . 8 ⊢ (𝜑 → (𝐻↑2) ∈ ℝ)
34	26, 33	readdcld 10935	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℝ)
35	5	nnred 11918	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
36	35	resqcld 13893	. . . . . . . 8 ⊢ (𝜑 → (𝑀↑2) ∈ ℝ)
37	36	rehalfcld 12150	. . . . . . 7 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℝ)
38	37	rehalfcld 12150	. . . . . . . . 9 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℝ)
39	2, 5, 6	4sqlem7 16573	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ≤ (((𝑀↑2) / 2) / 2))
40	12, 5, 13	4sqlem7 16573	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ≤ (((𝑀↑2) / 2) / 2))
41	11, 18, 38, 38, 39, 40	le2addd 11524	. . . . . . . 8 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
42	37	recnd 10934	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℂ)
43	42	2halvesd 12149	. . . . . . . 8 ⊢ (𝜑 → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
44	41, 43	breqtrd 5096	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝑀↑2) / 2))
45	20, 5, 21	4sqlem7 16573	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ≤ (((𝑀↑2) / 2) / 2))
46	27, 5, 28	4sqlem7 16573	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ≤ (((𝑀↑2) / 2) / 2))
47	26, 33, 38, 38, 45, 46	le2addd 11524	. . . . . . . 8 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
48	47, 43	breqtrd 5096	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((𝑀↑2) / 2))
49	19, 34, 37, 37, 44, 48	le2addd 11524	. . . . . 6 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (((𝑀↑2) / 2) + ((𝑀↑2) / 2)))
50	36	recnd 10934	. . . . . . 7 ⊢ (𝜑 → (𝑀↑2) ∈ ℂ)
51	50	2halvesd 12149	. . . . . 6 ⊢ (𝜑 → (((𝑀↑2) / 2) + ((𝑀↑2) / 2)) = (𝑀↑2))
52	49, 51	breqtrd 5096	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀↑2))
53	35	recnd 10934	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ℂ)
54	53	sqvald 13789	. . . . 5 ⊢ (𝜑 → (𝑀↑2) = (𝑀 · 𝑀))
55	52, 54	breqtrd 5096	. . . 4 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀))
56	19, 34	readdcld 10935	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ)
57	5	nngt0d 11952	. . . . 5 ⊢ (𝜑 → 0 < 𝑀)
58		ledivmul 11781	. . . . 5 ⊢ (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
59	56, 35, 35, 57, 58	syl112anc 1372	. . . 4 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
60	55, 59	mpbird 256	. . 3 ⊢ (𝜑 → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀)
61	1, 60	eqbrtrid 5105	. 2 ⊢ (𝜑 → 𝑅 ≤ 𝑀)
62		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 0) → 𝑅 = 0)
63	1, 62	eqtr3id 2793	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0)
64	56	recnd 10934	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℂ)
65	5	nnne0d 11953	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑀 ≠ 0)
66	64, 53, 65	diveq0ad 11691	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0))
67		zsqcl2 13784	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℕ₀)
68	8, 67	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐸↑2) ∈ ℕ₀)
69		zsqcl2 13784	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℕ₀)
70	15, 69	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐹↑2) ∈ ℕ₀)
71	68, 70	nn0addcld 12227	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ₀)
72	71	nn0ge0d 12226	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐸↑2) + (𝐹↑2)))
73		zsqcl2 13784	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℕ₀)
74	23, 73	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐺↑2) ∈ ℕ₀)
75		zsqcl2 13784	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℕ₀)
76	30, 75	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻↑2) ∈ ℕ₀)
77	74, 76	nn0addcld 12227	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℕ₀)
78	77	nn0ge0d 12226	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐺↑2) + (𝐻↑2)))
79		add20 11417	. . . . . . . . . . . . . . 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 835	. . . . . . . . . . . . . 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 476	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0) → (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0))
83	63, 82	syldan 590	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0))
84	83	simpld 494	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) + (𝐹↑2)) = 0)
85	68	nn0ge0d 12226	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐸↑2))
86	70	nn0ge0d 12226	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐹↑2))
87		add20 11417	. . . . . . . . . . . 12 ⊢ ((((𝐸↑2) ∈ ℝ ∧ 0 ≤ (𝐸↑2)) ∧ ((𝐹↑2) ∈ ℝ ∧ 0 ≤ (𝐹↑2))) → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
88	11, 85, 18, 86, 87	syl22anc 835	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
89	88	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐸↑2) + (𝐹↑2)) = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
90	84, 89	syldan 590	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
91	90	simpld 494	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐸↑2) = 0)
92	2, 5, 6, 91	4sqlem9 16575	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐴↑2))
93	90	simprd 495	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐹↑2) = 0)
94	12, 5, 13, 93	4sqlem9 16575	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐵↑2))
95	5	nnsqcld 13887	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀↑2) ∈ ℕ)
96	95	nnzd 12354	. . . . . . . . 9 ⊢ (𝜑 → (𝑀↑2) ∈ ℤ)
97		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℤ → (𝐴↑2) ∈ ℤ)
98	2, 97	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) ∈ ℤ)
99		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
100	12, 99	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐵↑2) ∈ ℤ)
101		dvds2add 15927	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐴↑2) ∈ ℤ ∧ (𝐵↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
102	96, 98, 100, 101	syl3anc 1369	. . . . . . . 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 695	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)))
105	83	simprd 495	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) + (𝐻↑2)) = 0)
106	74	nn0ge0d 12226	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐺↑2))
107	76	nn0ge0d 12226	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐻↑2))
108		add20 11417	. . . . . . . . . . . 12 ⊢ ((((𝐺↑2) ∈ ℝ ∧ 0 ≤ (𝐺↑2)) ∧ ((𝐻↑2) ∈ ℝ ∧ 0 ≤ (𝐻↑2))) → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
109	26, 106, 33, 107, 108	syl22anc 835	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
110	109	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐺↑2) + (𝐻↑2)) = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
111	105, 110	syldan 590	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
112	111	simpld 494	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐺↑2) = 0)
113	20, 5, 21, 112	4sqlem9 16575	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐶↑2))
114	111	simprd 495	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐻↑2) = 0)
115	27, 5, 28, 114	4sqlem9 16575	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐷↑2))
116		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐶 ∈ ℤ → (𝐶↑2) ∈ ℤ)
117	20, 116	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐶↑2) ∈ ℤ)
118		zsqcl 13776	. . . . . . . . . 10 ⊢ (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
119	27, 118	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐷↑2) ∈ ℤ)
120		dvds2add 15927	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐶↑2) ∈ ℤ ∧ (𝐷↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
121	96, 117, 119, 120	syl3anc 1369	. . . . . . . 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 695	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2)))
124	98, 100	zaddcld 12359	. . . . . . . 8 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℤ)
125	117, 119	zaddcld 12359	. . . . . . . 8 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
126		dvds2add 15927	. . . . . . . 8 ⊢ (((𝑀↑2) ∈ ℤ ∧ ((𝐴↑2) + (𝐵↑2)) ∈ ℤ ∧ ((𝐶↑2) + (𝐷↑2)) ∈ ℤ) → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
127	96, 124, 125, 126	syl3anc 1369	. . . . . . 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 695	. . . . 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 16588	. . . . . . . . . . . . . . 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 10934	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℂ)
145	10	zcnd 12356	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐸↑2) ∈ ℂ)
146	144, 145	subeq0ad 11272	. . . . . . . . . . . . . 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 231	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) = (𝐸↑2))
149	10	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐸↑2) ∈ ℤ)
150	148, 149	eqeltrd 2839	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) ∈ ℤ)
151	150, 150	zaddcld 12359	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) ∈ ℤ)
152	132, 151	eqeltrrd 2840	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝑀↑2) / 2) ∈ ℤ)
153	131, 152	zsubcld 12360	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
154	125	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
155	154, 152	zsubcld 12360	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
156	98	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐴↑2) ∈ ℤ)
157	156, 150	zsubcld 12360	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐴↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
158	100	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐵↑2) ∈ ℤ)
159	158, 150	zsubcld 12360	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐵↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
160	2, 5, 6, 143	4sqlem10 16576	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
161	142	simprd 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0)
162	12, 5, 13, 161	4sqlem10 16576	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐵↑2) − (((𝑀↑2) / 2) / 2)))
163	130, 157, 159, 160, 162	dvds2addd 15929	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
164	98	zcnd 12356	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴↑2) ∈ ℂ)
165	100	zcnd 12356	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵↑2) ∈ ℂ)
166	164, 165, 144, 144	addsub4d 11309	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
167	43	oveq2d 7271	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
168	166, 167	eqtr3d 2780	. . . . . . . . . 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 5096	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
171	117	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐶↑2) ∈ ℤ)
172	171, 150	zsubcld 12360	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
173	119	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐷↑2) ∈ ℤ)
174	173, 150	zsubcld 12360	. . . . . . . . . 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 16576	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐶↑2) − (((𝑀↑2) / 2) / 2)))
178	175	simprd 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0)
179	27, 5, 28, 178	4sqlem10 16576	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐷↑2) − (((𝑀↑2) / 2) / 2)))
180	130, 172, 174, 177, 179	dvds2addd 15929	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
181	117	zcnd 12356	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
182	119	zcnd 12356	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷↑2) ∈ ℂ)
183	181, 182, 144, 144	addsub4d 11309	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
184	43	oveq2d 7271	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
185	183, 184	eqtr3d 2780	. . . . . . . . . 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 5096	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
188	130, 153, 155, 170, 187	dvds2addd 15929	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
189	124	zcnd 12356	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℂ)
190	125	zcnd 12356	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℂ)
191	189, 190, 42, 42	addsub4d 11309	. . . . . . . . 9 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (((𝑀↑2) / 2) + ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
192	51	oveq2d 7271	. . . . . . . . 9 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (((𝑀↑2) / 2) + ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
193	191, 192	eqtr3d 2780	. . . . . . . 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 5096	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
196	124, 125	zaddcld 12359	. . . . . . . 8 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
197	196	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
198		dvdssubr 15942	. . . . . . 7 ⊢ (((𝑀↑2) ∈ ℤ ∧ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ) → ((𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ↔ (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2))))
199	130, 197, 198	syl2anc 583	. . . . . 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 954	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
202	140	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
203	201, 202	breqtrrd 5098	. . 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 205 ∧ wa 395 ∨ wo 843 = wceq 1539 ∈ wcel 2108 {cab 2715 ∃wrex 3064 {crab 3067 ⊆ wss 3883 class class class wbr 5070 ‘cfv 6418 (class class class)co 7255 infcinf 9130 ℝcr 10801 0cc0 10802 1c1 10803 + caddc 10805 · cmul 10807 < clt 10940 ≤ cle 10941 − cmin 11135 / cdiv 11562 ℕcn 11903 2c2 11958 ℕ₀cn0 12163 ℤcz 12249 ℤ_≥cuz 12511 ...cfz 13168 mod cmo 13517 ↑cexp 13710 ∥ cdvds 15891 ℙcprime 16304

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-10 2139 ax-11 2156 ax-12 2173 ax-ext 2709 ax-sep 5218 ax-nul 5225 ax-pow 5283 ax-pr 5347 ax-un 7566 ax-cnex 10858 ax-resscn 10859 ax-1cn 10860 ax-icn 10861 ax-addcl 10862 ax-addrcl 10863 ax-mulcl 10864 ax-mulrcl 10865 ax-mulcom 10866 ax-addass 10867 ax-mulass 10868 ax-distr 10869 ax-i2m1 10870 ax-1ne0 10871 ax-1rid 10872 ax-rnegex 10873 ax-rrecex 10874 ax-cnre 10875 ax-pre-lttri 10876 ax-pre-lttrn 10877 ax-pre-ltadd 10878 ax-pre-mulgt0 10879 ax-pre-sup 10880

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-nf 1788 df-sb 2069 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2817 df-nfc 2888 df-ne 2943 df-nel 3049 df-ral 3068 df-rex 3069 df-reu 3070 df-rmo 3071 df-rab 3072 df-v 3424 df-sbc 3712 df-csb 3829 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3902 df-nul 4254 df-if 4457 df-pw 4532 df-sn 4559 df-pr 4561 df-tp 4563 df-op 4565 df-uni 4837 df-iun 4923 df-br 5071 df-opab 5133 df-mpt 5154 df-tr 5188 df-id 5480 df-eprel 5486 df-po 5494 df-so 5495 df-fr 5535 df-we 5537 df-xp 5586 df-rel 5587 df-cnv 5588 df-co 5589 df-dm 5590 df-rn 5591 df-res 5592 df-ima 5593 df-pred 6191 df-ord 6254 df-on 6255 df-lim 6256 df-suc 6257 df-iota 6376 df-fun 6420 df-fn 6421 df-f 6422 df-f1 6423 df-fo 6424 df-f1o 6425 df-fv 6426 df-riota 7212 df-ov 7258 df-oprab 7259 df-mpo 7260 df-om 7688 df-2nd 7805 df-frecs 8068 df-wrecs 8099 df-recs 8173 df-rdg 8212 df-er 8456 df-en 8692 df-dom 8693 df-sdom 8694 df-sup 9131 df-inf 9132 df-pnf 10942 df-mnf 10943 df-xr 10944 df-ltxr 10945 df-le 10946 df-sub 11137 df-neg 11138 df-div 11563 df-nn 11904 df-2 11966 df-3 11967 df-n0 12164 df-z 12250 df-uz 12512 df-rp 12660 df-fl 13440 df-mod 13518 df-seq 13650 df-exp 13711 df-cj 14738 df-re 14739 df-im 14740 df-sqrt 14874 df-abs 14875 df-dvds 15892 df-gcd 16130

This theorem is referenced by: 4sqlem17 16590

W3C validator