Theorem infxrpnf 41284

Description: Adding plus infinity to a set does not affect its infimum. (Contributed by Glauco Siliprandi, 2-Jan-2022.)

Assertion

Ref	Expression
infxrpnf	⊢ (𝐴 ⊆ ℝ* → inf((𝐴 ∪ {+∞}), ℝ*, < ) = inf(𝐴, ℝ*, < ))

Proof of Theorem infxrpnf

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		id 22	. . . 4 ⊢ (𝐴 ⊆ ℝ* → 𝐴 ⊆ ℝ*)
2		pnfxr 10548	. . . . . 6 ⊢ +∞ ∈ ℝ*
3		snssi 4654	. . . . . 6 ⊢ (+∞ ∈ ℝ* → {+∞} ⊆ ℝ*)
4	2, 3	ax-mp 5	. . . . 5 ⊢ {+∞} ⊆ ℝ*
5	4	a1i 11	. . . 4 ⊢ (𝐴 ⊆ ℝ* → {+∞} ⊆ ℝ*)
6	1, 5	unssd 4089	. . 3 ⊢ (𝐴 ⊆ ℝ* → (𝐴 ∪ {+∞}) ⊆ ℝ*)
7	6	infxrcld 41223	. 2 ⊢ (𝐴 ⊆ ℝ* → inf((𝐴 ∪ {+∞}), ℝ*, < ) ∈ ℝ*)
8		infxrcl 12580	. 2 ⊢ (𝐴 ⊆ ℝ* → inf(𝐴, ℝ*, < ) ∈ ℝ*)
9		ssun1 4075	. . . 4 ⊢ 𝐴 ⊆ (𝐴 ∪ {+∞})
10	9	a1i 11	. . 3 ⊢ (𝐴 ⊆ ℝ* → 𝐴 ⊆ (𝐴 ∪ {+∞}))
11		infxrss 12586	. . 3 ⊢ ((𝐴 ⊆ (𝐴 ∪ {+∞}) ∧ (𝐴 ∪ {+∞}) ⊆ ℝ*) → inf((𝐴 ∪ {+∞}), ℝ*, < ) ≤ inf(𝐴, ℝ*, < ))
12	10, 6, 11	syl2anc 584	. 2 ⊢ (𝐴 ⊆ ℝ* → inf((𝐴 ∪ {+∞}), ℝ*, < ) ≤ inf(𝐴, ℝ*, < ))
13		infeq1 8793	. . . . . 6 ⊢ (𝐴 = ∅ → inf(𝐴, ℝ*, < ) = inf(∅, ℝ*, < ))
14		xrinf0 12585	. . . . . . . 8 ⊢ inf(∅, ℝ*, < ) = +∞
15	14, 2	eqeltri 2881	. . . . . . 7 ⊢ inf(∅, ℝ*, < ) ∈ ℝ*
16	15	a1i 11	. . . . . 6 ⊢ (𝐴 = ∅ → inf(∅, ℝ*, < ) ∈ ℝ*)
17	13, 16	eqeltrd 2885	. . . . 5 ⊢ (𝐴 = ∅ → inf(𝐴, ℝ*, < ) ∈ ℝ*)
18		xrltso 12388	. . . . . . . . 9 ⊢ < Or ℝ*
19		infsn 8822	. . . . . . . . 9 ⊢ (( < Or ℝ* ∧ +∞ ∈ ℝ*) → inf({+∞}, ℝ*, < ) = +∞)
20	18, 2, 19	mp2an 688	. . . . . . . 8 ⊢ inf({+∞}, ℝ*, < ) = +∞
21	20	eqcomi 2806	. . . . . . 7 ⊢ +∞ = inf({+∞}, ℝ*, < )
22	21	a1i 11	. . . . . 6 ⊢ (𝐴 = ∅ → +∞ = inf({+∞}, ℝ*, < ))
23	13, 14	syl6eq 2849	. . . . . 6 ⊢ (𝐴 = ∅ → inf(𝐴, ℝ*, < ) = +∞)
24		uneq1 4059	. . . . . . . 8 ⊢ (𝐴 = ∅ → (𝐴 ∪ {+∞}) = (∅ ∪ {+∞}))
25		0un 4272	. . . . . . . . 9 ⊢ (∅ ∪ {+∞}) = {+∞}
26	25	a1i 11	. . . . . . . 8 ⊢ (𝐴 = ∅ → (∅ ∪ {+∞}) = {+∞})
27	24, 26	eqtrd 2833	. . . . . . 7 ⊢ (𝐴 = ∅ → (𝐴 ∪ {+∞}) = {+∞})
28	27	infeq1d 8794	. . . . . 6 ⊢ (𝐴 = ∅ → inf((𝐴 ∪ {+∞}), ℝ*, < ) = inf({+∞}, ℝ*, < ))
29	22, 23, 28	3eqtr4d 2843	. . . . 5 ⊢ (𝐴 = ∅ → inf(𝐴, ℝ*, < ) = inf((𝐴 ∪ {+∞}), ℝ*, < ))
30	17, 29	xreqled 41160	. . . 4 ⊢ (𝐴 = ∅ → inf(𝐴, ℝ*, < ) ≤ inf((𝐴 ∪ {+∞}), ℝ*, < ))
31	30	adantl 482	. . 3 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝐴 = ∅) → inf(𝐴, ℝ*, < ) ≤ inf((𝐴 ∪ {+∞}), ℝ*, < ))
32		neqne 2994	. . . 4 ⊢ (¬ 𝐴 = ∅ → 𝐴 ≠ ∅)
33		nfv 1896	. . . . 5 ⊢ Ⅎ𝑥(𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅)
34		nfv 1896	. . . . 5 ⊢ Ⅎ𝑦(𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅)
35		simpl 483	. . . . 5 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) → 𝐴 ⊆ ℝ*)
36	35, 6	syl 17	. . . . 5 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) → (𝐴 ∪ {+∞}) ⊆ ℝ*)
37		simpr 485	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ 𝐴)
38		ssel2 3890	. . . . . . . . 9 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ*)
39	38	xrleidd 12399	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝑥 ∈ 𝐴) → 𝑥 ≤ 𝑥)
40		breq1 4971	. . . . . . . . 9 ⊢ (𝑦 = 𝑥 → (𝑦 ≤ 𝑥 ↔ 𝑥 ≤ 𝑥))
41	40	rspcev 3561	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑥 ≤ 𝑥) → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
42	37, 39, 41	syl2anc 584	. . . . . . 7 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝑥 ∈ 𝐴) → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
43	42	ad4ant14 748	. . . . . 6 ⊢ ((((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 ∈ (𝐴 ∪ {+∞})) ∧ 𝑥 ∈ 𝐴) → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
44		simpll 763	. . . . . . 7 ⊢ ((((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 ∈ (𝐴 ∪ {+∞})) ∧ ¬ 𝑥 ∈ 𝐴) → (𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅))
45		elunnel1 4053	. . . . . . . . 9 ⊢ ((𝑥 ∈ (𝐴 ∪ {+∞}) ∧ ¬ 𝑥 ∈ 𝐴) → 𝑥 ∈ {+∞})
46		elsni 4495	. . . . . . . . 9 ⊢ (𝑥 ∈ {+∞} → 𝑥 = +∞)
47	45, 46	syl 17	. . . . . . . 8 ⊢ ((𝑥 ∈ (𝐴 ∪ {+∞}) ∧ ¬ 𝑥 ∈ 𝐴) → 𝑥 = +∞)
48	47	adantll 710	. . . . . . 7 ⊢ ((((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 ∈ (𝐴 ∪ {+∞})) ∧ ¬ 𝑥 ∈ 𝐴) → 𝑥 = +∞)
49		simplr 765	. . . . . . . 8 ⊢ (((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 = +∞) → 𝐴 ≠ ∅)
50		ssel2 3890	. . . . . . . . . . . . 13 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝑦 ∈ 𝐴) → 𝑦 ∈ ℝ*)
51		pnfge 12379	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ* → 𝑦 ≤ +∞)
52	50, 51	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝑦 ∈ 𝐴) → 𝑦 ≤ +∞)
53	52	adantlr 711	. . . . . . . . . . 11 ⊢ (((𝐴 ⊆ ℝ* ∧ 𝑥 = +∞) ∧ 𝑦 ∈ 𝐴) → 𝑦 ≤ +∞)
54		simplr 765	. . . . . . . . . . 11 ⊢ (((𝐴 ⊆ ℝ* ∧ 𝑥 = +∞) ∧ 𝑦 ∈ 𝐴) → 𝑥 = +∞)
55	53, 54	breqtrrd 4996	. . . . . . . . . 10 ⊢ (((𝐴 ⊆ ℝ* ∧ 𝑥 = +∞) ∧ 𝑦 ∈ 𝐴) → 𝑦 ≤ 𝑥)
56	55	ralrimiva 3151	. . . . . . . . 9 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝑥 = +∞) → ∀𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
57	56	adantlr 711	. . . . . . . 8 ⊢ (((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 = +∞) → ∀𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
58		r19.2z 4360	. . . . . . . 8 ⊢ ((𝐴 ≠ ∅ ∧ ∀𝑦 ∈ 𝐴 𝑦 ≤ 𝑥) → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
59	49, 57, 58	syl2anc 584	. . . . . . 7 ⊢ (((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 = +∞) → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
60	44, 48, 59	syl2anc 584	. . . . . 6 ⊢ ((((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 ∈ (𝐴 ∪ {+∞})) ∧ ¬ 𝑥 ∈ 𝐴) → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
61	43, 60	pm2.61dan 809	. . . . 5 ⊢ (((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) ∧ 𝑥 ∈ (𝐴 ∪ {+∞})) → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)
62	33, 34, 35, 36, 61	infleinf2 41251	. . . 4 ⊢ ((𝐴 ⊆ ℝ* ∧ 𝐴 ≠ ∅) → inf(𝐴, ℝ*, < ) ≤ inf((𝐴 ∪ {+∞}), ℝ*, < ))
63	32, 62	sylan2 592	. . 3 ⊢ ((𝐴 ⊆ ℝ* ∧ ¬ 𝐴 = ∅) → inf(𝐴, ℝ*, < ) ≤ inf((𝐴 ∪ {+∞}), ℝ*, < ))
64	31, 63	pm2.61dan 809	. 2 ⊢ (𝐴 ⊆ ℝ* → inf(𝐴, ℝ*, < ) ≤ inf((𝐴 ∪ {+∞}), ℝ*, < ))
65	7, 8, 12, 64	xrletrid 12402	1 ⊢ (𝐴 ⊆ ℝ* → inf((𝐴 ∪ {+∞}), ℝ*, < ) = inf(𝐴, ℝ*, < ))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 396   = wceq 1525   ∈ wcel 2083   ≠ wne 2986  ∀wral 3107  ∃wrex 3108   ∪ cun 3863   ⊆ wss 3865  ∅c0 4217  {csn 4478   class class class wbr 4968   Or wor 5368  infcinf 8758  +∞cpnf 10525  ℝ^*cxr 10527   < clt 10528   ≤ cle 10529

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1781  ax-4 1795  ax-5 1892  ax-6 1951  ax-7 1996  ax-8 2085  ax-9 2093  ax-10 2114  ax-11 2128  ax-12 2143  ax-13 2346  ax-ext 2771  ax-sep 5101  ax-nul 5108  ax-pow 5164  ax-pr 5228  ax-un 7326  ax-cnex 10446  ax-resscn 10447  ax-1cn 10448  ax-icn 10449  ax-addcl 10450  ax-addrcl 10451  ax-mulcl 10452  ax-mulrcl 10453  ax-mulcom 10454  ax-addass 10455  ax-mulass 10456  ax-distr 10457  ax-i2m1 10458  ax-1ne0 10459  ax-1rid 10460  ax-rnegex 10461  ax-rrecex 10462  ax-cnre 10463  ax-pre-lttri 10464  ax-pre-lttrn 10465  ax-pre-ltadd 10466  ax-pre-mulgt0 10467  ax-pre-sup 10468

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1528  df-ex 1766  df-nf 1770  df-sb 2045  df-mo 2578  df-eu 2614  df-clab 2778  df-cleq 2790  df-clel 2865  df-nfc 2937  df-ne 2987  df-nel 3093  df-ral 3112  df-rex 3113  df-reu 3114  df-rmo 3115  df-rab 3116  df-v 3442  df-sbc 3712  df-csb 3818  df-dif 3868  df-un 3870  df-in 3872  df-ss 3880  df-nul 4218  df-if 4388  df-pw 4461  df-sn 4479  df-pr 4481  df-op 4485  df-uni 4752  df-br 4969  df-opab 5031  df-mpt 5048  df-id 5355  df-po 5369  df-so 5370  df-xp 5456  df-rel 5457  df-cnv 5458  df-co 5459  df-dm 5460  df-rn 5461  df-res 5462  df-ima 5463  df-iota 6196  df-fun 6234  df-fn 6235  df-f 6236  df-f1 6237  df-fo 6238  df-f1o 6239  df-fv 6240  df-riota 6984  df-ov 7026  df-oprab 7027  df-mpo 7028  df-er 8146  df-en 8365  df-dom 8366  df-sdom 8367  df-sup 8759  df-inf 8760  df-pnf 10530  df-mnf 10531  df-xr 10532  df-ltxr 10533  df-le 10534  df-sub 10725  df-neg 10726

This theorem is referenced by:  infxrpnf2  41302