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 16546

Description: Lemma for pceu 16547. (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 496	. . . . . . . . . 10 ⊢ (𝜑 → 𝑦 ∈ ℕ)
3	2	nncnd 11989	. . . . . . . . 9 ⊢ (𝜑 → 𝑦 ∈ ℂ)
4		pceu.9	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑠 ∈ ℤ ∧ 𝑡 ∈ ℕ))
5	4	simpld 495	. . . . . . . . . 10 ⊢ (𝜑 → 𝑠 ∈ ℤ)
6	5	zcnd 12427	. . . . . . . . 9 ⊢ (𝜑 → 𝑠 ∈ ℂ)
7	3, 6	mulcomd 10996	. . . . . . . 8 ⊢ (𝜑 → (𝑦 · 𝑠) = (𝑠 · 𝑦))
8		pceu.10	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 = (𝑠 / 𝑡))
9		pceu.8	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 = (𝑥 / 𝑦))
10	8, 9	eqtr3d 2780	. . . . . . . . 9 ⊢ (𝜑 → (𝑠 / 𝑡) = (𝑥 / 𝑦))
11	4	simprd 496	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑡 ∈ ℕ)
12	11	nncnd 11989	. . . . . . . . . 10 ⊢ (𝜑 → 𝑡 ∈ ℂ)
13	1	simpld 495	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑥 ∈ ℤ)
14	13	zcnd 12427	. . . . . . . . . 10 ⊢ (𝜑 → 𝑥 ∈ ℂ)
15	11	nnne0d 12023	. . . . . . . . . 10 ⊢ (𝜑 → 𝑡 ≠ 0)
16	2	nnne0d 12023	. . . . . . . . . 10 ⊢ (𝜑 → 𝑦 ≠ 0)
17	6, 12, 14, 3, 15, 16	divmuleqd 11797	. . . . . . . . 9 ⊢ (𝜑 → ((𝑠 / 𝑡) = (𝑥 / 𝑦) ↔ (𝑠 · 𝑦) = (𝑥 · 𝑡)))
18	10, 17	mpbid 231	. . . . . . . 8 ⊢ (𝜑 → (𝑠 · 𝑦) = (𝑥 · 𝑡))
19	7, 18	eqtrd 2778	. . . . . . 7 ⊢ (𝜑 → (𝑦 · 𝑠) = (𝑥 · 𝑡))
20	19	breq2d 5086	. . . . . 6 ⊢ (𝜑 → ((𝑃↑𝑧) ∥ (𝑦 · 𝑠) ↔ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)))
21	20	rabbidv 3414	. . . . 5 ⊢ (𝜑 → {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)})
22		oveq2 7283	. . . . . . 7 ⊢ (𝑛 = 𝑧 → (𝑃↑𝑛) = (𝑃↑𝑧))
23	22	breq1d 5084	. . . . . 6 ⊢ (𝑛 = 𝑧 → ((𝑃↑𝑛) ∥ (𝑦 · 𝑠) ↔ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)))
24	23	cbvrabv 3426	. . . . 5 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑦 · 𝑠)}
25	22	breq1d 5084	. . . . . 6 ⊢ (𝑛 = 𝑧 → ((𝑃↑𝑛) ∥ (𝑥 · 𝑡) ↔ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)))
26	25	cbvrabv 3426	. . . . 5 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)} = {𝑧 ∈ ℕ₀ ∣ (𝑃↑𝑧) ∥ (𝑥 · 𝑡)}
27	21, 24, 26	3eqtr4g 2803	. . . 4 ⊢ (𝜑 → {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)})
28	27	supeq1d 9205	. . 3 ⊢ (𝜑 → sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
29		pceu.5	. . . 4 ⊢ (𝜑 → 𝑃 ∈ ℙ)
30	2	nnzd 12425	. . . 4 ⊢ (𝜑 → 𝑦 ∈ ℤ)
31		pceu.6	. . . . 5 ⊢ (𝜑 → 𝑁 ≠ 0)
32	12, 15	div0d 11750	. . . . . . . 8 ⊢ (𝜑 → (0 / 𝑡) = 0)
33		oveq1 7282	. . . . . . . . 9 ⊢ (𝑠 = 0 → (𝑠 / 𝑡) = (0 / 𝑡))
34	33	eqeq1d 2740	. . . . . . . 8 ⊢ (𝑠 = 0 → ((𝑠 / 𝑡) = 0 ↔ (0 / 𝑡) = 0))
35	32, 34	syl5ibrcom 246	. . . . . . 7 ⊢ (𝜑 → (𝑠 = 0 → (𝑠 / 𝑡) = 0))
36	8	eqeq1d 2740	. . . . . . 7 ⊢ (𝜑 → (𝑁 = 0 ↔ (𝑠 / 𝑡) = 0))
37	35, 36	sylibrd 258	. . . . . 6 ⊢ (𝜑 → (𝑠 = 0 → 𝑁 = 0))
38	37	necon3d 2964	. . . . 5 ⊢ (𝜑 → (𝑁 ≠ 0 → 𝑠 ≠ 0))
39	31, 38	mpd 15	. . . 4 ⊢ (𝜑 → 𝑠 ≠ 0)
40		pcval.2	. . . . 5 ⊢ 𝑇 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦}, ℝ, < )
41		pceu.3	. . . . 5 ⊢ 𝑈 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠}, ℝ, < )
42		eqid 2738	. . . . 5 ⊢ sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < )
43	40, 41, 42	pcpremul 16544	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → (𝑇 + 𝑈) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ))
44	29, 30, 16, 5, 39, 43	syl122anc 1378	. . 3 ⊢ (𝜑 → (𝑇 + 𝑈) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑦 · 𝑠)}, ℝ, < ))
45	3, 16	div0d 11750	. . . . . . . 8 ⊢ (𝜑 → (0 / 𝑦) = 0)
46		oveq1 7282	. . . . . . . . 9 ⊢ (𝑥 = 0 → (𝑥 / 𝑦) = (0 / 𝑦))
47	46	eqeq1d 2740	. . . . . . . 8 ⊢ (𝑥 = 0 → ((𝑥 / 𝑦) = 0 ↔ (0 / 𝑦) = 0))
48	45, 47	syl5ibrcom 246	. . . . . . 7 ⊢ (𝜑 → (𝑥 = 0 → (𝑥 / 𝑦) = 0))
49	9	eqeq1d 2740	. . . . . . 7 ⊢ (𝜑 → (𝑁 = 0 ↔ (𝑥 / 𝑦) = 0))
50	48, 49	sylibrd 258	. . . . . 6 ⊢ (𝜑 → (𝑥 = 0 → 𝑁 = 0))
51	50	necon3d 2964	. . . . 5 ⊢ (𝜑 → (𝑁 ≠ 0 → 𝑥 ≠ 0))
52	31, 51	mpd 15	. . . 4 ⊢ (𝜑 → 𝑥 ≠ 0)
53	11	nnzd 12425	. . . 4 ⊢ (𝜑 → 𝑡 ∈ ℤ)
54		pcval.1	. . . . 5 ⊢ 𝑆 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥}, ℝ, < )
55		pceu.4	. . . . 5 ⊢ 𝑉 = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡}, ℝ, < )
56		eqid 2738	. . . . 5 ⊢ sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < )
57	54, 55, 56	pcpremul 16544	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → (𝑆 + 𝑉) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
58	29, 13, 52, 53, 15, 57	syl122anc 1378	. . 3 ⊢ (𝜑 → (𝑆 + 𝑉) = sup({𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ (𝑥 · 𝑡)}, ℝ, < ))
59	28, 44, 58	3eqtr4d 2788	. 2 ⊢ (𝜑 → (𝑇 + 𝑈) = (𝑆 + 𝑉))
60		prmuz2 16401	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘2))
61	29, 60	syl 17	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ (ℤ_≥‘2))
62		eqid 2738	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑦}
63	62, 40	pcprecl 16540	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0)) → (𝑇 ∈ ℕ₀ ∧ (𝑃↑𝑇) ∥ 𝑦))
64	63	simpld 495	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑦 ∈ ℤ ∧ 𝑦 ≠ 0)) → 𝑇 ∈ ℕ₀)
65	61, 30, 16, 64	syl12anc 834	. . . 4 ⊢ (𝜑 → 𝑇 ∈ ℕ₀)
66	65	nn0cnd 12295	. . 3 ⊢ (𝜑 → 𝑇 ∈ ℂ)
67		eqid 2738	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑠}
68	67, 41	pcprecl 16540	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → (𝑈 ∈ ℕ₀ ∧ (𝑃↑𝑈) ∥ 𝑠))
69	68	simpld 495	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑠 ∈ ℤ ∧ 𝑠 ≠ 0)) → 𝑈 ∈ ℕ₀)
70	61, 5, 39, 69	syl12anc 834	. . . 4 ⊢ (𝜑 → 𝑈 ∈ ℕ₀)
71	70	nn0cnd 12295	. . 3 ⊢ (𝜑 → 𝑈 ∈ ℂ)
72		eqid 2738	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑥}
73	72, 54	pcprecl 16540	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → (𝑆 ∈ ℕ₀ ∧ (𝑃↑𝑆) ∥ 𝑥))
74	73	simpld 495	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → 𝑆 ∈ ℕ₀)
75	61, 13, 52, 74	syl12anc 834	. . . 4 ⊢ (𝜑 → 𝑆 ∈ ℕ₀)
76	75	nn0cnd 12295	. . 3 ⊢ (𝜑 → 𝑆 ∈ ℂ)
77		eqid 2738	. . . . . . 7 ⊢ {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡} = {𝑛 ∈ ℕ₀ ∣ (𝑃↑𝑛) ∥ 𝑡}
78	77, 55	pcprecl 16540	. . . . . 6 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → (𝑉 ∈ ℕ₀ ∧ (𝑃↑𝑉) ∥ 𝑡))
79	78	simpld 495	. . . . 5 ⊢ ((𝑃 ∈ (ℤ_≥‘2) ∧ (𝑡 ∈ ℤ ∧ 𝑡 ≠ 0)) → 𝑉 ∈ ℕ₀)
80	61, 53, 15, 79	syl12anc 834	. . . 4 ⊢ (𝜑 → 𝑉 ∈ ℕ₀)
81	80	nn0cnd 12295	. . 3 ⊢ (𝜑 → 𝑉 ∈ ℂ)
82	66, 71, 76, 81	addsubeq4d 11383	. 2 ⊢ (𝜑 → ((𝑇 + 𝑈) = (𝑆 + 𝑉) ↔ (𝑆 − 𝑇) = (𝑈 − 𝑉)))
83	59, 82	mpbid 231	1 ⊢ (𝜑 → (𝑆 − 𝑇) = (𝑈 − 𝑉))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 = wceq 1539 ∈ wcel 2106 ≠ wne 2943 {crab 3068 class class class wbr 5074 ‘cfv 6433 (class class class)co 7275 supcsup 9199 ℝcr 10870 0cc0 10871 + caddc 10874 · cmul 10876 < clt 11009 − cmin 11205 / cdiv 11632 ℕcn 11973 2c2 12028 ℕ₀cn0 12233 ℤcz 12319 ℤ_≥cuz 12582 ↑cexp 13782 ∥ cdvds 15963 ℙcprime 16376

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2709 ax-sep 5223 ax-nul 5230 ax-pow 5288 ax-pr 5352 ax-un 7588 ax-cnex 10927 ax-resscn 10928 ax-1cn 10929 ax-icn 10930 ax-addcl 10931 ax-addrcl 10932 ax-mulcl 10933 ax-mulrcl 10934 ax-mulcom 10935 ax-addass 10936 ax-mulass 10937 ax-distr 10938 ax-i2m1 10939 ax-1ne0 10940 ax-1rid 10941 ax-rnegex 10942 ax-rrecex 10943 ax-cnre 10944 ax-pre-lttri 10945 ax-pre-lttrn 10946 ax-pre-ltadd 10947 ax-pre-mulgt0 10948 ax-pre-sup 10949

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3069 df-rex 3070 df-rmo 3071 df-reu 3072 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-pss 3906 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-op 4568 df-uni 4840 df-iun 4926 df-br 5075 df-opab 5137 df-mpt 5158 df-tr 5192 df-id 5489 df-eprel 5495 df-po 5503 df-so 5504 df-fr 5544 df-we 5546 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-pred 6202 df-ord 6269 df-on 6270 df-lim 6271 df-suc 6272 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-f1 6438 df-fo 6439 df-f1o 6440 df-fv 6441 df-riota 7232 df-ov 7278 df-oprab 7279 df-mpo 7280 df-om 7713 df-2nd 7832 df-frecs 8097 df-wrecs 8128 df-recs 8202 df-rdg 8241 df-1o 8297 df-2o 8298 df-er 8498 df-en 8734 df-dom 8735 df-sdom 8736 df-fin 8737 df-sup 9201 df-inf 9202 df-pnf 11011 df-mnf 11012 df-xr 11013 df-ltxr 11014 df-le 11015 df-sub 11207 df-neg 11208 df-div 11633 df-nn 11974 df-2 12036 df-3 12037 df-n0 12234 df-z 12320 df-uz 12583 df-rp 12731 df-fl 13512 df-mod 13590 df-seq 13722 df-exp 13783 df-cj 14810 df-re 14811 df-im 14812 df-sqrt 14946 df-abs 14947 df-dvds 15964 df-gcd 16202 df-prm 16377

This theorem is referenced by: pceu 16547

W3C validator