Theorem xrmaxleim 11721

Description: Value of maximum when we know which extended real is larger. (Contributed by Jim Kingdon, 25-Apr-2023.)

Assertion

Ref	Expression
xrmaxleim	⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐴 ≤ 𝐵 → sup({𝐴, 𝐵}, ℝ*, < ) = 𝐵))

Proof of Theorem xrmaxleim

Dummy variables 𝑓 𝑔 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xrlttri3 9961	. . . 4 ⊢ ((𝑓 ∈ ℝ* ∧ 𝑔 ∈ ℝ*) → (𝑓 = 𝑔 ↔ (¬ 𝑓 < 𝑔 ∧ ¬ 𝑔 < 𝑓)))
2	1	adantl 277	. . 3 ⊢ ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ (𝑓 ∈ ℝ* ∧ 𝑔 ∈ ℝ*)) → (𝑓 = 𝑔 ↔ (¬ 𝑓 < 𝑔 ∧ ¬ 𝑔 < 𝑓)))
3		simplr 528	. . 3 ⊢ (((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → 𝐵 ∈ ℝ*)
4		prid2g 3751	. . . 4 ⊢ (𝐵 ∈ ℝ* → 𝐵 ∈ {𝐴, 𝐵})
5	3, 4	syl 14	. . 3 ⊢ (((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → 𝐵 ∈ {𝐴, 𝐵})
6		simpllr 534	. . . . . 6 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → 𝐴 ≤ 𝐵)
7		xrlenlt 8179	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐴 ≤ 𝐵 ↔ ¬ 𝐵 < 𝐴))
8	7	ad3antrrr 492	. . . . . 6 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → (𝐴 ≤ 𝐵 ↔ ¬ 𝐵 < 𝐴))
9	6, 8	mpbid 147	. . . . 5 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → ¬ 𝐵 < 𝐴)
10		breq2 4066	. . . . . . 7 ⊢ (𝑦 = 𝐴 → (𝐵 < 𝑦 ↔ 𝐵 < 𝐴))
11	10	notbid 671	. . . . . 6 ⊢ (𝑦 = 𝐴 → (¬ 𝐵 < 𝑦 ↔ ¬ 𝐵 < 𝐴))
12	11	adantl 277	. . . . 5 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → (¬ 𝐵 < 𝑦 ↔ ¬ 𝐵 < 𝐴))
13	9, 12	mpbird 167	. . . 4 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → ¬ 𝐵 < 𝑦)
14		xrltnr 9943	. . . . . 6 ⊢ (𝐵 ∈ ℝ* → ¬ 𝐵 < 𝐵)
15	14	ad4antlr 495	. . . . 5 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → ¬ 𝐵 < 𝐵)
16		breq2 4066	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (𝐵 < 𝑦 ↔ 𝐵 < 𝐵))
17	16	notbid 671	. . . . . 6 ⊢ (𝑦 = 𝐵 → (¬ 𝐵 < 𝑦 ↔ ¬ 𝐵 < 𝐵))
18	17	adantl 277	. . . . 5 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → (¬ 𝐵 < 𝑦 ↔ ¬ 𝐵 < 𝐵))
19	15, 18	mpbird 167	. . . 4 ⊢ (((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → ¬ 𝐵 < 𝑦)
20		elpri 3669	. . . . 5 ⊢ (𝑦 ∈ {𝐴, 𝐵} → (𝑦 = 𝐴 ∨ 𝑦 = 𝐵))
21	20	adantl 277	. . . 4 ⊢ ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) → (𝑦 = 𝐴 ∨ 𝑦 = 𝐵))
22	13, 19, 21	mpjaodan 802	. . 3 ⊢ ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) ∧ 𝑦 ∈ {𝐴, 𝐵}) → ¬ 𝐵 < 𝑦)
23	2, 3, 5, 22	supmaxti 7139	. 2 ⊢ (((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → sup({𝐴, 𝐵}, ℝ*, < ) = 𝐵)
24	23	ex 115	1 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐴 ≤ 𝐵 → sup({𝐴, 𝐵}, ℝ*, < ) = 𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 712   = wceq 1375   ∈ wcel 2180  {cpr 3647   class class class wbr 4062  supcsup 7117  ℝ^*cxr 8148   < clt 8149   ≤ cle 8150

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 617  ax-in2 618  ax-io 713  ax-5 1473  ax-7 1474  ax-gen 1475  ax-ie1 1519  ax-ie2 1520  ax-8 1530  ax-10 1531  ax-11 1532  ax-i12 1533  ax-bndl 1535  ax-4 1536  ax-17 1552  ax-i9 1556  ax-ial 1560  ax-i5r 1561  ax-13 2182  ax-14 2183  ax-ext 2191  ax-sep 4181  ax-pow 4237  ax-pr 4272  ax-un 4501  ax-setind 4606  ax-cnex 8058  ax-resscn 8059  ax-pre-ltirr 8079  ax-pre-apti 8082

This theorem depends on definitions:  df-bi 117  df-3or 984  df-3an 985  df-tru 1378  df-fal 1381  df-nf 1487  df-sb 1789  df-eu 2060  df-mo 2061  df-clab 2196  df-cleq 2202  df-clel 2205  df-nfc 2341  df-ne 2381  df-nel 2476  df-ral 2493  df-rex 2494  df-reu 2495  df-rmo 2496  df-rab 2497  df-v 2781  df-sbc 3009  df-dif 3179  df-un 3181  df-in 3183  df-ss 3190  df-pw 3631  df-sn 3652  df-pr 3653  df-op 3655  df-uni 3868  df-br 4063  df-opab 4125  df-xp 4702  df-cnv 4704  df-iota 5254  df-riota 5927  df-sup 7119  df-pnf 8151  df-mnf 8152  df-xr 8153  df-ltxr 8154  df-le 8155

This theorem is referenced by:  xrmaxltsup  11735  xrmaxadd  11738  xrmineqinf  11746