Theorem upbdrech2 44971

Description: Choice of an upper bound for a possibly empty bunded set (image set version). (Contributed by Glauco Siliprandi, 11-Dec-2019.)

Hypotheses

Ref	Expression
upbdrech2.b	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℝ)
upbdrech2.bd	⊢ (𝜑 → ∃𝑦 ∈ ℝ ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝑦)
upbdrech2.c	⊢ 𝐶 = if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ))

Assertion

Ref	Expression
upbdrech2	⊢ (𝜑 → (𝐶 ∈ ℝ ∧ ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶))

Distinct variable groups:   𝑥,𝐴,𝑦,𝑧   𝑦,𝐵,𝑧   𝜑,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑧)   𝐵(𝑥)   𝐶(𝑥,𝑦,𝑧)

Proof of Theorem upbdrech2

Step	Hyp	Ref	Expression
1		upbdrech2.c	. . 3 ⊢ 𝐶 = if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ))
2		iftrue 4539	. . . . . 6 ⊢ (𝐴 = ∅ → if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )) = 0)
3		0red 11271	. . . . . 6 ⊢ (𝐴 = ∅ → 0 ∈ ℝ)
4	2, 3	eqeltrd 2829	. . . . 5 ⊢ (𝐴 = ∅ → if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )) ∈ ℝ)
5	4	adantl 480	. . . 4 ⊢ ((𝜑 ∧ 𝐴 = ∅) → if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )) ∈ ℝ)
6		simpr 483	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → ¬ 𝐴 = ∅)
7	6	iffalsed 4544	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )) = sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ))
8	6	neqned 2940	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ≠ ∅)
9		upbdrech2.b	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℝ)
10	9	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ ¬ 𝐴 = ∅) ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℝ)
11		upbdrech2.bd	. . . . . . . 8 ⊢ (𝜑 → ∃𝑦 ∈ ℝ ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝑦)
12	11	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → ∃𝑦 ∈ ℝ ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝑦)
13		eqid 2729	. . . . . . 7 ⊢ sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ) = sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )
14	8, 10, 12, 13	upbdrech 44968	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → (sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ) ∈ ℝ ∧ ∀𝑥 ∈ 𝐴 𝐵 ≤ sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )))
15	14	simpld 493	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ) ∈ ℝ)
16	7, 15	eqeltrd 2829	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )) ∈ ℝ)
17	5, 16	pm2.61dan 811	. . 3 ⊢ (𝜑 → if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )) ∈ ℝ)
18	1, 17	eqeltrid 2833	. 2 ⊢ (𝜑 → 𝐶 ∈ ℝ)
19		rzal 4513	. . . 4 ⊢ (𝐴 = ∅ → ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶)
20	19	adantl 480	. . 3 ⊢ ((𝜑 ∧ 𝐴 = ∅) → ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶)
21	14	simprd 494	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → ∀𝑥 ∈ 𝐴 𝐵 ≤ sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ))
22		iffalse 4542	. . . . . . . 8 ⊢ (¬ 𝐴 = ∅ → if(𝐴 = ∅, 0, sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )) = sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ))
23	1, 22	eqtrid 2781	. . . . . . 7 ⊢ (¬ 𝐴 = ∅ → 𝐶 = sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < ))
24	23	breq2d 5165	. . . . . 6 ⊢ (¬ 𝐴 = ∅ → (𝐵 ≤ 𝐶 ↔ 𝐵 ≤ sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )))
25	24	ralbidv 3171	. . . . 5 ⊢ (¬ 𝐴 = ∅ → (∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶 ↔ ∀𝑥 ∈ 𝐴 𝐵 ≤ sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )))
26	25	adantl 480	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → (∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶 ↔ ∀𝑥 ∈ 𝐴 𝐵 ≤ sup({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = 𝐵}, ℝ, < )))
27	21, 26	mpbird 256	. . 3 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶)
28	20, 27	pm2.61dan 811	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶)
29	18, 28	jca 510	1 ⊢ (𝜑 → (𝐶 ∈ ℝ ∧ ∀𝑥 ∈ 𝐴 𝐵 ≤ 𝐶))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 394   = wceq 1534   ∈ wcel 2100  {cab 2706  ∀wral 3054  ∃wrex 3063  ∅c0 4332  ifcif 4533   class class class wbr 5153  supcsup 9487  ℝcr 11161  0cc0 11162   < clt 11302   ≤ cle 11303

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2102  ax-9 2110  ax-10 2133  ax-11 2150  ax-12 2170  ax-ext 2700  ax-sep 5304  ax-nul 5311  ax-pow 5370  ax-pr 5434  ax-un 7746  ax-resscn 11219  ax-1cn 11220  ax-icn 11221  ax-addcl 11222  ax-addrcl 11223  ax-mulcl 11224  ax-mulrcl 11225  ax-mulcom 11226  ax-addass 11227  ax-mulass 11228  ax-distr 11229  ax-i2m1 11230  ax-1ne0 11231  ax-1rid 11232  ax-rnegex 11233  ax-rrecex 11234  ax-cnre 11235  ax-pre-lttri 11236  ax-pre-lttrn 11237  ax-pre-ltadd 11238  ax-pre-mulgt0 11239  ax-pre-sup 11240

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2062  df-mo 2532  df-eu 2561  df-clab 2707  df-cleq 2721  df-clel 2806  df-nfc 2881  df-ne 2934  df-nel 3040  df-ral 3055  df-rex 3064  df-rmo 3372  df-reu 3373  df-rab 3428  df-v 3473  df-sbc 3786  df-csb 3902  df-dif 3959  df-un 3961  df-in 3963  df-ss 3973  df-nul 4333  df-if 4534  df-pw 4609  df-sn 4634  df-pr 4636  df-op 4640  df-uni 4916  df-br 5154  df-opab 5216  df-mpt 5237  df-id 5581  df-po 5595  df-so 5596  df-xp 5689  df-rel 5690  df-cnv 5691  df-co 5692  df-dm 5693  df-rn 5694  df-res 5695  df-ima 5696  df-iota 6507  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7381  df-ov 7428  df-oprab 7429  df-mpo 7430  df-er 8737  df-en 8978  df-dom 8979  df-sdom 8980  df-sup 9489  df-pnf 11304  df-mnf 11305  df-xr 11306  df-ltxr 11307  df-le 11308  df-sub 11500  df-neg 11501

This theorem is referenced by:  ssfiunibd  44972