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 16873

Description: Lemma for 4sq 16890. (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 480	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℕ)
3	2	nnzd 12512	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℤ)
4		zsqcl 14050	. . . 4 ⊢ (𝑀 ∈ ℤ → (𝑀↑2) ∈ ℤ)
5	3, 4	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∈ ℤ)
6		4sqlem5.2	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℤ)
7	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ ℤ)
8	2	nnred 12158	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℝ)
9	8	rehalfcld 12386	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℝ)
10	9	recnd 11158	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℂ)
11	10	negnegd 11481	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → --(𝑀 / 2) = (𝑀 / 2))
12		4sqlem5.4	. . . . . . . . . . . . . . 15 ⊢ 𝐵 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
13	6, 1, 12	4sqlem5 16868	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐵 ∈ ℤ ∧ ((𝐴 − 𝐵) / 𝑀) ∈ ℤ))
14	13	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (𝐵 ∈ ℤ ∧ ((𝐴 − 𝐵) / 𝑀) ∈ ℤ))
15	14	simpld 494	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℤ)
16	15	zred 12594	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℝ)
17	6, 1, 12	4sqlem6 16869	. . . . . . . . . . . . 13 ⊢ (𝜑 → (-(𝑀 / 2) ≤ 𝐵 ∧ 𝐵 < (𝑀 / 2)))
18	17	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → (-(𝑀 / 2) ≤ 𝐵 ∧ 𝐵 < (𝑀 / 2)))
19	18	simprd 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 < (𝑀 / 2))
20	16, 19	ltned 11267	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ≠ (𝑀 / 2))
21	20	neneqd 2935	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → ¬ 𝐵 = (𝑀 / 2))
22		2cnd 12221	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝜓) → 2 ∈ ℂ)
23	22	sqvald 14064	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → (2↑2) = (2 · 2))
24	23	oveq2d 7372	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀↑2) / (2↑2)) = ((𝑀↑2) / (2 · 2)))
25	2	nncnd 12159	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℂ)
26		2ne0 12247	. . . . . . . . . . . . . . 15 ⊢ 2 ≠ 0
27	26	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 2 ≠ 0)
28	25, 22, 27	sqdivd 14080	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2)↑2) = ((𝑀↑2) / (2↑2)))
29	25	sqcld 14065	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∈ ℂ)
30	29, 22, 22, 27, 27	divdiv1d 11946	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) = ((𝑀↑2) / (2 · 2)))
31	24, 28, 30	3eqtr4d 2779	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2)↑2) = (((𝑀↑2) / 2) / 2))
32	29	halfcld 12384	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀↑2) / 2) ∈ ℂ)
33	32	halfcld 12384	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) ∈ ℂ)
34	15	zcnd 12595	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 ∈ ℂ)
35	34	sqcld 14065	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → (𝐵↑2) ∈ ℂ)
36		4sqlem10.5	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝜓) → ((((𝑀↑2) / 2) / 2) − (𝐵↑2)) = 0)
37	33, 35, 36	subeq0d 11498	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝜓) → (((𝑀↑2) / 2) / 2) = (𝐵↑2))
38	31, 37	eqtr2d 2770	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → (𝐵↑2) = ((𝑀 / 2)↑2))
39		sqeqor 14137	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ ℂ ∧ (𝑀 / 2) ∈ ℂ) → ((𝐵↑2) = ((𝑀 / 2)↑2) ↔ (𝐵 = (𝑀 / 2) ∨ 𝐵 = -(𝑀 / 2))))
40	34, 10, 39	syl2anc 584	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝜓) → ((𝐵↑2) = ((𝑀 / 2)↑2) ↔ (𝐵 = (𝑀 / 2) ∨ 𝐵 = -(𝑀 / 2))))
41	38, 40	mpbid 232	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝜓) → (𝐵 = (𝑀 / 2) ∨ 𝐵 = -(𝑀 / 2)))
42	41	ord 864	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝜓) → (¬ 𝐵 = (𝑀 / 2) → 𝐵 = -(𝑀 / 2)))
43	21, 42	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → 𝐵 = -(𝑀 / 2))
44	43, 15	eqeltrrd 2835	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → -(𝑀 / 2) ∈ ℤ)
45	44	znegcld 12596	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → --(𝑀 / 2) ∈ ℤ)
46	11, 45	eqeltrrd 2835	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 / 2) ∈ ℤ)
47	7, 46	zaddcld 12598	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℤ)
48		zsqcl 14050	. . . 4 ⊢ ((𝐴 + (𝑀 / 2)) ∈ ℤ → ((𝐴 + (𝑀 / 2))↑2) ∈ ℤ)
49	47, 48	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2))↑2) ∈ ℤ)
50	47, 3	zmulcld 12600	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · 𝑀) ∈ ℤ)
51	47	zred 12594	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℝ)
52	2	nnrpd 12945	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∈ ℝ⁺)
53	51, 52	modcld 13793	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) ∈ ℝ)
54	53	recnd 11158	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) ∈ ℂ)
55		0cnd 11123	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → 0 ∈ ℂ)
56		df-neg 11365	. . . . . . 7 ⊢ -(𝑀 / 2) = (0 − (𝑀 / 2))
57	43, 12, 56	3eqtr3g 2792	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2)) = (0 − (𝑀 / 2)))
58	54, 55, 10, 57	subcan2d 11532	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) mod 𝑀) = 0)
59		dvdsval3 16181	. . . . . 6 ⊢ ((𝑀 ∈ ℕ ∧ (𝐴 + (𝑀 / 2)) ∈ ℤ) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ ((𝐴 + (𝑀 / 2)) mod 𝑀) = 0))
60	2, 47, 59	syl2anc 584	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ ((𝐴 + (𝑀 / 2)) mod 𝑀) = 0))
61	58, 60	mpbird 257	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ∥ (𝐴 + (𝑀 / 2)))
62		dvdssq 16492	. . . . 5 ⊢ ((𝑀 ∈ ℤ ∧ (𝐴 + (𝑀 / 2)) ∈ ℤ) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2))↑2)))
63	3, 47, 62	syl2anc 584	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 ∥ (𝐴 + (𝑀 / 2)) ↔ (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2))↑2)))
64	61, 63	mpbid 232	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2))↑2))
65	25	sqvald 14064	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) = (𝑀 · 𝑀))
66	2	nnne0d 12193	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → 𝑀 ≠ 0)
67		dvdsmulcr 16210	. . . . . 6 ⊢ ((𝑀 ∈ ℤ ∧ (𝐴 + (𝑀 / 2)) ∈ ℤ ∧ (𝑀 ∈ ℤ ∧ 𝑀 ≠ 0)) → ((𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀) ↔ 𝑀 ∥ (𝐴 + (𝑀 / 2))))
68	3, 47, 3, 66, 67	syl112anc 1376	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀) ↔ 𝑀 ∥ (𝐴 + (𝑀 / 2))))
69	61, 68	mpbird 257	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → (𝑀 · 𝑀) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀))
70	65, 69	eqbrtrd 5118	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴 + (𝑀 / 2)) · 𝑀))
71	5, 49, 50, 64, 70	dvds2subd 16218	. 2 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
72	47	zcnd 12595	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → (𝐴 + (𝑀 / 2)) ∈ ℂ)
73	72	sqvald 14064	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2))↑2) = ((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))))
74	73	oveq1d 7371	. . 3 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)) = (((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
75	72, 72, 25	subdid 11591	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = (((𝐴 + (𝑀 / 2)) · (𝐴 + (𝑀 / 2))) − ((𝐴 + (𝑀 / 2)) · 𝑀)))
76	25	2halvesd 12385	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → ((𝑀 / 2) + (𝑀 / 2)) = 𝑀)
77	76	oveq2d 7372	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − ((𝑀 / 2) + (𝑀 / 2))) = ((𝐴 + (𝑀 / 2)) − 𝑀))
78	7	zcnd 12595	. . . . . . 7 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ ℂ)
79	78, 10, 10	pnpcan2d 11528	. . . . . 6 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − ((𝑀 / 2) + (𝑀 / 2))) = (𝐴 − (𝑀 / 2)))
80	77, 79	eqtr3d 2771	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) − 𝑀) = (𝐴 − (𝑀 / 2)))
81	80	oveq2d 7372	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
82		subsq 14131	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (𝑀 / 2) ∈ ℂ) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
83	78, 10, 82	syl2anc 584	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴 + (𝑀 / 2)) · (𝐴 − (𝑀 / 2))))
84	31	oveq2d 7372	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴↑2) − ((𝑀 / 2)↑2)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
85	81, 83, 84	3eqtr2d 2775	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ((𝐴 + (𝑀 / 2)) · ((𝐴 + (𝑀 / 2)) − 𝑀)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
86	74, 75, 85	3eqtr2d 2775	. 2 ⊢ ((𝜑 ∧ 𝜓) → (((𝐴 + (𝑀 / 2))↑2) − ((𝐴 + (𝑀 / 2)) · 𝑀)) = ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))
87	71, 86	breqtrd 5122	1 ⊢ ((𝜑 ∧ 𝜓) → (𝑀↑2) ∥ ((𝐴↑2) − (((𝑀↑2) / 2) / 2)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 = wceq 1541 ∈ wcel 2113 ≠ wne 2930 class class class wbr 5096 (class class class)co 7356 ℂcc 11022 0cc0 11024 + caddc 11027 · cmul 11029 < clt 11164 ≤ cle 11165 − cmin 11362 -cneg 11363 / cdiv 11792 ℕcn 12143 2c2 12198 ℤcz 12486 mod cmo 13787 ↑cexp 13982 ∥ cdvds 16177

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2706 ax-sep 5239 ax-nul 5249 ax-pow 5308 ax-pr 5375 ax-un 7678 ax-cnex 11080 ax-resscn 11081 ax-1cn 11082 ax-icn 11083 ax-addcl 11084 ax-addrcl 11085 ax-mulcl 11086 ax-mulrcl 11087 ax-mulcom 11088 ax-addass 11089 ax-mulass 11090 ax-distr 11091 ax-i2m1 11092 ax-1ne0 11093 ax-1rid 11094 ax-rnegex 11095 ax-rrecex 11096 ax-cnre 11097 ax-pre-lttri 11098 ax-pre-lttrn 11099 ax-pre-ltadd 11100 ax-pre-mulgt0 11101 ax-pre-sup 11102

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2537 df-eu 2567 df-clab 2713 df-cleq 2726 df-clel 2809 df-nfc 2883 df-ne 2931 df-nel 3035 df-ral 3050 df-rex 3059 df-rmo 3348 df-reu 3349 df-rab 3398 df-v 3440 df-sbc 3739 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4284 df-if 4478 df-pw 4554 df-sn 4579 df-pr 4581 df-op 4585 df-uni 4862 df-iun 4946 df-br 5097 df-opab 5159 df-mpt 5178 df-tr 5204 df-id 5517 df-eprel 5522 df-po 5530 df-so 5531 df-fr 5575 df-we 5577 df-xp 5628 df-rel 5629 df-cnv 5630 df-co 5631 df-dm 5632 df-rn 5633 df-res 5634 df-ima 5635 df-pred 6257 df-ord 6318 df-on 6319 df-lim 6320 df-suc 6321 df-iota 6446 df-fun 6492 df-fn 6493 df-f 6494 df-f1 6495 df-fo 6496 df-f1o 6497 df-fv 6498 df-riota 7313 df-ov 7359 df-oprab 7360 df-mpo 7361 df-om 7807 df-2nd 7932 df-frecs 8221 df-wrecs 8252 df-recs 8301 df-rdg 8339 df-er 8633 df-en 8882 df-dom 8883 df-sdom 8884 df-sup 9343 df-inf 9344 df-pnf 11166 df-mnf 11167 df-xr 11168 df-ltxr 11169 df-le 11170 df-sub 11364 df-neg 11365 df-div 11793 df-nn 12144 df-2 12206 df-3 12207 df-n0 12400 df-z 12487 df-uz 12750 df-rp 12904 df-fl 13710 df-mod 13788 df-seq 13923 df-exp 13983 df-cj 15020 df-re 15021 df-im 15022 df-sqrt 15156 df-abs 15157 df-dvds 16178 df-gcd 16420

This theorem is referenced by: 4sqlem16 16886

W3C validator