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 16925

Description: Lemma for 4sq 16942. (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 12625	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℤ)
4		zsqcl 14135	. . . 4 ⊢ (𝑀 ∈ ℤ → (𝑀↑2) ∈ ℤ)
5	3, 4	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∈ ℤ)
6		4sqlem5.2	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℤ)
7	6	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ ℤ)
8	2	nnred 12267	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℝ)
9	8	rehalfcld 12499	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℝ)
10	9	recnd 11282	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℂ)
11	10	negnegd 11602	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → --(𝑀 / 2) = (𝑀 / 2))
12		4sqlem5.4	. . . . . . . . . . . . . . 15 ⊢ 𝐵 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
13	6, 1, 12	4sqlem5 16920	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐵 ∈ ℤ ∧ ((𝐴 − 𝐵) / 𝑀) ∈ ℤ))
14	13	adantr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (𝐵 ∈ ℤ ∧ ((𝐴 − 𝐵) / 𝑀) ∈ ℤ))
15	14	simpld 493	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℤ)
16	15	zred 12706	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℝ)
17	6, 1, 12	4sqlem6 16921	. . . . . . . . . . . . 13 ⊢ (𝜑 → (-(𝑀 / 2) ≤ 𝐵 ∧ 𝐵 < (𝑀 / 2)))
18	17	adantr 479	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → (-(𝑀 / 2) ≤ 𝐵 ∧ 𝐵 < (𝑀 / 2)))
19	18	simprd 494	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 < (𝑀 / 2))
20	16, 19	ltned 11390	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ≠ (𝑀 / 2))
21	20	neneqd 2942	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → ¬ 𝐵 = (𝑀 / 2))
22		2cnd 12330	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝜓) → 2 ∈ ℂ)
23	22	sqvald 14149	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → (2↑2) = (2 · 2))
24	23	oveq2d 7442	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀↑2) / (2↑2)) = ((𝑀↑2) / (2 · 2)))
25	2	nncnd 12268	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℂ)
26		2ne0 12356	. . . . . . . . . . . . . . 15 ⊢ 2 ≠ 0
27	26	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 2 ≠ 0)
28	25, 22, 27	sqdivd 14165	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2)↑2) = ((𝑀↑2) / (2↑2)))
29	25	sqcld 14150	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∈ ℂ)
30	29, 22, 22, 27, 27	divdiv1d 12061	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) = ((𝑀↑2) / (2 · 2)))
31	24, 28, 30	3eqtr4d 2778	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2)↑2) = (((𝑀↑2) / 2) / 2))
32	29	halfcld 12497	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀↑2) / 2) ∈ ℂ)
33	32	halfcld 12497	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) ∈ ℂ)
34	15	zcnd 12707	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℂ)
35	34	sqcld 14150	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (𝐵↑2) ∈ ℂ)
36		4sqlem10.5	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((((𝑀↑2) / 2) / 2) − (𝐵↑2)) = 0)
37	33, 35, 36	subeq0d 11619	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) = (𝐵↑2))
38	31, 37	eqtr2d 2769	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → (𝐵↑2) = ((𝑀 / 2)↑2))
39		sqeqor 14221	. . . . . . . . . . . 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 862	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → (¬ 𝐵 = (𝑀 / 2) → 𝐵 = -(𝑀 / 2)))
43	21, 42	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 = -(𝑀 / 2))
44	43, 15	eqeltrrd 2830	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → -(𝑀 / 2) ∈ ℤ)
45	44	znegcld 12708	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → --(𝑀 / 2) ∈ ℤ)
46	11, 45	eqeltrrd 2830	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℤ)
47	7, 46	zaddcld 12710	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℤ)
48		zsqcl 14135	. . . 4 ⊢ ((𝐴 + (𝑀 / 2)) ∈ ℤ → ((𝐴 + (𝑀 / 2))↑2) ∈ ℤ)
49	47, 48	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2))↑2) ∈ ℤ)
50	47, 3	zmulcld 12712	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · 𝑀) ∈ ℤ)
51	47	zred 12706	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℝ)
52	2	nnrpd 13056	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℝ⁺)
53	51, 52	modcld 13882	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) ∈ ℝ)
54	53	recnd 11282	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) ∈ ℂ)
55		0cnd 11247	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → 0 ∈ ℂ)
56		df-neg 11487	. . . . . . 7 ⊢ -(𝑀 / 2) = (0 − (𝑀 / 2))
57	43, 12, 56	3eqtr3g 2791	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2)) = (0 − (𝑀 / 2)))
58	54, 55, 10, 57	subcan2d 11653	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) = 0)
59		dvdsval3 16244	. . . . . 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 16547	. . . . 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 14149	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) = (𝑀 · 𝑀))
66	2	nnne0d 12302	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ≠ 0)
67		dvdsmulcr 16272	. . . . . 6 ⊢ ((𝑀 ∈ ℤ ∧ (𝐴 + (𝑀 / 2)) ∈ ℤ ∧ (𝑀 ∈ ℤ ∧ 𝑀 ≠ 0)) → ((𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀) ↔ 𝑀 ∥ (𝐴 + (𝑀 / 2))))
68	3, 47, 3, 66, 67	syl112anc 1371	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀) ↔ 𝑀 ∥ (𝐴 + (𝑀 / 2))))
69	61, 68	mpbird 256	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀))
70	65, 69	eqbrtrd 5174	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀))
71	5, 49, 50, 64, 70	dvds2subd 16279	. 2 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
72	47	zcnd 12707	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℂ)
73	72	sqvald 14149	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2))↑2) = ((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))))
74	73	oveq1d 7441	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)) = (((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
75	72, 72, 25	subdid 11710	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = (((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
76	25	2halvesd 12498	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2) + (𝑀 / 2)) = 𝑀)
77	76	oveq2d 7442	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − ((𝑀 / 2) + (𝑀 / 2))) = ((𝐴 + (𝑀 / 2)) − 𝑀))
78	7	zcnd 12707	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ ℂ)
79	78, 10, 10	pnpcan2d 11649	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − ((𝑀 / 2) + (𝑀 / 2))) = (𝐴 − (𝑀 / 2)))
80	77, 79	eqtr3d 2770	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − 𝑀) = (𝐴 − (𝑀 / 2)))
81	80	oveq2d 7442	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
82		subsq 14215	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (𝑀 / 2) ∈ ℂ) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
83	78, 10, 82	syl2anc 582	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
84	31	oveq2d 7442	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
85	81, 83, 84	3eqtr2d 2774	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
86	74, 75, 85	3eqtr2d 2774	. 2 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
87	71, 86	breqtrd 5178	1 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 394 ∨ wo 845 = wceq 1533 ∈ wcel 2098 ≠ wne 2937 class class class wbr 5152 (class class class)co 7426 ℂcc 11146 0cc0 11148 + caddc 11151 · cmul 11153 < clt 11288 ≤ cle 11289 − cmin 11484 -cneg 11485 / cdiv 11911 ℕcn 12252 2c2 12307 ℤcz 12598 mod cmo 13876 ↑cexp 14068 ∥ cdvds 16240

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2699 ax-sep 5303 ax-nul 5310 ax-pow 5369 ax-pr 5433 ax-un 7748 ax-cnex 11204 ax-resscn 11205 ax-1cn 11206 ax-icn 11207 ax-addcl 11208 ax-addrcl 11209 ax-mulcl 11210 ax-mulrcl 11211 ax-mulcom 11212 ax-addass 11213 ax-mulass 11214 ax-distr 11215 ax-i2m1 11216 ax-1ne0 11217 ax-1rid 11218 ax-rnegex 11219 ax-rrecex 11220 ax-cnre 11221 ax-pre-lttri 11222 ax-pre-lttrn 11223 ax-pre-ltadd 11224 ax-pre-mulgt0 11225 ax-pre-sup 11226

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2529 df-eu 2558 df-clab 2706 df-cleq 2720 df-clel 2806 df-nfc 2881 df-ne 2938 df-nel 3044 df-ral 3059 df-rex 3068 df-rmo 3374 df-reu 3375 df-rab 3431 df-v 3475 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4327 df-if 4533 df-pw 4608 df-sn 4633 df-pr 4635 df-op 4639 df-uni 4913 df-iun 5002 df-br 5153 df-opab 5215 df-mpt 5236 df-tr 5270 df-id 5580 df-eprel 5586 df-po 5594 df-so 5595 df-fr 5637 df-we 5639 df-xp 5688 df-rel 5689 df-cnv 5690 df-co 5691 df-dm 5692 df-rn 5693 df-res 5694 df-ima 5695 df-pred 6310 df-ord 6377 df-on 6378 df-lim 6379 df-suc 6380 df-iota 6505 df-fun 6555 df-fn 6556 df-f 6557 df-f1 6558 df-fo 6559 df-f1o 6560 df-fv 6561 df-riota 7382 df-ov 7429 df-oprab 7430 df-mpo 7431 df-om 7879 df-2nd 8002 df-frecs 8295 df-wrecs 8326 df-recs 8400 df-rdg 8439 df-er 8733 df-en 8973 df-dom 8974 df-sdom 8975 df-sup 9475 df-inf 9476 df-pnf 11290 df-mnf 11291 df-xr 11292 df-ltxr 11293 df-le 11294 df-sub 11486 df-neg 11487 df-div 11912 df-nn 12253 df-2 12315 df-3 12316 df-n0 12513 df-z 12599 df-uz 12863 df-rp 13017 df-fl 13799 df-mod 13877 df-seq 14009 df-exp 14069 df-cj 15088 df-re 15089 df-im 15090 df-sqrt 15224 df-abs 15225 df-dvds 16241 df-gcd 16479

This theorem is referenced by: 4sqlem16 16938

W3C validator