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 16823

Description: Lemma for pceu 16824. (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 12209	. . . . . . . . 9 ⊢ (𝜑 → 𝑦 ∈ ℂ)
4		pceu.9	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑠 ∈ ℤ ∧ 𝑡 ∈ ℕ))
5	4	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝑠 ∈ ℤ)
6	5	zcnd 12646	. . . . . . . . 9 ⊢ (𝜑 → 𝑠 ∈ ℂ)
7	3, 6	mulcomd 11202	. . . . . . . 8 ⊢ (𝜑 → (𝑦 · 𝑠) = (𝑠 · 𝑦))
8		pceu.10	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 = (𝑠 / 𝑡))
9		pceu.8	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 = (𝑥 / 𝑦))
10	8, 9	eqtr3d 2767	. . . . . . . . 9 ⊢ (𝜑 → (𝑠 / 𝑡) = (𝑥 / 𝑦))
11	4	simprd 495	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑡 ∈ ℕ)
12	11	nncnd 12209	. . . . . . . . . 10 ⊢ (𝜑 → 𝑡 ∈ ℂ)
13	1	simpld 494	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑥 ∈ ℤ)
14	13	zcnd 12646	. . . . . . . . . 10 ⊢ (𝜑 → 𝑥 ∈ ℂ)
15	11	nnne0d 12243	. . . . . . . . . 10 ⊢ (𝜑 → 𝑡 ≠ 0)
16	2	nnne0d 12243	. . . . . . . . . 10 ⊢ (𝜑 → 𝑦 ≠ 0)
17	6, 12, 14, 3, 15, 16	divmuleqd 12011	. . . . . . . . 9 ⊢ (𝜑 → ((𝑠 / 𝑡) = (𝑥 / 𝑦) ↔ (𝑠 · 𝑦) = (𝑥 · 𝑡)))
18	10, 17	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → (𝑠 · 𝑦) = (𝑥 · 𝑡))
19	7, 18	eqtrd 2765	. . . . . . 7 ⊢ (𝜑 → (𝑦 · 𝑠) = (𝑥 · 𝑡))
20	19	breq2d 5122	. . . . . 6 ⊢ (𝜑 → ((𝑃↑𝑧) ∥ (𝑦 · 𝑠) ↔ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)))
21	20	rabbidv 3416	. . . . 5 ⊢ (𝜑 → {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)})
22		oveq2 7398	. . . . . . 7 ⊢ (𝑛 = 𝑧 → (𝑃↑𝑛) = (𝑃↑𝑧))
23	22	breq1d 5120	. . . . . 6 ⊢ (𝑛 = 𝑧 → ((𝑃↑𝑛) ∥ (𝑦 · 𝑠) ↔ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)))
24	23	cbvrabv 3419	. . . . 5 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)}
25	22	breq1d 5120	. . . . . 6 ⊢ (𝑛 = 𝑧 → ((𝑃↑𝑛) ∥ (𝑥 · 𝑡) ↔ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)))
26	25	cbvrabv 3419	. . . . 5 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)}
27	21, 24, 26	3eqtr4g 2790	. . . 4 ⊢ (𝜑 → {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)})
28	27	supeq1d 9404	. . 3 ⊢ (𝜑 → sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
29		pceu.5	. . . 4 ⊢ (𝜑 → 𝑃 ∈ ℙ)
30	2	nnzd 12563	. . . 4 ⊢ (𝜑 → 𝑦 ∈ ℤ)
31		pceu.6	. . . . 5 ⊢ (𝜑 → 𝑁 ≠ 0)
32	12, 15	div0d 11964	. . . . . . . 8 ⊢ (𝜑 → (0 / 𝑡) = 0)
33		oveq1 7397	. . . . . . . . 9 ⊢ (𝑠 = 0 → (𝑠 / 𝑡) = (0 / 𝑡))
34	33	eqeq1d 2732	. . . . . . . 8 ⊢ (𝑠 = 0 → ((𝑠 / 𝑡) = 0 ↔ (0 / 𝑡) = 0))
35	32, 34	syl5ibrcom 247	. . . . . . 7 ⊢ (𝜑 → (𝑠 = 0 → (𝑠 / 𝑡) = 0))
36	8	eqeq1d 2732	. . . . . . 7 ⊢ (𝜑 → (𝑁 = 0 ↔ (𝑠 / 𝑡) = 0))
37	35, 36	sylibrd 259	. . . . . 6 ⊢ (𝜑 → (𝑠 = 0 → 𝑁 = 0))
38	37	necon3d 2947	. . . . 5 ⊢ (𝜑 → (𝑁 ≠ 0 → 𝑠 ≠ 0))
39	31, 38	mpd 15	. . . 4 ⊢ (𝜑 → 𝑠 ≠ 0)
40		pcval.2	. . . . 5 ⊢ 𝑇 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦}, ℝ, < )
41		pceu.3	. . . . 5 ⊢ 𝑈 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠}, ℝ, < )
42		eqid 2730	. . . . 5 ⊢ sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < )
43	40, 41, 42	pcpremul 16821	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → (𝑇 + 𝑈) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ))
44	29, 30, 16, 5, 39, 43	syl122anc 1381	. . 3 ⊢ (𝜑 → (𝑇 + 𝑈) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ))
45	3, 16	div0d 11964	. . . . . . . 8 ⊢ (𝜑 → (0 / 𝑦) = 0)
46		oveq1 7397	. . . . . . . . 9 ⊢ (𝑥 = 0 → (𝑥 / 𝑦) = (0 / 𝑦))
47	46	eqeq1d 2732	. . . . . . . 8 ⊢ (𝑥 = 0 → ((𝑥 / 𝑦) = 0 ↔ (0 / 𝑦) = 0))
48	45, 47	syl5ibrcom 247	. . . . . . 7 ⊢ (𝜑 → (𝑥 = 0 → (𝑥 / 𝑦) = 0))
49	9	eqeq1d 2732	. . . . . . 7 ⊢ (𝜑 → (𝑁 = 0 ↔ (𝑥 / 𝑦) = 0))
50	48, 49	sylibrd 259	. . . . . 6 ⊢ (𝜑 → (𝑥 = 0 → 𝑁 = 0))
51	50	necon3d 2947	. . . . 5 ⊢ (𝜑 → (𝑁 ≠ 0 → 𝑥 ≠ 0))
52	31, 51	mpd 15	. . . 4 ⊢ (𝜑 → 𝑥 ≠ 0)
53	11	nnzd 12563	. . . 4 ⊢ (𝜑 → 𝑡 ∈ ℤ)
54		pcval.1	. . . . 5 ⊢ 𝑆 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥}, ℝ, < )
55		pceu.4	. . . . 5 ⊢ 𝑉 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡}, ℝ, < )
56		eqid 2730	. . . . 5 ⊢ sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < )
57	54, 55, 56	pcpremul 16821	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → (𝑆 + 𝑉) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
58	29, 13, 52, 53, 15, 57	syl122anc 1381	. . 3 ⊢ (𝜑 → (𝑆 + 𝑉) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
59	28, 44, 58	3eqtr4d 2775	. 2 ⊢ (𝜑 → (𝑇 + 𝑈) = (𝑆 + 𝑉))
60		prmuz2 16673	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘2))
61	29, 60	syl 17	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ (ℤ_≥‘2))
62		eqid 2730	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦}
63	62, 40	pcprecl 16817	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0)) → (𝑇 ∈ ℕ₀ ∧ (𝑃↑𝑇) ∥ 𝑦))
64	63	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0)) → 𝑇 ∈ ℕ₀)
65	61, 30, 16, 64	syl12anc 836	. . . 4 ⊢ (𝜑 → 𝑇 ∈ ℕ₀)
66	65	nn0cnd 12512	. . 3 ⊢ (𝜑 → 𝑇 ∈ ℂ)
67		eqid 2730	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠}
68	67, 41	pcprecl 16817	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → (𝑈 ∈ ℕ₀ ∧ (𝑃↑𝑈) ∥ 𝑠))
69	68	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → 𝑈 ∈ ℕ₀)
70	61, 5, 39, 69	syl12anc 836	. . . 4 ⊢ (𝜑 → 𝑈 ∈ ℕ₀)
71	70	nn0cnd 12512	. . 3 ⊢ (𝜑 → 𝑈 ∈ ℂ)
72		eqid 2730	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥}
73	72, 54	pcprecl 16817	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → (𝑆 ∈ ℕ₀ ∧ (𝑃↑𝑆) ∥ 𝑥))
74	73	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → 𝑆 ∈ ℕ₀)
75	61, 13, 52, 74	syl12anc 836	. . . 4 ⊢ (𝜑 → 𝑆 ∈ ℕ₀)
76	75	nn0cnd 12512	. . 3 ⊢ (𝜑 → 𝑆 ∈ ℂ)
77		eqid 2730	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡}
78	77, 55	pcprecl 16817	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → (𝑉 ∈ ℕ₀ ∧ (𝑃↑𝑉) ∥ 𝑡))
79	78	simpld 494	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → 𝑉 ∈ ℕ₀)
80	61, 53, 15, 79	syl12anc 836	. . . 4 ⊢ (𝜑 → 𝑉 ∈ ℕ₀)
81	80	nn0cnd 12512	. . 3 ⊢ (𝜑 → 𝑉 ∈ ℂ)
82	66, 71, 76, 81	addsubeq4d 11591	. 2 ⊢ (𝜑 → ((𝑇 + 𝑈) = (𝑆 + 𝑉) ↔ (𝑆 − 𝑇) = (𝑈 − 𝑉)))
83	59, 82	mpbid 232	1 ⊢ (𝜑 → (𝑆 − 𝑇) = (𝑈 − 𝑉))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ≠ wne 2926 {crab 3408 class class class wbr 5110 ‘cfv 6514 (class class class)co 7390 supcsup 9398 ℝcr 11074 0cc0 11075 + caddc 11078 · cmul 11080 < clt 11215 − cmin 11412 / cdiv 11842 ℕcn 12193 2c2 12248 ℕ₀cn0 12449 ℤcz 12536 ℤ_≥cuz 12800 ↑cexp 14033 ∥ cdvds 16229 ℙcprime 16648

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 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2702 ax-sep 5254 ax-nul 5264 ax-pow 5323 ax-pr 5390 ax-un 7714 ax-cnex 11131 ax-resscn 11132 ax-1cn 11133 ax-icn 11134 ax-addcl 11135 ax-addrcl 11136 ax-mulcl 11137 ax-mulrcl 11138 ax-mulcom 11139 ax-addass 11140 ax-mulass 11141 ax-distr 11142 ax-i2m1 11143 ax-1ne0 11144 ax-1rid 11145 ax-rnegex 11146 ax-rrecex 11147 ax-cnre 11148 ax-pre-lttri 11149 ax-pre-lttrn 11150 ax-pre-ltadd 11151 ax-pre-mulgt0 11152 ax-pre-sup 11153

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3356 df-reu 3357 df-rab 3409 df-v 3452 df-sbc 3757 df-csb 3866 df-dif 3920 df-un 3922 df-in 3924 df-ss 3934 df-pss 3937 df-nul 4300 df-if 4492 df-pw 4568 df-sn 4593 df-pr 4595 df-op 4599 df-uni 4875 df-iun 4960 df-br 5111 df-opab 5173 df-mpt 5192 df-tr 5218 df-id 5536 df-eprel 5541 df-po 5549 df-so 5550 df-fr 5594 df-we 5596 df-xp 5647 df-rel 5648 df-cnv 5649 df-co 5650 df-dm 5651 df-rn 5652 df-res 5653 df-ima 5654 df-pred 6277 df-ord 6338 df-on 6339 df-lim 6340 df-suc 6341 df-iota 6467 df-fun 6516 df-fn 6517 df-f 6518 df-f1 6519 df-fo 6520 df-f1o 6521 df-fv 6522 df-riota 7347 df-ov 7393 df-oprab 7394 df-mpo 7395 df-om 7846 df-2nd 7972 df-frecs 8263 df-wrecs 8294 df-recs 8343 df-rdg 8381 df-1o 8437 df-2o 8438 df-er 8674 df-en 8922 df-dom 8923 df-sdom 8924 df-fin 8925 df-sup 9400 df-inf 9401 df-pnf 11217 df-mnf 11218 df-xr 11219 df-ltxr 11220 df-le 11221 df-sub 11414 df-neg 11415 df-div 11843 df-nn 12194 df-2 12256 df-3 12257 df-n0 12450 df-z 12537 df-uz 12801 df-rp 12959 df-fl 13761 df-mod 13839 df-seq 13974 df-exp 14034 df-cj 15072 df-re 15073 df-im 15074 df-sqrt 15208 df-abs 15209 df-dvds 16230 df-gcd 16472 df-prm 16649

This theorem is referenced by: pceu 16824

W3C validator