4sqlem16 - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > 4sqlem16		GIF version

Theorem 4sqlem16 12600

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

**Hypotheses**
Ref	Expression
4sqlem11.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 9657	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ (ℤ_≥‘2) → 𝑀 ∈ ℕ)
5	3, 4	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ ℕ)
6		4sq.e	. . . . . . . . . . . 12 ⊢ 𝐸 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
7	2, 5, 6	4sqlem5 12576	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 ∈ ℤ ∧ ((𝐴 − 𝐸) / 𝑀) ∈ ℤ))
8	7	simpld 112	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ ℤ)
9		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℤ)
10	8, 9	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ∈ ℤ)
11	10	zred 9465	. . . . . . . 8 ⊢ (𝜑 → (𝐸↑2) ∈ ℝ)
12		4sq.b	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℤ)
13		4sq.f	. . . . . . . . . . . 12 ⊢ 𝐹 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
14	12, 5, 13	4sqlem5 12576	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ∈ ℤ ∧ ((𝐵 − 𝐹) / 𝑀) ∈ ℤ))
15	14	simpld 112	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ ℤ)
16		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℤ)
17	15, 16	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ∈ ℤ)
18	17	zred 9465	. . . . . . . 8 ⊢ (𝜑 → (𝐹↑2) ∈ ℝ)
19	11, 18	readdcld 8073	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℝ)
20		4sq.c	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶 ∈ ℤ)
21		4sq.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (((𝐶 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
22	20, 5, 21	4sqlem5 12576	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐺 ∈ ℤ ∧ ((𝐶 − 𝐺) / 𝑀) ∈ ℤ))
23	22	simpld 112	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ∈ ℤ)
24		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℤ)
25	23, 24	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ∈ ℤ)
26	25	zred 9465	. . . . . . . 8 ⊢ (𝜑 → (𝐺↑2) ∈ ℝ)
27		4sq.d	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ ℤ)
28		4sq.h	. . . . . . . . . . . 12 ⊢ 𝐻 = (((𝐷 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
29	27, 5, 28	4sqlem5 12576	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ∈ ℤ ∧ ((𝐷 − 𝐻) / 𝑀) ∈ ℤ))
30	29	simpld 112	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ ℤ)
31		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℤ)
32	30, 31	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ∈ ℤ)
33	32	zred 9465	. . . . . . . 8 ⊢ (𝜑 → (𝐻↑2) ∈ ℝ)
34	26, 33	readdcld 8073	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℝ)
35	5	nnred 9020	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
36	35	resqcld 10808	. . . . . . . 8 ⊢ (𝜑 → (𝑀↑2) ∈ ℝ)
37	36	rehalfcld 9255	. . . . . . 7 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℝ)
38	37	rehalfcld 9255	. . . . . . . . 9 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℝ)
39	2, 5, 6	4sqlem7 12578	. . . . . . . . 9 ⊢ (𝜑 → (𝐸↑2) ≤ (((𝑀↑2) / 2) / 2))
40	12, 5, 13	4sqlem7 12578	. . . . . . . . 9 ⊢ (𝜑 → (𝐹↑2) ≤ (((𝑀↑2) / 2) / 2))
41	11, 18, 38, 38, 39, 40	le2addd 8607	. . . . . . . 8 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
42	37	recnd 8072	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀↑2) / 2) ∈ ℂ)
43	42	2halvesd 9254	. . . . . . . 8 ⊢ (𝜑 → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
44	41, 43	breqtrd 4060	. . . . . . 7 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝑀↑2) / 2))
45	20, 5, 21	4sqlem7 12578	. . . . . . . . 9 ⊢ (𝜑 → (𝐺↑2) ≤ (((𝑀↑2) / 2) / 2))
46	27, 5, 28	4sqlem7 12578	. . . . . . . . 9 ⊢ (𝜑 → (𝐻↑2) ≤ (((𝑀↑2) / 2) / 2))
47	26, 33, 38, 38, 45, 46	le2addd 8607	. . . . . . . 8 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
48	47, 43	breqtrd 4060	. . . . . . 7 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ≤ ((𝑀↑2) / 2))
49	19, 34, 37, 37, 44, 48	le2addd 8607	. . . . . 6 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (((𝑀↑2) / 2) + ((𝑀↑2) / 2)))
50	36	recnd 8072	. . . . . . 7 ⊢ (𝜑 → (𝑀↑2) ∈ ℂ)
51	50	2halvesd 9254	. . . . . 6 ⊢ (𝜑 → (((𝑀↑2) / 2) + ((𝑀↑2) / 2)) = (𝑀↑2))
52	49, 51	breqtrd 4060	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀↑2))
53	35	recnd 8072	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ℂ)
54	53	sqvald 10779	. . . . 5 ⊢ (𝜑 → (𝑀↑2) = (𝑀 · 𝑀))
55	52, 54	breqtrd 4060	. . . 4 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀))
56	19, 34	readdcld 8073	. . . . 5 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ)
57	5	nngt0d 9051	. . . . 5 ⊢ (𝜑 → 0 < 𝑀)
58		ledivmul 8921	. . . . 5 ⊢ (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
59	56, 35, 35, 57, 58	syl112anc 1253	. . . 4 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ≤ (𝑀 · 𝑀)))
60	55, 59	mpbird 167	. . 3 ⊢ (𝜑 → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) ≤ 𝑀)
61	1, 60	eqbrtrid 4069	. 2 ⊢ (𝜑 → 𝑅 ≤ 𝑀)
62		simpr 110	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 0) → 𝑅 = 0)
63	1, 62	eqtr3id 2243	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0)
64	56	recnd 8072	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) ∈ ℂ)
65	5	nnap0d 9053	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑀 # 0)
66	64, 53, 65	diveqap0ad 8844	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0))
67		zsqcl2 10726	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℕ₀)
68	8, 67	syl 14	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐸↑2) ∈ ℕ₀)
69		zsqcl2 10726	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℕ₀)
70	15, 69	syl 14	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐹↑2) ∈ ℕ₀)
71	68, 70	nn0addcld 9323	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ₀)
72	71	nn0ge0d 9322	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐸↑2) + (𝐹↑2)))
73		zsqcl2 10726	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ ℤ → (𝐺↑2) ∈ ℕ₀)
74	23, 73	syl 14	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐺↑2) ∈ ℕ₀)
75		zsqcl2 10726	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐻 ∈ ℤ → (𝐻↑2) ∈ ℕ₀)
76	30, 75	syl 14	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻↑2) ∈ ℕ₀)
77	74, 76	nn0addcld 9323	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐺↑2) + (𝐻↑2)) ∈ ℕ₀)
78	77	nn0ge0d 9322	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ ((𝐺↑2) + (𝐻↑2)))
79		add20 8518	. . . . . . . . . . . . . . 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 1250	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0)))
81	66, 80	bitrd 188	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0 ↔ (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0)))
82	81	biimpa 296	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀) = 0) → (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0))
83	63, 82	syldan 282	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝐸↑2) + (𝐹↑2)) = 0 ∧ ((𝐺↑2) + (𝐻↑2)) = 0))
84	83	simpld 112	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) + (𝐹↑2)) = 0)
85	68	nn0ge0d 9322	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐸↑2))
86	70	nn0ge0d 9322	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐹↑2))
87		add20 8518	. . . . . . . . . . . 12 ⊢ ((((𝐸↑2) ∈ ℝ ∧ 0 ≤ (𝐸↑2)) ∧ ((𝐹↑2) ∈ ℝ ∧ 0 ≤ (𝐹↑2))) → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
88	11, 85, 18, 86, 87	syl22anc 1250	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸↑2) + (𝐹↑2)) = 0 ↔ ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0)))
89	88	biimpa 296	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐸↑2) + (𝐹↑2)) = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
90	84, 89	syldan 282	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐸↑2) = 0 ∧ (𝐹↑2) = 0))
91	90	simpld 112	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐸↑2) = 0)
92	2, 5, 6, 91	4sqlem9 12580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐴↑2))
93	90	simprd 114	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐹↑2) = 0)
94	12, 5, 13, 93	4sqlem9 12580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐵↑2))
95	5	nnsqcld 10803	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀↑2) ∈ ℕ)
96	95	nnzd 9464	. . . . . . . . 9 ⊢ (𝜑 → (𝑀↑2) ∈ ℤ)
97		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℤ → (𝐴↑2) ∈ ℤ)
98	2, 97	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑2) ∈ ℤ)
99		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
100	12, 99	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐵↑2) ∈ ℤ)
101		dvds2add 12007	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐴↑2) ∈ ℤ ∧ (𝐵↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
102	96, 98, 100, 101	syl3anc 1249	. . . . . . . 8 ⊢ (𝜑 → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
103	102	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ (𝐴↑2) ∧ (𝑀↑2) ∥ (𝐵↑2)) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2))))
104	92, 94, 103	mp2and 433	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)))
105	83	simprd 114	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) + (𝐻↑2)) = 0)
106	74	nn0ge0d 9322	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐺↑2))
107	76	nn0ge0d 9322	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝐻↑2))
108		add20 8518	. . . . . . . . . . . 12 ⊢ ((((𝐺↑2) ∈ ℝ ∧ 0 ≤ (𝐺↑2)) ∧ ((𝐻↑2) ∈ ℝ ∧ 0 ≤ (𝐻↑2))) → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
109	26, 106, 33, 107, 108	syl22anc 1250	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐺↑2) + (𝐻↑2)) = 0 ↔ ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0)))
110	109	biimpa 296	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐺↑2) + (𝐻↑2)) = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
111	105, 110	syldan 282	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 0) → ((𝐺↑2) = 0 ∧ (𝐻↑2) = 0))
112	111	simpld 112	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐺↑2) = 0)
113	20, 5, 21, 112	4sqlem9 12580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐶↑2))
114	111	simprd 114	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝐻↑2) = 0)
115	27, 5, 28, 114	4sqlem9 12580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (𝐷↑2))
116		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐶 ∈ ℤ → (𝐶↑2) ∈ ℤ)
117	20, 116	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐶↑2) ∈ ℤ)
118		zsqcl 10719	. . . . . . . . . 10 ⊢ (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
119	27, 118	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (𝐷↑2) ∈ ℤ)
120		dvds2add 12007	. . . . . . . . 9 ⊢ (((𝑀↑2) ∈ ℤ ∧ (𝐶↑2) ∈ ℤ ∧ (𝐷↑2) ∈ ℤ) → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
121	96, 117, 119, 120	syl3anc 1249	. . . . . . . 8 ⊢ (𝜑 → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
122	121	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ (𝐶↑2) ∧ (𝑀↑2) ∥ (𝐷↑2)) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))))
123	113, 115, 122	mp2and 433	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2)))
124	98, 100	zaddcld 9469	. . . . . . . 8 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℤ)
125	117, 119	zaddcld 9469	. . . . . . . 8 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
126		dvds2add 12007	. . . . . . . 8 ⊢ (((𝑀↑2) ∈ ℤ ∧ ((𝐴↑2) + (𝐵↑2)) ∈ ℤ ∧ ((𝐶↑2) + (𝐷↑2)) ∈ ℤ) → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
127	96, 124, 125, 126	syl3anc 1249	. . . . . . 7 ⊢ (𝜑 → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
128	127	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 0) → (((𝑀↑2) ∥ ((𝐴↑2) + (𝐵↑2)) ∧ (𝑀↑2) ∥ ((𝐶↑2) + (𝐷↑2))) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2)))))
129	104, 123, 128	mp2and 433	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 = 0) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
130	96	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∈ ℤ)
131	124	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐴↑2) + (𝐵↑2)) ∈ ℤ)
132	43	adantr 276	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
133		4sqlem11.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 12599	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0) ∧ (((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0)))
142	141	simpld 112	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0))
143	142	simpld 112	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0)
144	38	recnd 8072	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℂ)
145	10	zcnd 9466	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐸↑2) ∈ ℂ)
146	144, 145	subeq0ad 8364	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ↔ (((𝑀↑2) / 2) / 2) = (𝐸↑2)))
147	146	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐸↑2)) = 0 ↔ (((𝑀↑2) / 2) / 2) = (𝐸↑2)))
148	143, 147	mpbid 147	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) = (𝐸↑2))
149	10	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐸↑2) ∈ ℤ)
150	148, 149	eqeltrd 2273	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝑀↑2) / 2) / 2) ∈ ℤ)
151	150, 150	zaddcld 9469	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) ∈ ℤ)
152	132, 151	eqeltrrd 2274	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝑀↑2) / 2) ∈ ℤ)
153	131, 152	zsubcld 9470	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
154	125	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
155	154, 152	zsubcld 9470	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)) ∈ ℤ)
156	98	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐴↑2) ∈ ℤ)
157	156, 150	zsubcld 9470	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐴↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
158	100	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐵↑2) ∈ ℤ)
159	158, 150	zsubcld 9470	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐵↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
160	2, 5, 6, 143	4sqlem10 12581	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
161	142	simprd 114	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐹↑2)) = 0)
162	12, 5, 13, 161	4sqlem10 12581	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐵↑2) − (((𝑀↑2) / 2) / 2)))
163	130, 157, 159, 160, 162	dvds2addd 12011	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
164	98	zcnd 9466	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴↑2) ∈ ℂ)
165	100	zcnd 9466	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵↑2) ∈ ℂ)
166	164, 165, 144, 144	addsub4d 8401	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))))
167	43	oveq2d 5941	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
168	166, 167	eqtr3d 2231	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
169	168	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐵↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
170	163, 169	breqtrd 4060	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)))
171	117	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐶↑2) ∈ ℤ)
172	171, 150	zsubcld 9470	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐶↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
173	119	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝐷↑2) ∈ ℤ)
174	173, 150	zsubcld 9470	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝐷↑2) − (((𝑀↑2) / 2) / 2)) ∈ ℤ)
175	141	simprd 114	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0 ∧ ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0))
176	175	simpld 112	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐺↑2)) = 0)
177	20, 5, 21, 176	4sqlem10 12581	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐶↑2) − (((𝑀↑2) / 2) / 2)))
178	175	simprd 114	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝑀↑2) / 2) / 2) − (𝐻↑2)) = 0)
179	27, 5, 28, 178	4sqlem10 12581	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((𝐷↑2) − (((𝑀↑2) / 2) / 2)))
180	130, 172, 174, 177, 179	dvds2addd 12011	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
181	117	zcnd 9466	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
182	119	zcnd 9466	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷↑2) ∈ ℂ)
183	181, 182, 144, 144	addsub4d 8401	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))))
184	43	oveq2d 5941	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
185	183, 184	eqtr3d 2231	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
186	185	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐶↑2) − (((𝑀↑2) / 2) / 2)) + ((𝐷↑2) − (((𝑀↑2) / 2) / 2))) = (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
187	180, 186	breqtrd 4060	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2)))
188	130, 153, 155, 170, 187	dvds2addd 12011	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
189	124	zcnd 9466	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) ∈ ℂ)
190	125	zcnd 9466	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℂ)
191	189, 190, 42, 42	addsub4d 8401	. . . . . . . . 9 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (((𝑀↑2) / 2) + ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))))
192	51	oveq2d 5941	. . . . . . . . 9 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (((𝑀↑2) / 2) + ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
193	191, 192	eqtr3d 2231	. . . . . . . 8 ⊢ (𝜑 → ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
194	193	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((((𝐴↑2) + (𝐵↑2)) − ((𝑀↑2) / 2)) + (((𝐶↑2) + (𝐷↑2)) − ((𝑀↑2) / 2))) = ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
195	188, 194	breqtrd 4060	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2)))
196	124, 125	zaddcld 9469	. . . . . . . 8 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
197	196	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ)
198		dvdssubr 12021	. . . . . . 7 ⊢ (((𝑀↑2) ∈ ℤ ∧ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ∈ ℤ) → ((𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ↔ (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2))))
199	130, 197, 198	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → ((𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) ↔ (𝑀↑2) ∥ ((((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))) − (𝑀↑2))))
200	195, 199	mpbird 167	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 = 𝑀) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
201	129, 200	jaodan 798	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀↑2) ∥ (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
202	140	adantr 276	. . . 4 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
203	201, 202	breqtrrd 4062	. . 3 ⊢ ((𝜑 ∧ (𝑅 = 0 ∨ 𝑅 = 𝑀)) → (𝑀↑2) ∥ (𝑀 · 𝑃))
204	203	ex 115	. 2 ⊢ (𝜑 → ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃)))
205	61, 204	jca 306	1 ⊢ (𝜑 → (𝑅 ≤ 𝑀 ∧ ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃))))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 709 = wceq 1364 ∈ wcel 2167 {cab 2182 ∃wrex 2476 {crab 2479 ⊆ wss 3157 class class class wbr 4034 ‘cfv 5259 (class class class)co 5925 infcinf 7058 ℝcr 7895 0cc0 7896 1c1 7897 + caddc 7899 · cmul 7901 < clt 8078 ≤ cle 8079 − cmin 8214 / cdiv 8716 ℕcn 9007 2c2 9058 ℕ₀cn0 9266 ℤcz 9343 ℤ_≥cuz 9618 ...cfz 10100 mod cmo 10431 ↑cexp 10647 ∥ cdvds 11969 ℙcprime 12300

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 710 ax-5 1461 ax-7 1462 ax-gen 1463 ax-ie1 1507 ax-ie2 1508 ax-8 1518 ax-10 1519 ax-11 1520 ax-i12 1521 ax-bndl 1523 ax-4 1524 ax-17 1540 ax-i9 1544 ax-ial 1548 ax-i5r 1549 ax-13 2169 ax-14 2170 ax-ext 2178 ax-coll 4149 ax-sep 4152 ax-nul 4160 ax-pow 4208 ax-pr 4243 ax-un 4469 ax-setind 4574 ax-iinf 4625 ax-cnex 7987 ax-resscn 7988 ax-1cn 7989 ax-1re 7990 ax-icn 7991 ax-addcl 7992 ax-addrcl 7993 ax-mulcl 7994 ax-mulrcl 7995 ax-addcom 7996 ax-mulcom 7997 ax-addass 7998 ax-mulass 7999 ax-distr 8000 ax-i2m1 8001 ax-0lt1 8002 ax-1rid 8003 ax-0id 8004 ax-rnegex 8005 ax-precex 8006 ax-cnre 8007 ax-pre-ltirr 8008 ax-pre-ltwlin 8009 ax-pre-lttrn 8010 ax-pre-apti 8011 ax-pre-ltadd 8012 ax-pre-mulgt0 8013 ax-pre-mulext 8014 ax-arch 8015 ax-caucvg 8016

This theorem depends on definitions: df-bi 117 df-stab 832 df-dc 836 df-3or 981 df-3an 982 df-tru 1367 df-fal 1370 df-nf 1475 df-sb 1777 df-eu 2048 df-mo 2049 df-clab 2183 df-cleq 2189 df-clel 2192 df-nfc 2328 df-ne 2368 df-nel 2463 df-ral 2480 df-rex 2481 df-reu 2482 df-rmo 2483 df-rab 2484 df-v 2765 df-sbc 2990 df-csb 3085 df-dif 3159 df-un 3161 df-in 3163 df-ss 3170 df-nul 3452 df-if 3563 df-pw 3608 df-sn 3629 df-pr 3630 df-op 3632 df-uni 3841 df-int 3876 df-iun 3919 df-br 4035 df-opab 4096 df-mpt 4097 df-tr 4133 df-id 4329 df-po 4332 df-iso 4333 df-iord 4402 df-on 4404 df-ilim 4405 df-suc 4407 df-iom 4628 df-xp 4670 df-rel 4671 df-cnv 4672 df-co 4673 df-dm 4674 df-rn 4675 df-res 4676 df-ima 4677 df-iota 5220 df-fun 5261 df-fn 5262 df-f 5263 df-f1 5264 df-fo 5265 df-f1o 5266 df-fv 5267 df-riota 5880 df-ov 5928 df-oprab 5929 df-mpo 5930 df-1st 6207 df-2nd 6208 df-recs 6372 df-frec 6458 df-sup 7059 df-pnf 8080 df-mnf 8081 df-xr 8082 df-ltxr 8083 df-le 8084 df-sub 8216 df-neg 8217 df-reap 8619 df-ap 8626 df-div 8717 df-inn 9008 df-2 9066 df-3 9067 df-4 9068 df-n0 9267 df-z 9344 df-uz 9619 df-q 9711 df-rp 9746 df-fz 10101 df-fzo 10235 df-fl 10377 df-mod 10432 df-seqfrec 10557 df-exp 10648 df-cj 11024 df-re 11025 df-im 11026 df-rsqrt 11180 df-abs 11181 df-dvds 11970 df-gcd 12146

This theorem is referenced by: 4sqlem17 12601

W3C validator