4sqlem10 - Metamath Proof Explorer

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

Theorem 4sqlem10 16884

Description: Lemma for 4sq 16901. (Contributed by Mario Carneiro, 16-Jul-2014.)

**Hypotheses**
Ref	Expression
4sqlem5.2	⊢ (𝜑 → 𝐴 ∈ ℤ)
4sqlem5.3	⊢ (𝜑 → 𝑀 ∈ ℕ)
4sqlem5.4	⊢ 𝐵 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sqlem10.5	⊢ ((𝜑 ∧ 𝜓) → ((((𝑀↑2) / 2) / 2) − (𝐵↑2)) = 0)

**Assertion**
Ref	Expression
4sqlem10	⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))

**Proof of Theorem 4sqlem10**
Step	Hyp	Ref	Expression
1		4sqlem5.3	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ℕ)
2	1	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℕ)
3	2	nnzd 12589	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℤ)
4		zsqcl 14098	. . . 4 ⊢ (𝑀 ∈ ℤ → (𝑀↑2) ∈ ℤ)
5	3, 4	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∈ ℤ)
6		4sqlem5.2	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℤ)
7	6	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ ℤ)
8	2	nnred 12231	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℝ)
9	8	rehalfcld 12463	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℝ)
10	9	recnd 11246	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℂ)
11	10	negnegd 11566	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → --(𝑀 / 2) = (𝑀 / 2))
12		4sqlem5.4	. . . . . . . . . . . . . . 15 ⊢ 𝐵 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
13	6, 1, 12	4sqlem5 16879	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐵 ∈ ℤ ∧ ((𝐴 − 𝐵) / 𝑀) ∈ ℤ))
14	13	adantr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (𝐵 ∈ ℤ ∧ ((𝐴 − 𝐵) / 𝑀) ∈ ℤ))
15	14	simpld 493	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℤ)
16	15	zred 12670	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℝ)
17	6, 1, 12	4sqlem6 16880	. . . . . . . . . . . . 13 ⊢ (𝜑 → (-(𝑀 / 2) ≤ 𝐵 ∧ 𝐵 < (𝑀 / 2)))
18	17	adantr 479	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → (-(𝑀 / 2) ≤ 𝐵 ∧ 𝐵 < (𝑀 / 2)))
19	18	simprd 494	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 < (𝑀 / 2))
20	16, 19	ltned 11354	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ≠ (𝑀 / 2))
21	20	neneqd 2943	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → ¬ 𝐵 = (𝑀 / 2))
22		2cnd 12294	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝜓) → 2 ∈ ℂ)
23	22	sqvald 14112	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → (2↑2) = (2 · 2))
24	23	oveq2d 7427	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀↑2) / (2↑2)) = ((𝑀↑2) / (2 · 2)))
25	2	nncnd 12232	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℂ)
26		2ne0 12320	. . . . . . . . . . . . . . 15 ⊢ 2 ≠ 0
27	26	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 2 ≠ 0)
28	25, 22, 27	sqdivd 14128	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2)↑2) = ((𝑀↑2) / (2↑2)))
29	25	sqcld 14113	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∈ ℂ)
30	29, 22, 22, 27, 27	divdiv1d 12025	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) = ((𝑀↑2) / (2 · 2)))
31	24, 28, 30	3eqtr4d 2780	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2)↑2) = (((𝑀↑2) / 2) / 2))
32	29	halfcld 12461	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀↑2) / 2) ∈ ℂ)
33	32	halfcld 12461	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) ∈ ℂ)
34	15	zcnd 12671	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℂ)
35	34	sqcld 14113	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (𝐵↑2) ∈ ℂ)
36		4sqlem10.5	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((((𝑀↑2) / 2) / 2) − (𝐵↑2)) = 0)
37	33, 35, 36	subeq0d 11583	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) = (𝐵↑2))
38	31, 37	eqtr2d 2771	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → (𝐵↑2) = ((𝑀 / 2)↑2))
39		sqeqor 14184	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ ℂ ∧ (𝑀 / 2) ∈ ℂ) → ((𝐵↑2) = ((𝑀 / 2)↑2) ↔ (𝐵 = (𝑀 / 2) ∨ 𝐵 = -(𝑀 / 2))))
40	34, 10, 39	syl2anc 582	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → ((𝐵↑2) = ((𝑀 / 2)↑2) ↔ (𝐵 = (𝑀 / 2) ∨ 𝐵 = -(𝑀 / 2))))
41	38, 40	mpbid 231	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝜓) → (𝐵 = (𝑀 / 2) ∨ 𝐵 = -(𝑀 / 2)))
42	41	ord 860	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → (¬ 𝐵 = (𝑀 / 2) → 𝐵 = -(𝑀 / 2)))
43	21, 42	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 = -(𝑀 / 2))
44	43, 15	eqeltrrd 2832	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → -(𝑀 / 2) ∈ ℤ)
45	44	znegcld 12672	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → --(𝑀 / 2) ∈ ℤ)
46	11, 45	eqeltrrd 2832	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℤ)
47	7, 46	zaddcld 12674	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℤ)
48		zsqcl 14098	. . . 4 ⊢ ((𝐴 + (𝑀 / 2)) ∈ ℤ → ((𝐴 + (𝑀 / 2))↑2) ∈ ℤ)
49	47, 48	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2))↑2) ∈ ℤ)
50	47, 3	zmulcld 12676	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · 𝑀) ∈ ℤ)
51	47	zred 12670	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℝ)
52	2	nnrpd 13018	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℝ⁺)
53	51, 52	modcld 13844	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) ∈ ℝ)
54	53	recnd 11246	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) ∈ ℂ)
55		0cnd 11211	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → 0 ∈ ℂ)
56		df-neg 11451	. . . . . . 7 ⊢ -(𝑀 / 2) = (0 − (𝑀 / 2))
57	43, 12, 56	3eqtr3g 2793	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2)) = (0 − (𝑀 / 2)))
58	54, 55, 10, 57	subcan2d 11617	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) = 0)
59		dvdsval3 16205	. . . . . 6 ⊢ ((𝑀 ∈ ℕ ∧ (𝐴 + (𝑀 / 2)) ∈ ℤ) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ ((𝐴 + (𝑀 / 2)) mod 𝑀) = 0))
60	2, 47, 59	syl2anc 582	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ ((𝐴 + (𝑀 / 2)) mod 𝑀) = 0))
61	58, 60	mpbird 256	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∥ (𝐴 + (𝑀 / 2)))
62		dvdssq 16508	. . . . 5 ⊢ ((𝑀 ∈ ℤ ∧ (𝐴 + (𝑀 / 2)) ∈ ℤ) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2))↑2)))
63	3, 47, 62	syl2anc 582	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2))↑2)))
64	61, 63	mpbid 231	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2))↑2))
65	25	sqvald 14112	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) = (𝑀 · 𝑀))
66	2	nnne0d 12266	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ≠ 0)
67		dvdsmulcr 16233	. . . . . 6 ⊢ ((𝑀 ∈ ℤ ∧ (𝐴 + (𝑀 / 2)) ∈ ℤ ∧ (𝑀 ∈ ℤ ∧ 𝑀 ≠ 0)) → ((𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀) ↔ 𝑀 ∥ (𝐴 + (𝑀 / 2))))
68	3, 47, 3, 66, 67	syl112anc 1372	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀) ↔ 𝑀 ∥ (𝐴 + (𝑀 / 2))))
69	61, 68	mpbird 256	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀))
70	65, 69	eqbrtrd 5169	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀))
71	5, 49, 50, 64, 70	dvds2subd 16240	. 2 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
72	47	zcnd 12671	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℂ)
73	72	sqvald 14112	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2))↑2) = ((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))))
74	73	oveq1d 7426	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)) = (((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
75	72, 72, 25	subdid 11674	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = (((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
76	25	2halvesd 12462	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2) + (𝑀 / 2)) = 𝑀)
77	76	oveq2d 7427	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − ((𝑀 / 2) + (𝑀 / 2))) = ((𝐴 + (𝑀 / 2)) − 𝑀))
78	7	zcnd 12671	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ ℂ)
79	78, 10, 10	pnpcan2d 11613	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − ((𝑀 / 2) + (𝑀 / 2))) = (𝐴 − (𝑀 / 2)))
80	77, 79	eqtr3d 2772	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − 𝑀) = (𝐴 − (𝑀 / 2)))
81	80	oveq2d 7427	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
82		subsq 14178	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (𝑀 / 2) ∈ ℂ) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
83	78, 10, 82	syl2anc 582	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
84	31	oveq2d 7427	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
85	81, 83, 84	3eqtr2d 2776	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
86	74, 75, 85	3eqtr2d 2776	. 2 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
87	71, 86	breqtrd 5173	1 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 394 ∨ wo 843 = wceq 1539 ∈ wcel 2104 ≠ wne 2938 class class class wbr 5147 (class class class)co 7411 ℂcc 11110 0cc0 11112 + caddc 11115 · cmul 11117 < clt 11252 ≤ cle 11253 − cmin 11448 -cneg 11449 / cdiv 11875 ℕcn 12216 2c2 12271 ℤcz 12562 mod cmo 13838 ↑cexp 14031 ∥ cdvds 16201

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1911 ax-6 1969 ax-7 2009 ax-8 2106 ax-9 2114 ax-10 2135 ax-11 2152 ax-12 2169 ax-ext 2701 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7727 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189 ax-pre-sup 11190

This theorem depends on definitions: df-bi 206 df-an 395 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2532 df-eu 2561 df-clab 2708 df-cleq 2722 df-clel 2808 df-nfc 2883 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-rmo 3374 df-reu 3375 df-rab 3431 df-v 3474 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6299 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7858 df-2nd 7978 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-er 8705 df-en 8942 df-dom 8943 df-sdom 8944 df-sup 9439 df-inf 9440 df-pnf 11254 df-mnf 11255 df-xr 11256 df-ltxr 11257 df-le 11258 df-sub 11450 df-neg 11451 df-div 11876 df-nn 12217 df-2 12279 df-3 12280 df-n0 12477 df-z 12563 df-uz 12827 df-rp 12979 df-fl 13761 df-mod 13839 df-seq 13971 df-exp 14032 df-cj 15050 df-re 15051 df-im 15052 df-sqrt 15186 df-abs 15187 df-dvds 16202 df-gcd 16440

This theorem is referenced by: 4sqlem16 16897

W3C validator