Theorem ppisval 27305

Description: The set of primes less than 𝐴 expressed using a finite set of integers. (Contributed by Mario Carneiro, 22-Sep-2014.)

Assertion

Ref	Expression
ppisval	⊢ (𝐴 ∈ ℝ → ((0[,]𝐴) ∩ ℙ) = ((2...(⌊‘𝐴)) ∩ ℙ))

Proof of Theorem ppisval

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 490	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ∈ ((0[,]𝐴) ∩ ℙ))
2	1	elin2d 4161	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ∈ ℙ)
3		prmuz2 16779	. . . . . . 7 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ (ℤ≥‘2))
4	2, 3	syl 18	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ∈ (ℤ≥‘2))
5		prmz 16758	. . . . . . . 8 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ ℤ)
6	2, 5	syl 18	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ∈ ℤ)
7		flcl 13848	. . . . . . . 8 ⊢ (𝐴 ∈ ℝ → (⌊‘𝐴) ∈ ℤ)
8	7	adantr 486	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → (⌊‘𝐴) ∈ ℤ)
9	1	elin1d 4160	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ∈ (0[,]𝐴))
10		0re 11228	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ
11		simpl 488	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝐴 ∈ ℝ)
12		elicc2 13456	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝑥 ∈ (0[,]𝐴) ↔ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴)))
13	10, 11, 12	sylancr 599	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑥 ∈ (0[,]𝐴) ↔ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴)))
14	9, 13	mpbid 235	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴))
15	14	simp3d 1162	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ≤ 𝐴)
16		flge 13858	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ℤ) → (𝑥 ≤ 𝐴 ↔ 𝑥 ≤ (⌊‘𝐴)))
17	6, 16	syldan 603	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑥 ≤ 𝐴 ↔ 𝑥 ≤ (⌊‘𝐴)))
18	15, 17	mpbid 235	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ≤ (⌊‘𝐴))
19		eluz2 12886	. . . . . . 7 ⊢ ((⌊‘𝐴) ∈ (ℤ≥‘𝑥) ↔ (𝑥 ∈ ℤ ∧ (⌊‘𝐴) ∈ ℤ ∧ 𝑥 ≤ (⌊‘𝐴)))
20	6, 8, 18, 19	syl3anbrc 1362	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → (⌊‘𝐴) ∈ (ℤ≥‘𝑥))
21		elfzuzb 13564	. . . . . 6 ⊢ (𝑥 ∈ (2...(⌊‘𝐴)) ↔ (𝑥 ∈ (ℤ≥‘2) ∧ (⌊‘𝐴) ∈ (ℤ≥‘𝑥)))
22	4, 20, 21	sylanbrc 595	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ∈ (2...(⌊‘𝐴)))
23	22, 2	elind 4156	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝑥 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑥 ∈ ((2...(⌊‘𝐴)) ∩ ℙ))
24	23	ex 418	. . 3 ⊢ (𝐴 ∈ ℝ → (𝑥 ∈ ((0[,]𝐴) ∩ ℙ) → 𝑥 ∈ ((2...(⌊‘𝐴)) ∩ ℙ)))
25	24	ssrdv 3946	. 2 ⊢ (𝐴 ∈ ℝ → ((0[,]𝐴) ∩ ℙ) ⊆ ((2...(⌊‘𝐴)) ∩ ℙ))
26		2z 12644	. . . . 5 ⊢ 2 ∈ ℤ
27		fzval2 13556	. . . . 5 ⊢ ((2 ∈ ℤ ∧ (⌊‘𝐴) ∈ ℤ) → (2...(⌊‘𝐴)) = ((2[,](⌊‘𝐴)) ∩ ℤ))
28	26, 7, 27	sylancr 599	. . . 4 ⊢ (𝐴 ∈ ℝ → (2...(⌊‘𝐴)) = ((2[,](⌊‘𝐴)) ∩ ℤ))
29		inss1 4192	. . . . 5 ⊢ ((2[,](⌊‘𝐴)) ∩ ℤ) ⊆ (2[,](⌊‘𝐴))
30	10	a1i 11	. . . . . 6 ⊢ (𝐴 ∈ ℝ → 0 ∈ ℝ)
31		id 23	. . . . . 6 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℝ)
32		0le2 12361	. . . . . . 7 ⊢ 0 ≤ 2
33	32	a1i 11	. . . . . 6 ⊢ (𝐴 ∈ ℝ → 0 ≤ 2)
34		flle 13852	. . . . . 6 ⊢ (𝐴 ∈ ℝ → (⌊‘𝐴) ≤ 𝐴)
35		iccss 13459	. . . . . 6 ⊢ (((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) ∧ (0 ≤ 2 ∧ (⌊‘𝐴) ≤ 𝐴)) → (2[,](⌊‘𝐴)) ⊆ (0[,]𝐴))
36	30, 31, 33, 34, 35	syl22anc 852	. . . . 5 ⊢ (𝐴 ∈ ℝ → (2[,](⌊‘𝐴)) ⊆ (0[,]𝐴))
37	29, 36	sstrid 3951	. . . 4 ⊢ (𝐴 ∈ ℝ → ((2[,](⌊‘𝐴)) ∩ ℤ) ⊆ (0[,]𝐴))
38	28, 37	eqsstrd 3974	. . 3 ⊢ (𝐴 ∈ ℝ → (2...(⌊‘𝐴)) ⊆ (0[,]𝐴))
39	38	ssrind 4199	. 2 ⊢ (𝐴 ∈ ℝ → ((2...(⌊‘𝐴)) ∩ ℙ) ⊆ ((0[,]𝐴) ∩ ℙ))
40	25, 39	eqssd 3957	1 ⊢ (𝐴 ∈ ℝ → ((0[,]𝐴) ∩ ℙ) = ((2...(⌊‘𝐴)) ∩ ℙ))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2146   ∩ cin 3907   ⊆ wss 3908   class class class wbr 5114  ‘cfv 6543  (class class class)co 7423  ℝcr 11117  0cc0 11118   ≤ cle 11262  2c2 12313  ℤcz 12609  ℤ_≥cuz 12880  [,]cicc 13393  ...cfz 13553  ⌊cfl 13843  ℙcprime 16754

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195  ax-pre-sup 11196

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-er 8703  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-sup 9412  df-inf 9413  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-div 11890  df-nn 12252  df-2 12321  df-3 12322  df-n0 12523  df-z 12610  df-uz 12881  df-rp 13035  df-icc 13397  df-fz 13554  df-fl 13845  df-seq 14058  df-exp 14118  df-cj 15176  df-re 15177  df-im 15178  df-sqrt 15312  df-abs 15313  df-dvds 16336  df-prm 16755

This theorem is used by:  ppisval2  27306  ppifi  27307  ppival2  27329  chtfl  27350  chtprm  27354  chtnprm  27355  ppifl  27361  cht1  27366  chtlepsi  27407  chpval2  27419  chpub  27421  chtvalz  35048