pcadd2 - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > pcadd2		GIF version

Theorem pcadd2 13149

Description: The inequality of pcadd 13148 becomes an equality when one of the factors has prime count strictly less than the other. (Contributed by Mario Carneiro, 16-Jan-2015.) (Revised by Mario Carneiro, 26-Jun-2015.)

**Hypotheses**
Ref	Expression
pcadd2.1	⊢ (𝜑 → 𝑃 ∈ ℙ)
pcadd2.2	⊢ (𝜑 → 𝐴 ∈ ℚ)
pcadd2.3	⊢ (𝜑 → 𝐵 ∈ ℚ)
pcadd2.4	⊢ (𝜑 → (𝑃 pCnt 𝐴) < (𝑃 pCnt 𝐵))

**Assertion**
Ref	Expression
pcadd2	⊢ (𝜑 → (𝑃 pCnt 𝐴) = (𝑃 pCnt (𝐴 + 𝐵)))

**Proof of Theorem pcadd2**
Step	Hyp	Ref	Expression
1		pcadd2.1	. . 3 ⊢ (𝜑 → 𝑃 ∈ ℙ)
2		pcadd2.2	. . 3 ⊢ (𝜑 → 𝐴 ∈ ℚ)
3		pcxcl 13119	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℚ) → (𝑃 pCnt 𝐴) ∈ ℝ^*)
4	1, 2, 3	syl2anc 415	. 2 ⊢ (𝜑 → (𝑃 pCnt 𝐴) ∈ ℝ^*)
5		pcadd2.3	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℚ)
6		qaddcl 10051	. . . 4 ⊢ ((𝐴 ∈ ℚ ∧ 𝐵 ∈ ℚ) → (𝐴 + 𝐵) ∈ ℚ)
7	2, 5, 6	syl2anc 415	. . 3 ⊢ (𝜑 → (𝐴 + 𝐵) ∈ ℚ)
8		pcxcl 13119	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ (𝐴 + 𝐵) ∈ ℚ) → (𝑃 pCnt (𝐴 + 𝐵)) ∈ ℝ^*)
9	1, 7, 8	syl2anc 415	. 2 ⊢ (𝜑 → (𝑃 pCnt (𝐴 + 𝐵)) ∈ ℝ^*)
10		pcxcl 13119	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐵 ∈ ℚ) → (𝑃 pCnt 𝐵) ∈ ℝ^*)
11	1, 5, 10	syl2anc 415	. . . 4 ⊢ (𝜑 → (𝑃 pCnt 𝐵) ∈ ℝ^*)
12		pcadd2.4	. . . 4 ⊢ (𝜑 → (𝑃 pCnt 𝐴) < (𝑃 pCnt 𝐵))
13	4, 11, 12	xrltled 10218	. . 3 ⊢ (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵))
14	1, 2, 5, 13	pcadd 13148	. 2 ⊢ (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
15		qnegcl 10052	. . . . 5 ⊢ (𝐵 ∈ ℚ → -𝐵 ∈ ℚ)
16	5, 15	syl 14	. . . 4 ⊢ (𝜑 → -𝐵 ∈ ℚ)
17		pcxqcl 13120	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℚ) → ((𝑃 pCnt 𝐴) ∈ ℤ ∨ (𝑃 pCnt 𝐴) = +∞))
18		zq 10042	. . . . . . . . . . . . 13 ⊢ ((𝑃 pCnt 𝐴) ∈ ℤ → (𝑃 pCnt 𝐴) ∈ ℚ)
19	18	orim1i 772	. . . . . . . . . . . 12 ⊢ (((𝑃 pCnt 𝐴) ∈ ℤ ∨ (𝑃 pCnt 𝐴) = +∞) → ((𝑃 pCnt 𝐴) ∈ ℚ ∨ (𝑃 pCnt 𝐴) = +∞))
20	17, 19	syl 14	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℚ) → ((𝑃 pCnt 𝐴) ∈ ℚ ∨ (𝑃 pCnt 𝐴) = +∞))
21	1, 2, 20	syl2anc 415	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑃 pCnt 𝐴) ∈ ℚ ∨ (𝑃 pCnt 𝐴) = +∞))
22		pcxqcl 13120	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℙ ∧ 𝐵 ∈ ℚ) → ((𝑃 pCnt 𝐵) ∈ ℤ ∨ (𝑃 pCnt 𝐵) = +∞))
23		zq 10042	. . . . . . . . . . . . 13 ⊢ ((𝑃 pCnt 𝐵) ∈ ℤ → (𝑃 pCnt 𝐵) ∈ ℚ)
24	23	orim1i 772	. . . . . . . . . . . 12 ⊢ (((𝑃 pCnt 𝐵) ∈ ℤ ∨ (𝑃 pCnt 𝐵) = +∞) → ((𝑃 pCnt 𝐵) ∈ ℚ ∨ (𝑃 pCnt 𝐵) = +∞))
25	22, 24	syl 14	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℙ ∧ 𝐵 ∈ ℚ) → ((𝑃 pCnt 𝐵) ∈ ℚ ∨ (𝑃 pCnt 𝐵) = +∞))
26	1, 5, 25	syl2anc 415	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑃 pCnt 𝐵) ∈ ℚ ∨ (𝑃 pCnt 𝐵) = +∞))
27		xqltnle 10719	. . . . . . . . . 10 ⊢ ((((𝑃 pCnt 𝐴) ∈ ℚ ∨ (𝑃 pCnt 𝐴) = +∞) ∧ ((𝑃 pCnt 𝐵) ∈ ℚ ∨ (𝑃 pCnt 𝐵) = +∞)) → ((𝑃 pCnt 𝐴) < (𝑃 pCnt 𝐵) ↔ ¬ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt 𝐴)))
28	21, 26, 27	syl2anc 415	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 pCnt 𝐴) < (𝑃 pCnt 𝐵) ↔ ¬ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt 𝐴)))
29	12, 28	mpbid 147	. . . . . . . 8 ⊢ (𝜑 → ¬ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt 𝐴))
30	1	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))) → 𝑃 ∈ ℙ)
31	16	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))) → -𝐵 ∈ ℚ)
32	7	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))) → (𝐴 + 𝐵) ∈ ℚ)
33		pcneg 13133	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℙ ∧ 𝐵 ∈ ℚ) → (𝑃 pCnt -𝐵) = (𝑃 pCnt 𝐵))
34	1, 5, 33	syl2anc 415	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑃 pCnt -𝐵) = (𝑃 pCnt 𝐵))
35	34	breq1d 4141	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑃 pCnt -𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵)) ↔ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
36	35	biimpar 297	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))) → (𝑃 pCnt -𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
37	30, 31, 32, 36	pcadd 13148	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))) → (𝑃 pCnt -𝐵) ≤ (𝑃 pCnt ( -𝐵 + (𝐴 + 𝐵))))
38	37	ex 115	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵)) → (𝑃 pCnt -𝐵) ≤ (𝑃 pCnt ( -𝐵 + (𝐴 + 𝐵)))))
39		qcn 10050	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ ℚ → 𝐵 ∈ ℂ)
40	5, 39	syl 14	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ∈ ℂ)
41	40	negcld 8631	. . . . . . . . . . . . 13 ⊢ (𝜑 → -𝐵 ∈ ℂ)
42		qcn 10050	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℚ → 𝐴 ∈ ℂ)
43	2, 42	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ ℂ)
44	41, 43, 40	add12d 8500	. . . . . . . . . . . 12 ⊢ (𝜑 → ( -𝐵 + (𝐴 + 𝐵)) = (𝐴 + ( -𝐵 + 𝐵)))
45	41, 40	addcomd 8484	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ( -𝐵 + 𝐵) = (𝐵 + -𝐵))
46	40	negidd 8634	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐵 + -𝐵) = 0)
47	45, 46	eqtrd 2271	. . . . . . . . . . . . 13 ⊢ (𝜑 → ( -𝐵 + 𝐵) = 0)
48	47	oveq2d 6104	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + ( -𝐵 + 𝐵)) = (𝐴 + 0))
49	43	addridd 8482	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 0) = 𝐴)
50	44, 48, 49	3eqtrd 2275	. . . . . . . . . . 11 ⊢ (𝜑 → ( -𝐵 + (𝐴 + 𝐵)) = 𝐴)
51	50	oveq2d 6104	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 pCnt ( -𝐵 + (𝐴 + 𝐵))) = (𝑃 pCnt 𝐴))
52	34, 51	breq12d 4144	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 pCnt -𝐵) ≤ (𝑃 pCnt ( -𝐵 + (𝐴 + 𝐵))) ↔ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt 𝐴)))
53	38, 52	sylibd 149	. . . . . . . 8 ⊢ (𝜑 → ((𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵)) → (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt 𝐴)))
54	29, 53	mtod 673	. . . . . . 7 ⊢ (𝜑 → ¬ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
55		pcxqcl 13120	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ (𝐴 + 𝐵) ∈ ℚ) → ((𝑃 pCnt (𝐴 + 𝐵)) ∈ ℤ ∨ (𝑃 pCnt (𝐴 + 𝐵)) = +∞))
56		zq 10042	. . . . . . . . . . 11 ⊢ ((𝑃 pCnt (𝐴 + 𝐵)) ∈ ℤ → (𝑃 pCnt (𝐴 + 𝐵)) ∈ ℚ)
57	56	orim1i 772	. . . . . . . . . 10 ⊢ (((𝑃 pCnt (𝐴 + 𝐵)) ∈ ℤ ∨ (𝑃 pCnt (𝐴 + 𝐵)) = +∞) → ((𝑃 pCnt (𝐴 + 𝐵)) ∈ ℚ ∨ (𝑃 pCnt (𝐴 + 𝐵)) = +∞))
58	55, 57	syl 14	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ (𝐴 + 𝐵) ∈ ℚ) → ((𝑃 pCnt (𝐴 + 𝐵)) ∈ ℚ ∨ (𝑃 pCnt (𝐴 + 𝐵)) = +∞))
59	1, 7, 58	syl2anc 415	. . . . . . . 8 ⊢ (𝜑 → ((𝑃 pCnt (𝐴 + 𝐵)) ∈ ℚ ∨ (𝑃 pCnt (𝐴 + 𝐵)) = +∞))
60		xqltnle 10719	. . . . . . . 8 ⊢ ((((𝑃 pCnt (𝐴 + 𝐵)) ∈ ℚ ∨ (𝑃 pCnt (𝐴 + 𝐵)) = +∞) ∧ ((𝑃 pCnt 𝐵) ∈ ℚ ∨ (𝑃 pCnt 𝐵) = +∞)) → ((𝑃 pCnt (𝐴 + 𝐵)) < (𝑃 pCnt 𝐵) ↔ ¬ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
61	59, 26, 60	syl2anc 415	. . . . . . 7 ⊢ (𝜑 → ((𝑃 pCnt (𝐴 + 𝐵)) < (𝑃 pCnt 𝐵) ↔ ¬ (𝑃 pCnt 𝐵) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
62	54, 61	mpbird 167	. . . . . 6 ⊢ (𝜑 → (𝑃 pCnt (𝐴 + 𝐵)) < (𝑃 pCnt 𝐵))
63	9, 11, 62	xrltled 10218	. . . . 5 ⊢ (𝜑 → (𝑃 pCnt (𝐴 + 𝐵)) ≤ (𝑃 pCnt 𝐵))
64	63, 34	breqtrrd 4159	. . . 4 ⊢ (𝜑 → (𝑃 pCnt (𝐴 + 𝐵)) ≤ (𝑃 pCnt -𝐵))
65	1, 7, 16, 64	pcadd 13148	. . 3 ⊢ (𝜑 → (𝑃 pCnt (𝐴 + 𝐵)) ≤ (𝑃 pCnt ((𝐴 + 𝐵) + -𝐵)))
66	43, 40, 41	addassd 8354	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝐵) + -𝐵) = (𝐴 + (𝐵 + -𝐵)))
67	46	oveq2d 6104	. . . . 5 ⊢ (𝜑 → (𝐴 + (𝐵 + -𝐵)) = (𝐴 + 0))
68	66, 67, 49	3eqtrd 2275	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐵) + -𝐵) = 𝐴)
69	68	oveq2d 6104	. . 3 ⊢ (𝜑 → (𝑃 pCnt ((𝐴 + 𝐵) + -𝐵)) = (𝑃 pCnt 𝐴))
70	65, 69	breqtrd 4157	. 2 ⊢ (𝜑 → (𝑃 pCnt (𝐴 + 𝐵)) ≤ (𝑃 pCnt 𝐴))
71	4, 9, 14, 70	xrletrid 10224	1 ⊢ (𝜑 → (𝑃 pCnt 𝐴) = (𝑃 pCnt (𝐴 + 𝐵)))

Colors of variables: wff set class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 720 = wceq 1402 ∈ wcel 2209 class class class wbr 4131 (class class class)co 6088 ℂcc 8183 0cc0 8185 + caddc 8188 +∞cpnf 8363 ℝ^*cxr 8365 < clt 8366 ≤ cle 8367 -cneg 8505 ℤcz 9655 ℚcq 10035 ℙcprime 12910 pCnt cpc 13092

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 623 ax-in2 624 ax-io 721 ax-5 1500 ax-7 1501 ax-gen 1502 ax-ie1 1546 ax-ie2 1547 ax-8 1557 ax-10 1558 ax-11 1559 ax-i12 1560 ax-bndl 1562 ax-4 1563 ax-17 1579 ax-i9 1583 ax-ial 1587 ax-i5r 1588 ax-14 2212 ax-ext 2220 ax-coll 4248 ax-sep 4251 ax-nul 4261 ax-pow 4313 ax-pr 4348 ax-un 4580 ax-setind 4686 ax-iinf 4737 ax-cnex 8276 ax-resscn 8277 ax-1cn 8278 ax-1re 8279 ax-icn 8280 ax-addcl 8281 ax-addrcl 8282 ax-mulcl 8283 ax-mulrcl 8284 ax-addcom 8285 ax-mulcom 8286 ax-addass 8287 ax-mulass 8288 ax-distr 8289 ax-i2m1 8290 ax-0lt1 8291 ax-1rid 8292 ax-0id 8293 ax-rnegex 8294 ax-precex 8295 ax-cnre 8296 ax-pre-ltirr 8297 ax-pre-ltwlin 8298 ax-pre-lttrn 8299 ax-pre-apti 8300 ax-pre-ltadd 8301 ax-pre-mulgt0 8302 ax-pre-mulext 8303 ax-arch 8304 ax-caucvg 8305

This proof depends on definitions: df-bi 117 df-stab 843 df-dc 847 df-3or 1010 df-3an 1011 df-tru 1405 df-fal 1408 df-nf 1514 df-sb 1816 df-eu 2089 df-mo 2090 df-clab 2225 df-cleq 2231 df-clel 2234 df-nfc 2381 df-ne 2421 df-nel 2516 df-ral 2533 df-rex 2534 df-reu 2535 df-rmo 2536 df-rab 2537 df-v 2823 df-sbc 3052 df-csb 3148 df-dif 3222 df-un 3224 df-in 3226 df-ss 3233 df-nul 3521 df-if 3639 df-pw 3690 df-sn 3715 df-pr 3716 df-op 3718 df-uni 3936 df-int 3971 df-iun 4014 df-br 4132 df-opab 4194 df-mpt 4195 df-tr 4232 df-id 4440 df-po 4443 df-iso 4444 df-iord 4513 df-on 4515 df-ilim 4516 df-suc 4518 df-iom 4740 df-xp 4782 df-rel 4783 df-cnv 4784 df-co 4785 df-dm 4786 df-rn 4787 df-res 4788 df-ima 4789 df-iota 5340 df-fun 5382 df-fn 5383 df-f 5384 df-f1 5385 df-fo 5386 df-f1o 5387 df-fv 5388 df-isom 5389 df-riota 6041 df-ov 6091 df-oprab 6092 df-mpo 6093 df-1st 6378 df-2nd 6379 df-recs 6580 df-frec 6666 df-1o 6691 df-2o 6692 df-er 6811 df-en 7027 df-sup 7330 df-inf 7331 df-pnf 8368 df-mnf 8369 df-xr 8370 df-ltxr 8371 df-le 8372 df-sub 8506 df-neg 8507 df-reap 8911 df-ap 8918 df-div 9011 df-inn 9314 df-2 9372 df-3 9373 df-4 9374 df-n0 9575 df-z 9656 df-uz 9938 df-q 10036 df-rp 10072 df-fz 10429 df-fzo 10567 df-fl 10722 df-mod 10781 df-seqfrec 10906 df-exp 10997 df-cj 11629 df-re 11630 df-im 11631 df-rsqrt 11786 df-abs 11787 df-dvds 12580 df-gcd 12756 df-prm 12911 df-pc 13093

This theorem is used by: (None)

W3C validator