pceulem - Metamath Proof Explorer

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

Theorem pceulem 16883

Description: Lemma for pceu 16884. (Contributed by Mario Carneiro, 23-Feb-2014.)

**Hypotheses**
Ref	Expression
pcval.1	⊢ 𝑆 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥}, ℝ, < )
pcval.2	⊢ 𝑇 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦}, ℝ, < )
pceu.3	⊢ 𝑈 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠}, ℝ, < )
pceu.4	⊢ 𝑉 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡}, ℝ, < )
pceu.5	⊢ (𝜑 → 𝑃 ∈ ℙ)
pceu.6	⊢ (𝜑 → 𝑁 ≠ 0)
pceu.7	⊢ (𝜑 → (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℕ))
pceu.8	⊢ (𝜑 → 𝑁 = (𝑥 / 𝑦))
pceu.9	⊢ (𝜑 → (𝑠 ∈ ℤ ∧ 𝑡 ∈ ℕ))
pceu.10	⊢ (𝜑 → 𝑁 = (𝑠 / 𝑡))

**Assertion**
Ref	Expression
pceulem	⊢ (𝜑 → (𝑆 − 𝑇) = (𝑈 − 𝑉))

Distinct variable groups: 𝑛,𝑠,𝑡,𝑥,𝑦,𝑁 𝑃,𝑛,𝑠,𝑡,𝑥,𝑦 𝑆,𝑠,𝑡 𝑇,𝑠,𝑡 Allowed substitution hints: 𝜑(𝑥,𝑦,𝑡,𝑛,𝑠) 𝑆(𝑥,𝑦,𝑛) 𝑇(𝑥,𝑦,𝑛) 𝑈(𝑥,𝑦,𝑡,𝑛,𝑠) 𝑉(𝑥,𝑦,𝑡,𝑛,𝑠)

Proof of Theorem pceulem Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		pceu.7	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℕ))
2	1	simprd 495	. . . . . . . . . 10 ⊢ (𝜑 → 𝑦 ∈ ℕ)
3	2	nncnd 12282	. . . . . . . . 9 ⊢ (𝜑 → 𝑦 ∈ ℂ)
4		pceu.9	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑠 ∈ ℤ ∧ 𝑡 ∈ ℕ))
5	4	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝑠 ∈ ℤ)
6	5	zcnd 12723	. . . . . . . . 9 ⊢ (𝜑 → 𝑠 ∈ ℂ)
7	3, 6	mulcomd 11282	. . . . . . . 8 ⊢ (𝜑 → (𝑦 · 𝑠) = (𝑠 · 𝑦))
8		pceu.10	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 = (𝑠 / 𝑡))
9		pceu.8	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 = (𝑥 / 𝑦))
10	8, 9	eqtr3d 2779	. . . . . . . . 9 ⊢ (𝜑 → (𝑠 / 𝑡) = (𝑥 / 𝑦))
11	4	simprd 495	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑡 ∈ ℕ)
12	11	nncnd 12282	. . . . . . . . . 10 ⊢ (𝜑 → 𝑡 ∈ ℂ)
13	1	simpld 494	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑥 ∈ ℤ)
14	13	zcnd 12723	. . . . . . . . . 10 ⊢ (𝜑 → 𝑥 ∈ ℂ)
15	11	nnne0d 12316	. . . . . . . . . 10 ⊢ (𝜑 → 𝑡 ≠ 0)
16	2	nnne0d 12316	. . . . . . . . . 10 ⊢ (𝜑 → 𝑦 ≠ 0)
17	6, 12, 14, 3, 15, 16	divmuleqd 12089	. . . . . . . . 9 ⊢ (𝜑 → ((𝑠 / 𝑡) = (𝑥 / 𝑦) ↔ (𝑠 · 𝑦) = (𝑥 · 𝑡)))
18	10, 17	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → (𝑠 · 𝑦) = (𝑥 · 𝑡))
19	7, 18	eqtrd 2777	. . . . . . 7 ⊢ (𝜑 → (𝑦 · 𝑠) = (𝑥 · 𝑡))
20	19	breq2d 5155	. . . . . 6 ⊢ (𝜑 → ((𝑃↑𝑧) ∥ (𝑦 · 𝑠) ↔ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)))
21	20	rabbidv 3444	. . . . 5 ⊢ (𝜑 → {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)})
22		oveq2 7439	. . . . . . 7 ⊢ (𝑛 = 𝑧 → (𝑃↑𝑛) = (𝑃↑𝑧))
23	22	breq1d 5153	. . . . . 6 ⊢ (𝑛 = 𝑧 → ((𝑃↑𝑛) ∥ (𝑦 · 𝑠) ↔ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)))
24	23	cbvrabv 3447	. . . . 5 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)}
25	22	breq1d 5153	. . . . . 6 ⊢ (𝑛 = 𝑧 → ((𝑃↑𝑛) ∥ (𝑥 · 𝑡) ↔ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)))
26	25	cbvrabv 3447	. . . . 5 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)}
27	21, 24, 26	3eqtr4g 2802	. . . 4 ⊢ (𝜑 → {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)})
28	27	supeq1d 9486	. . 3 ⊢ (𝜑 → sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
29		pceu.5	. . . 4 ⊢ (𝜑 → 𝑃 ∈ ℙ)
30	2	nnzd 12640	. . . 4 ⊢ (𝜑 → 𝑦 ∈ ℤ)
31		pceu.6	. . . . 5 ⊢ (𝜑 → 𝑁 ≠ 0)
32	12, 15	div0d 12042	. . . . . . . 8 ⊢ (𝜑 → (0 / 𝑡) = 0)
33		oveq1 7438	. . . . . . . . 9 ⊢ (𝑠 = 0 → (𝑠 / 𝑡) = (0 / 𝑡))
34	33	eqeq1d 2739	. . . . . . . 8 ⊢ (𝑠 = 0 → ((𝑠 / 𝑡) = 0 ↔ (0 / 𝑡) = 0))
35	32, 34	syl5ibrcom 247	. . . . . . 7 ⊢ (𝜑 → (𝑠 = 0 → (𝑠 / 𝑡) = 0))
36	8	eqeq1d 2739	. . . . . . 7 ⊢ (𝜑 → (𝑁 = 0 ↔ (𝑠 / 𝑡) = 0))
37	35, 36	sylibrd 259	. . . . . 6 ⊢ (𝜑 → (𝑠 = 0 → 𝑁 = 0))
38	37	necon3d 2961	. . . . 5 ⊢ (𝜑 → (𝑁 ≠ 0 → 𝑠 ≠ 0))
39	31, 38	mpd 15	. . . 4 ⊢ (𝜑 → 𝑠 ≠ 0)
40		pcval.2	. . . . 5 ⊢ 𝑇 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦}, ℝ, < )
41		pceu.3	. . . . 5 ⊢ 𝑈 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠}, ℝ, < )
42		eqid 2737	. . . . 5 ⊢ sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < )
43	40, 41, 42	pcpremul 16881	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → (𝑇 + 𝑈) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ))
44	29, 30, 16, 5, 39, 43	syl122anc 1381	. . 3 ⊢ (𝜑 → (𝑇 + 𝑈) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ))
45	3, 16	div0d 12042	. . . . . . . 8 ⊢ (𝜑 → (0 / 𝑦) = 0)
46		oveq1 7438	. . . . . . . . 9 ⊢ (𝑥 = 0 → (𝑥 / 𝑦) = (0 / 𝑦))
47	46	eqeq1d 2739	. . . . . . . 8 ⊢ (𝑥 = 0 → ((𝑥 / 𝑦) = 0 ↔ (0 / 𝑦) = 0))
48	45, 47	syl5ibrcom 247	. . . . . . 7 ⊢ (𝜑 → (𝑥 = 0 → (𝑥 / 𝑦) = 0))
49	9	eqeq1d 2739	. . . . . . 7 ⊢ (𝜑 → (𝑁 = 0 ↔ (𝑥 / 𝑦) = 0))
50	48, 49	sylibrd 259	. . . . . 6 ⊢ (𝜑 → (𝑥 = 0 → 𝑁 = 0))
51	50	necon3d 2961	. . . . 5 ⊢ (𝜑 → (𝑁 ≠ 0 → 𝑥 ≠ 0))
52	31, 51	mpd 15	. . . 4 ⊢ (𝜑 → 𝑥 ≠ 0)
53	11	nnzd 12640	. . . 4 ⊢ (𝜑 → 𝑡 ∈ ℤ)
54		pcval.1	. . . . 5 ⊢ 𝑆 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥}, ℝ, < )
55		pceu.4	. . . . 5 ⊢ 𝑉 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡}, ℝ, < )
56		eqid 2737	. . . . 5 ⊢ sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < )
57	54, 55, 56	pcpremul 16881	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → (𝑆 + 𝑉) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
58	29, 13, 52, 53, 15, 57	syl122anc 1381	. . 3 ⊢ (𝜑 → (𝑆 + 𝑉) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
59	28, 44, 58	3eqtr4d 2787	. 2 ⊢ (𝜑 → (𝑇 + 𝑈) = (𝑆 + 𝑉))
60		prmuz2 16733	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘2))
61	29, 60	syl 17	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ (ℤ_≥‘2))
62		eqid 2737	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦}
63	62, 40	pcprecl 16877	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0)) → (𝑇 ∈ ℕ₀ ∧ (𝑃↑𝑇) ∥ 𝑦))
64	63	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0)) → 𝑇 ∈ ℕ₀)
65	61, 30, 16, 64	syl12anc 837	. . . 4 ⊢ (𝜑 → 𝑇 ∈ ℕ₀)
66	65	nn0cnd 12589	. . 3 ⊢ (𝜑 → 𝑇 ∈ ℂ)
67		eqid 2737	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠}
68	67, 41	pcprecl 16877	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → (𝑈 ∈ ℕ₀ ∧ (𝑃↑𝑈) ∥ 𝑠))
69	68	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → 𝑈 ∈ ℕ₀)
70	61, 5, 39, 69	syl12anc 837	. . . 4 ⊢ (𝜑 → 𝑈 ∈ ℕ₀)
71	70	nn0cnd 12589	. . 3 ⊢ (𝜑 → 𝑈 ∈ ℂ)
72		eqid 2737	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥}
73	72, 54	pcprecl 16877	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → (𝑆 ∈ ℕ₀ ∧ (𝑃↑𝑆) ∥ 𝑥))
74	73	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → 𝑆 ∈ ℕ₀)
75	61, 13, 52, 74	syl12anc 837	. . . 4 ⊢ (𝜑 → 𝑆 ∈ ℕ₀)
76	75	nn0cnd 12589	. . 3 ⊢ (𝜑 → 𝑆 ∈ ℂ)
77		eqid 2737	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡}
78	77, 55	pcprecl 16877	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → (𝑉 ∈ ℕ₀ ∧ (𝑃↑𝑉) ∥ 𝑡))
79	78	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → 𝑉 ∈ ℕ₀)
80	61, 53, 15, 79	syl12anc 837	. . . 4 ⊢ (𝜑 → 𝑉 ∈ ℕ₀)
81	80	nn0cnd 12589	. . 3 ⊢ (𝜑 → 𝑉 ∈ ℂ)
82	66, 71, 76, 81	addsubeq4d 11671	. 2 ⊢ (𝜑 → ((𝑇 + 𝑈) = (𝑆 + 𝑉) ↔ (𝑆 − 𝑇) = (𝑈 − 𝑉)))
83	59, 82	mpbid 232	1 ⊢ (𝜑 → (𝑆 − 𝑇) = (𝑈 − 𝑉))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2108 ≠ wne 2940 {crab 3436 class class class wbr 5143 ‘cfv 6561 (class class class)co 7431 supcsup 9480 ℝcr 11154 0cc0 11155 + caddc 11158 · cmul 11160 < clt 11295 − cmin 11492 / cdiv 11920 ℕcn 12266 2c2 12321 ℕ₀cn0 12526 ℤcz 12613 ℤ_≥cuz 12878 ↑cexp 14102 ∥ cdvds 16290 ℙcprime 16708

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 1910 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2708 ax-sep 5296 ax-nul 5306 ax-pow 5365 ax-pr 5432 ax-un 7755 ax-cnex 11211 ax-resscn 11212 ax-1cn 11213 ax-icn 11214 ax-addcl 11215 ax-addrcl 11216 ax-mulcl 11217 ax-mulrcl 11218 ax-mulcom 11219 ax-addass 11220 ax-mulass 11221 ax-distr 11222 ax-i2m1 11223 ax-1ne0 11224 ax-1rid 11225 ax-rnegex 11226 ax-rrecex 11227 ax-cnre 11228 ax-pre-lttri 11229 ax-pre-lttrn 11230 ax-pre-ltadd 11231 ax-pre-mulgt0 11232 ax-pre-sup 11233

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2540 df-eu 2569 df-clab 2715 df-cleq 2729 df-clel 2816 df-nfc 2892 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3380 df-reu 3381 df-rab 3437 df-v 3482 df-sbc 3789 df-csb 3900 df-dif 3954 df-un 3956 df-in 3958 df-ss 3968 df-pss 3971 df-nul 4334 df-if 4526 df-pw 4602 df-sn 4627 df-pr 4629 df-op 4633 df-uni 4908 df-iun 4993 df-br 5144 df-opab 5206 df-mpt 5226 df-tr 5260 df-id 5578 df-eprel 5584 df-po 5592 df-so 5593 df-fr 5637 df-we 5639 df-xp 5691 df-rel 5692 df-cnv 5693 df-co 5694 df-dm 5695 df-rn 5696 df-res 5697 df-ima 5698 df-pred 6321 df-ord 6387 df-on 6388 df-lim 6389 df-suc 6390 df-iota 6514 df-fun 6563 df-fn 6564 df-f 6565 df-f1 6566 df-fo 6567 df-f1o 6568 df-fv 6569 df-riota 7388 df-ov 7434 df-oprab 7435 df-mpo 7436 df-om 7888 df-2nd 8015 df-frecs 8306 df-wrecs 8337 df-recs 8411 df-rdg 8450 df-1o 8506 df-2o 8507 df-er 8745 df-en 8986 df-dom 8987 df-sdom 8988 df-fin 8989 df-sup 9482 df-inf 9483 df-pnf 11297 df-mnf 11298 df-xr 11299 df-ltxr 11300 df-le 11301 df-sub 11494 df-neg 11495 df-div 11921 df-nn 12267 df-2 12329 df-3 12330 df-n0 12527 df-z 12614 df-uz 12879 df-rp 13035 df-fl 13832 df-mod 13910 df-seq 14043 df-exp 14103 df-cj 15138 df-re 15139 df-im 15140 df-sqrt 15274 df-abs 15275 df-dvds 16291 df-gcd 16532 df-prm 16709

This theorem is referenced by: pceu 16884

W3C validator