Theorem minclpr 11164

Description: The minimum of two real numbers is one of those numbers if and only if dichotomy ( A <_ B \/ B <_ A) holds. For example, this can be combined with zletric 9226 if one is dealing with integers, but real number dichotomy in general does not follow from our axioms. (Contributed by Jim Kingdon, 23-May-2023.)

Assertion

Ref	Expression
minclpr	|- ( ( A e. RR /\ B e. RR ) -> (inf ( { A , B } , RR , < ) e. { A , B } <-> ( A <_ B \/ B <_ A ) ) )

Proof of Theorem minclpr

Step	Hyp	Ref	Expression
1		renegcl 8150	. . . . 5 |- ( A e. RR -> -u A e. RR )
2		renegcl 8150	. . . . 5 |- ( B e. RR -> -u B e. RR )
3		maxcl 11138	. . . . 5 |- ( ( -u A e. RR /\ -u B e. RR ) -> sup ( { -u A , -u B } , RR , < ) e. RR )
4	1, 2, 3	syl2an 287	. . . 4 |- ( ( A e. RR /\ B e. RR ) -> sup ( { -u A , -u B } , RR , < ) e. RR )
5		elprg 3590	. . . 4 |- ( sup ( { -u A , -u B } , RR , < ) e. RR -> ( sup ( { -u A , -u B } , RR , < ) e. { -u A , -u B } <-> ( sup ( { -u A , -u B } , RR , < ) = -u A \/ sup ( { -u A , -u B } , RR , < ) = -u B ) ) )
6	4, 5	syl 14	. . 3 |- ( ( A e. RR /\ B e. RR ) -> ( sup ( { -u A , -u B } , RR , < ) e. { -u A , -u B } <-> ( sup ( { -u A , -u B } , RR , < ) = -u A \/ sup ( { -u A , -u B } , RR , < ) = -u B ) ) )
7		maxclpr 11150	. . . 4 |- ( ( -u A e. RR /\ -u B e. RR ) -> ( sup ( { -u A , -u B } , RR , < ) e. { -u A , -u B } <-> ( -u A <_ -u B \/ -u B <_ -u A ) ) )
8	1, 2, 7	syl2an 287	. . 3 |- ( ( A e. RR /\ B e. RR ) -> ( sup ( { -u A , -u B } , RR , < ) e. { -u A , -u B } <-> ( -u A <_ -u B \/ -u B <_ -u A ) ) )
9	4	recnd 7918	. . . . . 6 |- ( ( A e. RR /\ B e. RR ) -> sup ( { -u A , -u B } , RR , < ) e. CC )
10	1	adantr 274	. . . . . . 7 |- ( ( A e. RR /\ B e. RR ) -> -u A e. RR )
11	10	recnd 7918	. . . . . 6 |- ( ( A e. RR /\ B e. RR ) -> -u A e. CC )
12	9, 11	neg11ad 8196	. . . . 5 |- ( ( A e. RR /\ B e. RR ) -> ( -u sup ( { -u A , -u B } , RR , < ) = -u -u A <-> sup ( { -u A , -u B } , RR , < ) = -u A ) )
13		minmax 11157	. . . . . . 7 |- ( ( A e. RR /\ B e. RR ) -> inf ( { A , B } , RR , < ) = -u sup ( { -u A , -u B } , RR , < ) )
14	13	eqcomd 2170	. . . . . 6 |- ( ( A e. RR /\ B e. RR ) -> -u sup ( { -u A , -u B } , RR , < ) = inf ( { A , B } , RR , < ) )
15		recn 7877	. . . . . . . 8 |- ( A e. RR -> A e. CC )
16	15	adantr 274	. . . . . . 7 |- ( ( A e. RR /\ B e. RR ) -> A e. CC )
17	16	negnegd 8191	. . . . . 6 |- ( ( A e. RR /\ B e. RR ) -> -u -u A = A )
18	14, 17	eqeq12d 2179	. . . . 5 |- ( ( A e. RR /\ B e. RR ) -> ( -u sup ( { -u A , -u B } , RR , < ) = -u -u A <-> inf ( { A , B } , RR , < ) = A ) )
19	12, 18	bitr3d 189	. . . 4 |- ( ( A e. RR /\ B e. RR ) -> ( sup ( { -u A , -u B } , RR , < ) = -u A <-> inf ( { A , B } , RR , < ) = A ) )
20	2	adantl 275	. . . . . . 7 |- ( ( A e. RR /\ B e. RR ) -> -u B e. RR )
21	20	recnd 7918	. . . . . 6 |- ( ( A e. RR /\ B e. RR ) -> -u B e. CC )
22	9, 21	neg11ad 8196	. . . . 5 |- ( ( A e. RR /\ B e. RR ) -> ( -u sup ( { -u A , -u B } , RR , < ) = -u -u B <-> sup ( { -u A , -u B } , RR , < ) = -u B ) )
23		recn 7877	. . . . . . . 8 |- ( B e. RR -> B e. CC )
24	23	adantl 275	. . . . . . 7 |- ( ( A e. RR /\ B e. RR ) -> B e. CC )
25	24	negnegd 8191	. . . . . 6 |- ( ( A e. RR /\ B e. RR ) -> -u -u B = B )
26	14, 25	eqeq12d 2179	. . . . 5 |- ( ( A e. RR /\ B e. RR ) -> ( -u sup ( { -u A , -u B } , RR , < ) = -u -u B <-> inf ( { A , B } , RR , < ) = B ) )
27	22, 26	bitr3d 189	. . . 4 |- ( ( A e. RR /\ B e. RR ) -> ( sup ( { -u A , -u B } , RR , < ) = -u B <-> inf ( { A , B } , RR , < ) = B ) )
28	19, 27	orbi12d 783	. . 3 |- ( ( A e. RR /\ B e. RR ) -> ( ( sup ( { -u A , -u B } , RR , < ) = -u A \/ sup ( { -u A , -u B } , RR , < ) = -u B ) <-> (inf ( { A , B } , RR , < ) = A \/ inf ( { A , B } , RR , < ) = B ) ) )
29	6, 8, 28	3bitr3rd 218	. 2 |- ( ( A e. RR /\ B e. RR ) -> ( (inf ( { A , B } , RR , < ) = A \/ inf ( { A , B } , RR , < ) = B ) <-> ( -u A <_ -u B \/ -u B <_ -u A ) ) )
30		mincl 11158	. . 3 |- ( ( A e. RR /\ B e. RR ) -> inf ( { A , B } , RR , < ) e. RR )
31		elprg 3590	. . 3 |- (inf ( { A , B } , RR , < ) e. RR -> (inf ( { A , B } , RR , < ) e. { A , B } <-> (inf ( { A , B } , RR , < ) = A \/ inf ( { A , B } , RR , < ) = B ) ) )
32	30, 31	syl 14	. 2 |- ( ( A e. RR /\ B e. RR ) -> (inf ( { A , B } , RR , < ) e. { A , B } <-> (inf ( { A , B } , RR , < ) = A \/ inf ( { A , B } , RR , < ) = B ) ) )
33		orcom 718	. . 3 |- ( ( B <_ A \/ A <_ B ) <-> ( A <_ B \/ B <_ A ) )
34		simpr 109	. . . . 5 |- ( ( A e. RR /\ B e. RR ) -> B e. RR )
35		simpl 108	. . . . 5 |- ( ( A e. RR /\ B e. RR ) -> A e. RR )
36	34, 35	lenegd 8413	. . . 4 |- ( ( A e. RR /\ B e. RR ) -> ( B <_ A <-> -u A <_ -u B ) )
37		leneg 8354	. . . 4 |- ( ( A e. RR /\ B e. RR ) -> ( A <_ B <-> -u B <_ -u A ) )
38	36, 37	orbi12d 783	. . 3 |- ( ( A e. RR /\ B e. RR ) -> ( ( B <_ A \/ A <_ B ) <-> ( -u A <_ -u B \/ -u B <_ -u A ) ) )
39	33, 38	bitr3id 193	. 2 |- ( ( A e. RR /\ B e. RR ) -> ( ( A <_ B \/ B <_ A ) <-> ( -u A <_ -u B \/ -u B <_ -u A ) ) )
40	29, 32, 39	3bitr4d 219	1 |- ( ( A e. RR /\ B e. RR ) -> (inf ( { A , B } , RR , < ) e. { A , B } <-> ( A <_ B \/ B <_ A ) ) )

Syntax hints:   -> wi 4   /\ wa 103   <-> wb 104   \/ wo 698   = wceq 1342   e. wcel 2135   {cpr 3571   class class class wbr 3976   supcsup 6938  infcinf 6939   CCcc 7742   RRcr 7743   < clt 7924   <_ cle 7925   -ucneg 8061

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1434  ax-7 1435  ax-gen 1436  ax-ie1 1480  ax-ie2 1481  ax-8 1491  ax-10 1492  ax-11 1493  ax-i12 1494  ax-bndl 1496  ax-4 1497  ax-17 1513  ax-i9 1517  ax-ial 1521  ax-i5r 1522  ax-13 2137  ax-14 2138  ax-ext 2146  ax-coll 4091  ax-sep 4094  ax-nul 4102  ax-pow 4147  ax-pr 4181  ax-un 4405  ax-setind 4508  ax-iinf 4559  ax-cnex 7835  ax-resscn 7836  ax-1cn 7837  ax-1re 7838  ax-icn 7839  ax-addcl 7840  ax-addrcl 7841  ax-mulcl 7842  ax-mulrcl 7843  ax-addcom 7844  ax-mulcom 7845  ax-addass 7846  ax-mulass 7847  ax-distr 7848  ax-i2m1 7849  ax-0lt1 7850  ax-1rid 7851  ax-0id 7852  ax-rnegex 7853  ax-precex 7854  ax-cnre 7855  ax-pre-ltirr 7856  ax-pre-ltwlin 7857  ax-pre-lttrn 7858  ax-pre-apti 7859  ax-pre-ltadd 7860  ax-pre-mulgt0 7861  ax-pre-mulext 7862  ax-arch 7863  ax-caucvg 7864

This theorem depends on definitions:  df-bi 116  df-dc 825  df-3or 968  df-3an 969  df-tru 1345  df-fal 1348  df-nf 1448  df-sb 1750  df-eu 2016  df-mo 2017  df-clab 2151  df-cleq 2157  df-clel 2160  df-nfc 2295  df-ne 2335  df-nel 2430  df-ral 2447  df-rex 2448  df-reu 2449  df-rmo 2450  df-rab 2451  df-v 2723  df-sbc 2947  df-csb 3041  df-dif 3113  df-un 3115  df-in 3117  df-ss 3124  df-nul 3405  df-if 3516  df-pw 3555  df-sn 3576  df-pr 3577  df-op 3579  df-uni 3784  df-int 3819  df-iun 3862  df-br 3977  df-opab 4038  df-mpt 4039  df-tr 4075  df-id 4265  df-po 4268  df-iso 4269  df-iord 4338  df-on 4340  df-ilim 4341  df-suc 4343  df-iom 4562  df-xp 4604  df-rel 4605  df-cnv 4606  df-co 4607  df-dm 4608  df-rn 4609  df-res 4610  df-ima 4611  df-iota 5147  df-fun 5184  df-fn 5185  df-f 5186  df-f1 5187  df-fo 5188  df-f1o 5189  df-fv 5190  df-isom 5191  df-riota 5792  df-ov 5839  df-oprab 5840  df-mpo 5841  df-1st 6100  df-2nd 6101  df-recs 6264  df-frec 6350  df-sup 6940  df-inf 6941  df-pnf 7926  df-mnf 7927  df-xr 7928  df-ltxr 7929  df-le 7930  df-sub 8062  df-neg 8063  df-reap 8464  df-ap 8471  df-div 8560  df-inn 8849  df-2 8907  df-3 8908  df-4 8909  df-n0 9106  df-z 9183  df-uz 9458  df-rp 9581  df-seqfrec 10371  df-exp 10445  df-cj 10770  df-re 10771  df-im 10772  df-rsqrt 10926  df-abs 10927

This theorem is referenced by:  qtopbas  13063