:: Basic Properties of Extended Real Numbers
:: by Andrzej Trybulec, Yatsuka Nakamura, Artur Korni{\l}owicz and
::
:: Received January 22, 2007
:: Copyright (c) 2007-2011 Association of Mizar Users

begin

scheme :: XXREAL_1:sch 1
Conti{ P₁[ set ], P₂[ set ] } :

ex s being ext-real number st
( ( for r being ext-real number st P₁[r] holds
r <= s ) & ( for r being ext-real number st P₂[r] holds
s <= r ) )

provided

A1: for r, s being ext-real number st P₁[r] & P₂[s] holds
r <= s

proof end;

begin

definition

let r, s be ext-real number ;
func [.r,s.] -> set equals :: XXREAL_1:def 1
{ a where a is Element of ExtREAL : ( r <= a & a <= s ) } ;
correctness
coherence
{ a where a is Element of ExtREAL : ( r <= a & a <= s ) } is set ;
;
func [.r,s.[ -> set equals :: XXREAL_1:def 2
{ a where a is Element of ExtREAL : ( r <= a & a < s ) } ;
correctness
coherence
{ a where a is Element of ExtREAL : ( r <= a & a < s ) } is set ;
;
func ].r,s.] -> set equals :: XXREAL_1:def 3
{ a where a is Element of ExtREAL : ( r < a & a <= s ) } ;
correctness
coherence
{ a where a is Element of ExtREAL : ( r < a & a <= s ) } is set ;
;
func ].r,s.[ -> set equals :: XXREAL_1:def 4
{ a where a is Element of ExtREAL : ( r < a & a < s ) } ;
correctness
coherence
{ a where a is Element of ExtREAL : ( r < a & a < s ) } is set ;
;

end;

:: deftheorem defines [. XXREAL_1:def 1 :
for r, s being ext-real number holds [.r,s.] = { a where a is Element of ExtREAL : ( r <= a & a <= s ) } ;

:: deftheorem defines [. XXREAL_1:def 2 :
for r, s being ext-real number holds [.r,s.[ = { a where a is Element of ExtREAL : ( r <= a & a < s ) } ;

:: deftheorem defines ]. XXREAL_1:def 3 :
for r, s being ext-real number holds ].r,s.] = { a where a is Element of ExtREAL : ( r < a & a <= s ) } ;

:: deftheorem defines ]. XXREAL_1:def 4 :
for r, s being ext-real number holds ].r,s.[ = { a where a is Element of ExtREAL : ( r < a & a < s ) } ;

theorem Th1: :: XXREAL_1:1

for t, r, s being ext-real number holds
( t in [.r,s.] iff ( r <= t & t <= s ) )

proof end;

theorem Th2: :: XXREAL_1:2

for t, r, s being ext-real number holds
( t in ].r,s.] iff ( r < t & t <= s ) )

proof end;

theorem Th3: :: XXREAL_1:3

for t, r, s being ext-real number holds
( t in [.r,s.[ iff ( r <= t & t < s ) )

proof end;

theorem Th4: :: XXREAL_1:4

for t, r, s being ext-real number holds
( t in ].r,s.[ iff ( r < t & t < s ) )

proof end;

registration

let r, s be ext-real number ;
cluster [.r,s.] -> ext-real-membered ;
coherence
[.r,s.] is ext-real-membered

proof end;

cluster [.r,s.[ -> ext-real-membered ;
coherence
[.r,s.[ is ext-real-membered

proof end;

cluster ].r,s.] -> ext-real-membered ;
coherence
].r,s.] is ext-real-membered

proof end;

cluster ].r,s.[ -> ext-real-membered ;
coherence
].r,s.[ is ext-real-membered

proof end;

end;

theorem Th5: :: XXREAL_1:5

for x being set
for p, q being ext-real number holds
( not x in [.p,q.] or x in ].p,q.[ or x = p or x = q )

proof end;

theorem Th6: :: XXREAL_1:6

for x being set
for p, q being ext-real number holds
( not x in [.p,q.] or x in ].p,q.] or x = p )

proof end;

theorem Th7: :: XXREAL_1:7

for x being set
for p, q being ext-real number holds
( not x in [.p,q.] or x in [.p,q.[ or x = q )

proof end;

theorem Th8: :: XXREAL_1:8

for x being set
for p, q being ext-real number holds
( not x in [.p,q.[ or x in ].p,q.[ or x = p )

proof end;

theorem Th9: :: XXREAL_1:9

for x being set
for p, q being ext-real number holds
( not x in ].p,q.] or x in ].p,q.[ or x = q )

proof end;

theorem :: XXREAL_1:10

for x being set
for p, q being ext-real number holds
( not x in [.p,q.[ or ( x in ].p,q.] & x <> q ) or x = p )

proof end;

theorem :: XXREAL_1:11

for x being set
for p, q being ext-real number holds
( not x in ].p,q.] or ( x in [.p,q.[ & x <> p ) or x = q )

proof end;

theorem Th12: :: XXREAL_1:12

for x being set
for p, q being ext-real number st x in ].p,q.] holds
( x in [.p,q.] & x <> p )

proof end;

theorem Th13: :: XXREAL_1:13

for x being set
for p, q being ext-real number st x in [.p,q.[ holds
( x in [.p,q.] & x <> q )

proof end;

theorem Th14: :: XXREAL_1:14

for x being set
for p, q being ext-real number st x in ].p,q.[ holds
( x in [.p,q.[ & x <> p )

proof end;

theorem Th15: :: XXREAL_1:15

for x being set
for p, q being ext-real number st x in ].p,q.[ holds
( x in ].p,q.] & x <> q )

proof end;

theorem Th16: :: XXREAL_1:16

for x being set
for p, q being ext-real number st x in ].p,q.[ holds
( x in [.p,q.] & x <> p & x <> q )

proof end;

theorem Th17: :: XXREAL_1:17

for r being ext-real number holds [.r,r.] = {r}

proof end;

theorem Th18: :: XXREAL_1:18

for r being ext-real number holds [.r,r.[ = {}

proof end;

theorem Th19: :: XXREAL_1:19

for r being ext-real number holds ].r,r.] = {}

proof end;

theorem Th20: :: XXREAL_1:20

for r being ext-real number holds ].r,r.[ = {}

proof end;

registration

let r be ext-real number ;
cluster [.r,r.] -> non empty ;
coherence
not [.r,r.] is empty

proof end;

cluster [.r,r.[ -> empty ;
coherence
[.r,r.[ is empty by Th18;
cluster ].r,r.] -> empty ;
coherence
].r,r.] is empty by Th19;
cluster ].r,r.[ -> empty ;
coherence
].r,r.[ is empty by Th20;

end;

theorem Th21: :: XXREAL_1:21

for p, q being ext-real number holds ].p,q.[ c= ].p,q.]

proof end;

theorem Th22: :: XXREAL_1:22

for p, q being ext-real number holds ].p,q.[ c= [.p,q.[

proof end;

theorem Th23: :: XXREAL_1:23

for p, q being ext-real number holds ].p,q.] c= [.p,q.]

proof end;

theorem Th24: :: XXREAL_1:24

for p, q being ext-real number holds [.p,q.[ c= [.p,q.]

proof end;

theorem Th25: :: XXREAL_1:25

for p, q being ext-real number holds ].p,q.[ c= [.p,q.]

proof end;

theorem :: XXREAL_1:26

for p, q being ext-real number st p <= q holds
].q,p.] = {}

proof end;

theorem Th27: :: XXREAL_1:27

for p, q being ext-real number st p <= q holds
[.q,p.[ = {}

proof end;

theorem Th28: :: XXREAL_1:28

for p, q being ext-real number st p <= q holds
].q,p.[ = {}

proof end;

theorem Th29: :: XXREAL_1:29

for p, q being ext-real number st p < q holds
[.q,p.] = {}

proof end;

theorem :: XXREAL_1:30

for r, s being ext-real number st r <= s holds
not [.r,s.] is empty by Th1;

theorem :: XXREAL_1:31

for p, q being ext-real number st p < q holds
not [.p,q.[ is empty by Th3;

theorem :: XXREAL_1:32

for p, q being ext-real number st p < q holds
not ].p,q.] is empty by Th2;

theorem :: XXREAL_1:33

for p, q being ext-real number st p < q holds
not ].p,q.[ is empty

proof end;

theorem Th34: :: XXREAL_1:34

for p, r, s, q being ext-real number st p <= r & s <= q holds
[.r,s.] c= [.p,q.]

proof end;

theorem Th35: :: XXREAL_1:35

for p, r, s, q being ext-real number st p <= r & s <= q holds
[.r,s.[ c= [.p,q.]

proof end;

theorem Th36: :: XXREAL_1:36

for p, r, s, q being ext-real number st p <= r & s <= q holds
].r,s.] c= [.p,q.]

proof end;

theorem Th37: :: XXREAL_1:37

for p, r, s, q being ext-real number st p <= r & s <= q holds
].r,s.[ c= [.p,q.]

proof end;

theorem Th38: :: XXREAL_1:38

for p, r, s, q being ext-real number st p <= r & s <= q holds
[.r,s.[ c= [.p,q.[

proof end;

theorem Th39: :: XXREAL_1:39

for p, r, s, q being ext-real number st p < r & s <= q holds
[.r,s.] c= ].p,q.]

proof end;

theorem Th40: :: XXREAL_1:40

for p, r, s, q being ext-real number st p < r & s <= q holds
[.r,s.[ c= ].p,q.]

proof end;

theorem Th41: :: XXREAL_1:41

for p, r, s, q being ext-real number st p <= r & s <= q holds
].r,s.[ c= ].p,q.]

proof end;

theorem Th42: :: XXREAL_1:42

for p, r, s, q being ext-real number st p <= r & s <= q holds
].r,s.] c= ].p,q.]

proof end;

theorem Th43: :: XXREAL_1:43

for p, r, s, q being ext-real number st p <= r & s < q holds
[.r,s.] c= [.p,q.[

proof end;

theorem Th44: :: XXREAL_1:44

for p, r, s, q being ext-real number st p <= r & s < q holds
].r,s.] c= [.p,q.[

proof end;

theorem Th45: :: XXREAL_1:45

for p, r, s, q being ext-real number st p <= r & s <= q holds
].r,s.[ c= [.p,q.[

proof end;

theorem Th46: :: XXREAL_1:46

for p, r, s, q being ext-real number st p <= r & s <= q holds
].r,s.[ c= ].p,q.[

proof end;

theorem Th47: :: XXREAL_1:47

for p, r, s, q being ext-real number st p < r & s < q holds
[.r,s.] c= ].p,q.[

proof end;

theorem Th48: :: XXREAL_1:48

for p, r, s, q being ext-real number st p < r & s <= q holds
[.r,s.[ c= ].p,q.[

proof end;

theorem Th49: :: XXREAL_1:49

for p, r, s, q being ext-real number st p <= r & s < q holds
].r,s.] c= ].p,q.[

proof end;

theorem Th50: :: XXREAL_1:50

for r, s, p, q being ext-real number st r <= s & [.r,s.] c= [.p,q.] holds
( p <= r & s <= q )

proof end;

theorem Th51: :: XXREAL_1:51

for r, s, p, q being ext-real number st r < s & ].r,s.[ c= [.p,q.] holds
( p <= r & s <= q )

proof end;

theorem Th52: :: XXREAL_1:52

for r, s, p, q being ext-real number st r < s & [.r,s.[ c= [.p,q.] holds
( p <= r & s <= q )

proof end;

theorem Th53: :: XXREAL_1:53

for r, s, p, q being ext-real number st r < s & ].r,s.] c= [.p,q.] holds
( p <= r & s <= q )

proof end;

theorem Th54: :: XXREAL_1:54

for r, s, p, q being ext-real number st r <= s & [.r,s.] c= [.p,q.[ holds
( p <= r & s < q )

proof end;

theorem Th55: :: XXREAL_1:55

for r, s, p, q being ext-real number st r < s & [.r,s.[ c= [.p,q.[ holds
( p <= r & s <= q )

proof end;

theorem Th56: :: XXREAL_1:56

for r, s, p, q being ext-real number st r < s & ].r,s.[ c= [.p,q.[ holds
( p <= r & s <= q )

proof end;

theorem Th57: :: XXREAL_1:57

for r, s, p, q being ext-real number st r < s & ].r,s.] c= [.p,q.[ holds
( p <= r & s < q )

proof end;

theorem Th58: :: XXREAL_1:58

for r, s, p, q being ext-real number st r <= s & [.r,s.] c= ].p,q.] holds
( p < r & s <= q )

proof end;

theorem Th59: :: XXREAL_1:59

for r, s, p, q being ext-real number st r < s & ].r,s.[ c= ].p,q.] holds
( p <= r & s <= q )

proof end;

theorem Th60: :: XXREAL_1:60

for r, s, p, q being ext-real number st r < s & [.r,s.[ c= ].p,q.] holds
( p < r & s <= q )

proof end;

theorem Th61: :: XXREAL_1:61

for r, s, p, q being ext-real number st r < s & ].r,s.] c= ].p,q.] holds
( p <= r & s <= q )

proof end;

theorem Th62: :: XXREAL_1:62

for r, s, p, q being ext-real number st r <= s & [.r,s.] c= ].p,q.[ holds
( p < r & s < q )

proof end;

theorem Th63: :: XXREAL_1:63

for r, s, p, q being ext-real number st r < s & ].r,s.[ c= ].p,q.[ holds
( p <= r & s <= q )

proof end;

theorem Th64: :: XXREAL_1:64

for r, s, p, q being ext-real number st r < s & [.r,s.[ c= ].p,q.[ holds
( p < r & s <= q )

proof end;

theorem Th65: :: XXREAL_1:65

for r, s, p, q being ext-real number st r < s & ].r,s.] c= ].p,q.[ holds
( p <= r & s < q )

proof end;

theorem :: XXREAL_1:66

for p, q, r, s being ext-real number st p <= q & [.p,q.] = [.r,s.] holds
( p = r & q = s )

proof end;

theorem :: XXREAL_1:67

for p, q, r, s being ext-real number st p < q & ].p,q.[ = ].r,s.[ holds
( p = r & q = s )

proof end;

theorem :: XXREAL_1:68

for p, q, r, s being ext-real number st p < q & ].p,q.] = ].r,s.] holds
( p = r & q = s )

proof end;

theorem :: XXREAL_1:69

for p, q, r, s being ext-real number st p < q & [.p,q.[ = [.r,s.[ holds
( p = r & q = s )

proof end;

theorem :: XXREAL_1:70

for r, s, p, q being ext-real number st r <= s holds
[.r,s.] <> ].p,q.]

proof end;

theorem :: XXREAL_1:71

for r, s, p, q being ext-real number st r <= s holds
[.r,s.] <> [.p,q.[

proof end;

theorem :: XXREAL_1:72

for r, s, p, q being ext-real number st r <= s holds
[.r,s.] <> ].p,q.[

proof end;

theorem :: XXREAL_1:73

for r, s, p, q being ext-real number st r < s holds
[.r,s.[ <> [.p,q.]

proof end;

theorem :: XXREAL_1:74

for r, s, p, q being ext-real number st r < s holds
[.r,s.[ <> ].p,q.]

proof end;

theorem :: XXREAL_1:75

for r, s, p, q being ext-real number st r < s holds
[.r,s.[ <> ].p,q.[

proof end;

theorem :: XXREAL_1:76

for r, s, p, q being ext-real number st r < s holds
].r,s.] <> [.p,q.]

proof end;

theorem :: XXREAL_1:77

for r, s, p, q being ext-real number st r < s holds
].r,s.] <> [.p,q.[

proof end;

theorem :: XXREAL_1:78

for r, s, p, q being ext-real number st r < s holds
].r,s.] <> ].p,q.[

proof end;

theorem :: XXREAL_1:79

for r, s, p, q being ext-real number st r < s holds
].r,s.[ <> [.p,q.]

proof end;

theorem :: XXREAL_1:80

for r, s, p, q being ext-real number st r < s holds
].r,s.[ <> ].p,q.]

proof end;

theorem :: XXREAL_1:81

for r, s, p, q being ext-real number st r < s holds
].r,s.[ <> [.p,q.[

proof end;

theorem :: XXREAL_1:82

for r, s, p, q being ext-real number st r <= s & [.r,s.] c< [.p,q.] & not p < r holds
s < q

proof end;

theorem :: XXREAL_1:83

for r, s, p, q being ext-real number st r < s & ].r,s.[ c= [.p,q.] holds
[.r,s.] c= [.p,q.]

proof end;

theorem :: XXREAL_1:84

for r, s, p being ext-real number st r < s holds
[.s,p.[ c= ].r,p.[

proof end;

theorem Th85: :: XXREAL_1:85

for s, r being ext-real number st s <= r holds
( [.r,s.] c= {r} & [.r,s.] c= {s} )

proof end;

theorem :: XXREAL_1:86

for r, s being ext-real number holds ].r,s.[ misses {r,s}

proof end;

theorem :: XXREAL_1:87

for r, s being ext-real number holds [.r,s.[ misses {s}

proof end;

theorem :: XXREAL_1:88

for r, s being ext-real number holds ].r,s.] misses {r}

proof end;

theorem :: XXREAL_1:89

for s, p, r, q being ext-real number st s <= p holds
[.r,s.] misses ].p,q.[

proof end;

theorem :: XXREAL_1:90

for s, p, r, q being ext-real number st s <= p holds
[.r,s.] misses ].p,q.]

proof end;

theorem :: XXREAL_1:91

for s, p, r, q being ext-real number st s <= p holds
].r,s.] misses ].p,q.[

proof end;

theorem :: XXREAL_1:92

for s, p, r, q being ext-real number st s <= p holds
].r,s.] misses ].p,q.]

proof end;

theorem :: XXREAL_1:93

for s, p, r, q being ext-real number st s <= p holds
].r,s.[ misses [.p,q.]

proof end;

theorem :: XXREAL_1:94

for s, p, r, q being ext-real number st s <= p holds
].r,s.[ misses [.p,q.[

proof end;

theorem :: XXREAL_1:95

for s, p, r, q being ext-real number st s <= p holds
[.r,s.[ misses [.p,q.]

proof end;

theorem :: XXREAL_1:96

for s, p, r, q being ext-real number st s <= p holds
[.r,s.[ misses [.p,q.[

proof end;

theorem :: XXREAL_1:97

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.[ c= [.p,q.]

proof end;

theorem :: XXREAL_1:98

for r, p, s, q being ext-real number st r < p & r < s holds
not [.r,s.[ c= [.p,q.]

proof end;

theorem :: XXREAL_1:99

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.] c= [.p,q.]

proof end;

theorem :: XXREAL_1:100

for r, p, s, q being ext-real number st r < p & r <= s holds
not [.r,s.] c= [.p,q.]

proof end;

theorem :: XXREAL_1:101

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.[ c= [.p,q.[

proof end;

theorem :: XXREAL_1:102

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.] c= [.p,q.[

proof end;

theorem :: XXREAL_1:103

for r, p, s, q being ext-real number st r < p & r < s holds
not [.r,s.[ c= [.p,q.[

proof end;

theorem :: XXREAL_1:104

for r, p, s, q being ext-real number st r < p & r <= s holds
not [.r,s.] c= [.p,q.[

proof end;

theorem :: XXREAL_1:105

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.[ c= ].p,q.]

proof end;

theorem :: XXREAL_1:106

for r, p, s, q being ext-real number st r <= p & r < s holds
not [.r,s.[ c= ].p,q.]

proof end;

theorem :: XXREAL_1:107

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.] c= ].p,q.]

proof end;

theorem :: XXREAL_1:108

for r, p, s, q being ext-real number st r <= p & r <= s holds
not [.r,s.] c= ].p,q.]

proof end;

theorem :: XXREAL_1:109

for r, p, s, q being ext-real number st r <= p & r <= s holds
not [.r,s.] c= ].p,q.[

proof end;

theorem :: XXREAL_1:110

for r, p, s, q being ext-real number st r <= p & r < s holds
not [.r,s.[ c= ].p,q.[

proof end;

theorem :: XXREAL_1:111

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.] c= ].p,q.[

proof end;

theorem :: XXREAL_1:112

for r, p, s, q being ext-real number st r < p & r < s holds
not ].r,s.[ c= ].p,q.[

proof end;

theorem :: XXREAL_1:113

for q, s, r, p being ext-real number st q < s & r < s holds
not ].r,s.[ c= [.p,q.]

proof end;

theorem :: XXREAL_1:114

for q, s, r, p being ext-real number st q < s & r < s holds
not [.r,s.[ c= [.p,q.]

proof end;

theorem :: XXREAL_1:115

for q, s, r, p being ext-real number st q < s & r < s holds
not ].r,s.] c= [.p,q.]

proof end;

theorem :: XXREAL_1:116

for q, s, r, p being ext-real number st q < s & r <= s holds
not [.r,s.] c= [.p,q.]

proof end;

theorem :: XXREAL_1:117

for q, s, r, p being ext-real number st q < s & r < s holds
not ].r,s.[ c= [.p,q.[

proof end;

theorem :: XXREAL_1:118

for q, s, r, p being ext-real number st q <= s & r < s holds
not ].r,s.] c= [.p,q.[

proof end;

theorem :: XXREAL_1:119

for q, s, r, p being ext-real number st q < s & r < s holds
not [.r,s.[ c= [.p,q.[

proof end;

theorem :: XXREAL_1:120

for q, s, r, p being ext-real number st q < s & r < s holds
not ].r,s.[ c= ].p,q.]

proof end;

theorem :: XXREAL_1:121

for q, s, r, p being ext-real number st q < s & r <= s holds
not [.r,s.] c= ].p,q.]

proof end;

theorem :: XXREAL_1:122

for q, s, r, p being ext-real number st q < s & r < s holds
not [.r,s.[ c= ].p,q.]

proof end;

theorem :: XXREAL_1:123

for q, s, r, p being ext-real number st q < s & r < s holds
not ].r,s.] c= ].p,q.]

proof end;

theorem :: XXREAL_1:124

for q, s, r, p being ext-real number st q <= s & r <= s holds
not [.r,s.] c= ].p,q.[

proof end;

theorem :: XXREAL_1:125

for q, s, r, p being ext-real number st q < s & r < s holds
not [.r,s.[ c= ].p,q.[

proof end;

theorem :: XXREAL_1:126

for q, s, r, p being ext-real number st q <= s & r < s holds
not ].r,s.] c= ].p,q.[

proof end;

theorem :: XXREAL_1:127

for q, s, r, p being ext-real number st q < s & r < s holds
not ].r,s.[ c= ].p,q.[

proof end;

begin

theorem Th128: :: XXREAL_1:128

for r, s being ext-real number st r <= s holds
[.r,s.] = ].r,s.[ \/ {r,s}

proof end;

theorem Th129: :: XXREAL_1:129

for r, s being ext-real number st r <= s holds
[.r,s.] = [.r,s.[ \/ {s}

proof end;

theorem Th130: :: XXREAL_1:130

for r, s being ext-real number st r <= s holds
[.r,s.] = {r} \/ ].r,s.]

proof end;

theorem Th131: :: XXREAL_1:131

for r, s being ext-real number st r < s holds
[.r,s.[ = {r} \/ ].r,s.[

proof end;

theorem Th132: :: XXREAL_1:132

for r, s being ext-real number st r < s holds
].r,s.] = ].r,s.[ \/ {s}

proof end;

theorem :: XXREAL_1:133

for r, s being ext-real number st r <= s holds
[.r,s.] \ {r,s} = ].r,s.[

proof end;

theorem :: XXREAL_1:134

for r, s being ext-real number st r <= s holds
[.r,s.] \ {r} = ].r,s.]

proof end;

theorem :: XXREAL_1:135

for r, s being ext-real number st r <= s holds
[.r,s.] \ {s} = [.r,s.[

proof end;

theorem :: XXREAL_1:136

for r, s being ext-real number st r < s holds
[.r,s.[ \ {r} = ].r,s.[

proof end;

theorem :: XXREAL_1:137

for r, s being ext-real number st r < s holds
].r,s.] \ {s} = ].r,s.[

proof end;

theorem :: XXREAL_1:138

for r, s, t being ext-real number st r < s & s < t holds
].r,s.] /\ [.s,t.[ = {s}

proof end;

theorem :: XXREAL_1:139

for r, s, p, q being ext-real number holds [.r,s.[ /\ [.p,q.[ = [.(max (r,p)),(min (s,q)).[

proof end;

theorem :: XXREAL_1:140

for r, s, p, q being ext-real number holds [.r,s.] /\ [.p,q.] = [.(max (r,p)),(min (s,q)).]

proof end;

theorem :: XXREAL_1:141

for r, s, p, q being ext-real number holds ].r,s.] /\ ].p,q.] = ].(max (r,p)),(min (s,q)).]

proof end;

theorem :: XXREAL_1:142

for r, s, p, q being ext-real number holds ].r,s.[ /\ ].p,q.[ = ].(max (r,p)),(min (s,q)).[

proof end;

theorem :: XXREAL_1:143

for r, p, s, q being ext-real number st r <= p & s <= q holds
[.r,s.] /\ [.p,q.] = [.p,s.]

proof end;

theorem :: XXREAL_1:144

for r, p, s, q being ext-real number st r <= p & s <= q holds
[.r,s.[ /\ [.p,q.] = [.p,s.[

proof end;

theorem :: XXREAL_1:145

for r, p, s, q being ext-real number st r >= p & s > q holds
[.r,s.[ /\ [.p,q.] = [.r,q.]

proof end;

theorem :: XXREAL_1:146

for r, p, s, q being ext-real number st r < p & s <= q holds
].r,s.] /\ [.p,q.] = [.p,s.]

proof end;

theorem :: XXREAL_1:147

for r, p, s, q being ext-real number st r >= p & s >= q holds
].r,s.] /\ [.p,q.] = ].r,q.]

proof end;

theorem :: XXREAL_1:148

for r, p, s, q being ext-real number st r < p & s <= q holds
].r,s.[ /\ [.p,q.] = [.p,s.[

proof end;

theorem :: XXREAL_1:149

for r, p, s, q being ext-real number st r >= p & s > q holds
].r,s.[ /\ [.p,q.] = ].r,q.]

proof end;

theorem :: XXREAL_1:150

for r, p, s, q being ext-real number st r <= p & s <= q holds
[.r,s.[ /\ [.p,q.[ = [.p,s.[

proof end;

theorem :: XXREAL_1:151

for r, p, s, q being ext-real number st r >= p & s >= q holds
[.r,s.[ /\ [.p,q.[ = [.r,q.[

proof end;

theorem Th152: :: XXREAL_1:152

for r, p, s, q being ext-real number st r < p & s < q holds
].r,s.] /\ [.p,q.[ = [.p,s.]

proof end;

theorem :: XXREAL_1:153

for r, p, s, q being ext-real number st r >= p & s >= q holds
].r,s.] /\ [.p,q.[ = ].r,q.[

proof end;

theorem Th154: :: XXREAL_1:154

for r, p, s, q being ext-real number st r < p & s <= q holds
].r,s.[ /\ [.p,q.[ = [.p,s.[

proof end;

theorem :: XXREAL_1:155

for r, p, s, q being ext-real number st r >= p & s >= q holds
].r,s.[ /\ [.p,q.[ = ].r,q.[

proof end;

theorem :: XXREAL_1:156

for r, p, s, q being ext-real number st r <= p & s <= q holds
].r,s.] /\ ].p,q.] = ].p,s.]

proof end;

theorem :: XXREAL_1:157

for r, p, s, q being ext-real number st r >= p & s >= q holds
].r,s.] /\ ].p,q.] = ].r,q.]

proof end;

theorem :: XXREAL_1:158

for r, p, s, q being ext-real number st r <= p & s <= q holds
].r,s.[ /\ ].p,q.] = ].p,s.[

proof end;

theorem Th159: :: XXREAL_1:159

for r, p, s, q being ext-real number st r >= p & s > q holds
].r,s.[ /\ ].p,q.] = ].r,q.]

proof end;

theorem Th160: :: XXREAL_1:160

for r, p, s, q being ext-real number st r <= p & s <= q holds
].r,s.[ /\ ].p,q.[ = ].p,s.[

proof end;

theorem :: XXREAL_1:161

for r, s, p, q being ext-real number holds [.r,s.[ \/ [.p,q.[ c= [.(min (r,p)),(max (s,q)).[

proof end;

theorem :: XXREAL_1:162

for r, s, p, q being ext-real number st [.r,s.[ meets [.p,q.[ holds
[.r,s.[ \/ [.p,q.[ = [.(min (r,p)),(max (s,q)).[

proof end;

theorem :: XXREAL_1:163

for r, s, p, q being ext-real number holds ].r,s.] \/ ].p,q.] c= ].(min (r,p)),(max (s,q)).]

proof end;

theorem :: XXREAL_1:164

for r, s, p, q being ext-real number st ].r,s.] meets ].p,q.] holds
].r,s.] \/ ].p,q.] = ].(min (r,p)),(max (s,q)).]

proof end;

theorem :: XXREAL_1:165

for r, s, t being ext-real number st r <= s & s <= t holds
[.r,s.] \/ [.s,t.] = [.r,t.]

proof end;

theorem Th166: :: XXREAL_1:166

for r, s, t being ext-real number st r <= s & s <= t holds
[.r,s.[ \/ [.s,t.] = [.r,t.]

proof end;

theorem Th167: :: XXREAL_1:167

for r, s, t being ext-real number st r <= s & s <= t holds
[.r,s.] \/ ].s,t.] = [.r,t.]

proof end;

theorem :: XXREAL_1:168

for r, s, t being ext-real number st r <= s & s <= t holds
[.r,s.[ \/ [.s,t.[ = [.r,t.[

proof end;

theorem Th169: :: XXREAL_1:169

for r, s, t being ext-real number st r <= s & s < t holds
[.r,s.] \/ ].s,t.[ = [.r,t.[

proof end;

theorem :: XXREAL_1:170

for r, s, t being ext-real number st r <= s & s <= t holds
].r,s.] \/ ].s,t.] = ].r,t.]

proof end;

theorem Th171: :: XXREAL_1:171

for r, s, t being ext-real number st r <= s & s < t holds
].r,s.] \/ ].s,t.[ = ].r,t.[

proof end;

theorem :: XXREAL_1:172

for r, s, t being ext-real number st r < s & s < t holds
].r,s.] \/ [.s,t.[ = ].r,t.[

proof end;

theorem Th173: :: XXREAL_1:173

for r, s, t being ext-real number st r < s & s < t holds
].r,s.[ \/ [.s,t.[ = ].r,t.[

proof end;

theorem Th174: :: XXREAL_1:174

for p, s, r, q being ext-real number st p <= s & r <= q & s <= r holds
[.p,r.] \/ [.s,q.] = [.p,q.]

proof end;

theorem Th175: :: XXREAL_1:175

for p, s, r, q being ext-real number st p <= s & r <= q & s < r holds
[.p,r.[ \/ ].s,q.] = [.p,q.]

proof end;

theorem :: XXREAL_1:176

for p, s, r, q being ext-real number st p <= s & s <= r & r < q holds
[.p,r.] \/ [.s,q.[ = [.p,q.[

proof end;

theorem :: XXREAL_1:177

for p, s, r, q being ext-real number st p < s & r <= q & s <= r holds
].p,r.] \/ [.s,q.] = ].p,q.]

proof end;

theorem Th178: :: XXREAL_1:178

for p, s, r, q being ext-real number st p < s & r < q & s <= r holds
].p,r.] \/ [.s,q.[ = ].p,q.[

proof end;

theorem :: XXREAL_1:179

for p, r, s, q being ext-real number st p <= r & p <= s & r <= q & s <= q holds
([.p,r.[ \/ [.r,s.]) \/ ].s,q.] = [.p,q.]

proof end;

theorem :: XXREAL_1:180

for p, r, s, q being ext-real number st p < r & p < s & r < q & s < q holds
(].p,r.] \/ ].r,s.[) \/ [.s,q.[ = ].p,q.[

proof end;

theorem :: XXREAL_1:181

for p, r, s, q being ext-real number st p <= r & r <= s & s <= q holds
([.p,r.] \/ ].r,s.[) \/ [.s,q.] = [.p,q.]

proof end;

theorem Th182: :: XXREAL_1:182

for r, s, t being ext-real number st r <= s holds
[.r,t.] \ [.r,s.] = ].s,t.]

proof end;

theorem Th183: :: XXREAL_1:183

for r, s, t being ext-real number st r <= s holds
[.r,t.[ \ [.r,s.] = ].s,t.[

proof end;

theorem Th184: :: XXREAL_1:184

for r, s, t being ext-real number st r < s holds
[.r,t.] \ [.r,s.[ = [.s,t.]

proof end;

theorem Th185: :: XXREAL_1:185

for r, s, t being ext-real number st r < s holds
[.r,t.[ \ [.r,s.[ = [.s,t.[

proof end;

theorem Th186: :: XXREAL_1:186

for r, s, t being ext-real number st r <= s holds
[.r,t.] \ [.r,s.] = ].s,t.]

proof end;

theorem Th187: :: XXREAL_1:187

for r, s, t being ext-real number st r < s holds
].r,t.[ \ ].r,s.] = ].s,t.[

proof end;

theorem Th188: :: XXREAL_1:188

for r, s, t being ext-real number st r < s holds
].r,t.] \ ].r,s.[ = [.s,t.]

proof end;

theorem Th189: :: XXREAL_1:189

for r, s, t being ext-real number st r < s holds
].r,t.[ \ ].r,s.[ = [.s,t.[

proof end;

theorem Th190: :: XXREAL_1:190

for s, t, r being ext-real number st s <= t holds
[.r,t.] \ [.s,t.] = [.r,s.[

proof end;

theorem Th191: :: XXREAL_1:191

for s, t, r being ext-real number st s <= t holds
].r,t.] \ [.s,t.] = ].r,s.[

proof end;

theorem Th192: :: XXREAL_1:192

for s, t, r being ext-real number st s < t holds
[.r,t.] \ ].s,t.] = [.r,s.]

proof end;

theorem Th193: :: XXREAL_1:193

for s, t, r being ext-real number st s < t holds
].r,t.] \ ].s,t.] = ].r,s.]

proof end;

theorem Th194: :: XXREAL_1:194

for s, t, r being ext-real number st s < t holds
[.r,t.[ \ [.s,t.[ = [.r,s.[

proof end;

theorem Th195: :: XXREAL_1:195

for s, t, r being ext-real number st s < t holds
].r,t.[ \ [.s,t.[ = ].r,s.[

proof end;

theorem Th196: :: XXREAL_1:196

for s, t, r being ext-real number st s < t holds
[.r,t.[ \ ].s,t.[ = [.r,s.]

proof end;

theorem Th197: :: XXREAL_1:197

for s, t, r being ext-real number st s < t holds
].r,t.[ \ ].s,t.[ = ].r,s.]

proof end;

theorem :: XXREAL_1:198

for p, q, r, s being ext-real number st [.p,q.[ meets [.r,s.[ holds
[.p,q.[ \ [.r,s.[ = [.p,r.[ \/ [.s,q.[

proof end;

theorem :: XXREAL_1:199

for p, q, r, s being ext-real number st ].p,q.] meets ].r,s.] holds
].p,q.] \ ].r,s.] = ].p,r.] \/ ].s,q.]

proof end;

theorem :: XXREAL_1:200

for p, r, s, q being ext-real number st p <= r & s <= q holds
[.p,q.] \ ([.p,r.] \/ [.s,q.]) = ].r,s.[

proof end;

theorem :: XXREAL_1:201

for r, s, t being ext-real number st r <= s & s <= t holds
[.r,t.] \ {s} = [.r,s.[ \/ ].s,t.]

proof end;

theorem :: XXREAL_1:202

for r, s, t being ext-real number st r <= s & s < t holds
[.r,t.[ \ {s} = [.r,s.[ \/ ].s,t.[

proof end;

theorem :: XXREAL_1:203

for r, s, t being ext-real number st r < s & s <= t holds
].r,t.] \ {s} = ].r,s.[ \/ ].s,t.]

proof end;

theorem :: XXREAL_1:204

for r, s, t being ext-real number st r < s & s < t holds
].r,t.[ \ {s} = ].r,s.[ \/ ].s,t.[

proof end;

theorem :: XXREAL_1:205

for s, r, t being ext-real number holds not s in ].r,s.[ \/ ].s,t.[

proof end;

theorem :: XXREAL_1:206

for s, r, t being ext-real number holds not s in [.r,s.[ \/ ].s,t.[

proof end;

theorem :: XXREAL_1:207

for s, r, t being ext-real number holds not s in ].r,s.[ \/ ].s,t.]

proof end;

theorem :: XXREAL_1:208

for s, r, t being ext-real number holds not s in [.r,s.[ \/ ].s,t.]

proof end;

begin

theorem :: XXREAL_1:209

[.-infty,+infty.] = ExtREAL

proof end;

theorem :: XXREAL_1:210

for p being ext-real number holds ].p,-infty.[ = {}

proof end;

theorem :: XXREAL_1:211

for p being ext-real number holds [.p,-infty.[ = {}

proof end;

theorem :: XXREAL_1:212

for p being ext-real number holds ].p,-infty.] = {}

proof end;

theorem :: XXREAL_1:213

for p being ext-real number st p <> -infty holds
[.p,-infty.] = {}

proof end;

theorem :: XXREAL_1:214

for p being ext-real number holds ].+infty,p.[ = {}

proof end;

theorem :: XXREAL_1:215

for p being ext-real number holds [.+infty,p.[ = {}

proof end;

theorem :: XXREAL_1:216

for p being ext-real number holds ].+infty,p.] = {}

proof end;

theorem :: XXREAL_1:217

for p being ext-real number st p <> +infty holds
[.+infty,p.] = {}

proof end;

theorem :: XXREAL_1:218

for p, q being ext-real number st p > q holds
p in ].q,+infty.]

proof end;

theorem :: XXREAL_1:219

for q, p being ext-real number st q <= p holds
p in [.q,+infty.]

proof end;

theorem :: XXREAL_1:220

for p, q being ext-real number st p <= q holds
p in [.-infty,q.]

proof end;

theorem :: XXREAL_1:221

for p, q being ext-real number st p < q holds
p in [.-infty,q.[

proof end;

begin

theorem :: XXREAL_1:222

for p, q being ext-real number st p <= q holds
[.p,q.] = [.p,q.] \/ [.q,p.]

proof end;

theorem :: XXREAL_1:223

for r, s, t, p being ext-real number st r <= s & s <= t holds
not r in ].s,t.[ \/ ].t,p.[

proof end;

theorem Th224: :: XXREAL_1:224

REAL = ].-infty,+infty.[

proof end;

theorem Th225: :: XXREAL_1:225

for p, q being ext-real number holds ].p,q.[ c= REAL

proof end;

theorem Th226: :: XXREAL_1:226

for p, q being ext-real number st p in REAL holds
[.p,q.[ c= REAL

proof end;

theorem Th227: :: XXREAL_1:227

for q, p being ext-real number st q in REAL holds
].p,q.] c= REAL

proof end;

theorem Th228: :: XXREAL_1:228

for p, q being ext-real number st p in REAL & q in REAL holds
[.p,q.] c= REAL

proof end;

registration

let p, q be ext-real number ;
cluster ].p,q.[ -> real-membered ;
coherence
].p,q.[ is real-membered by Th225, MEMBERED:21;

end;

registration

let p be real number ;
let q be ext-real number ;
cluster [.p,q.[ -> real-membered ;
coherence
[.p,q.[ is real-membered

proof end;

end;

registration

let q be real number ;
let p be ext-real number ;
cluster ].p,q.] -> real-membered ;
coherence
].p,q.] is real-membered

proof end;

end;

registration

let p, q be real number ;
cluster [.p,q.] -> real-membered ;
coherence
[.p,q.] is real-membered

proof end;

end;

theorem :: XXREAL_1:229

for s being ext-real number holds ].-infty,s.[ = { g where g is Real : g < s }

proof end;

theorem :: XXREAL_1:230

for s being ext-real number holds ].s,+infty.[ = { g where g is Real : s < g }

proof end;

theorem :: XXREAL_1:231

for s being real number holds ].-infty,s.] = { g where g is Real : g <= s }

proof end;

theorem :: XXREAL_1:232

for s being real number holds [.s,+infty.[ = { g where g is Real : s <= g }

proof end;

theorem :: XXREAL_1:233

for u being ext-real number
for x being real number holds
( x in ].-infty,u.[ iff x < u )

proof end;

theorem :: XXREAL_1:234

for u being ext-real number
for x being real number holds
( x in ].-infty,u.] iff x <= u )

proof end;

theorem :: XXREAL_1:235

for u being ext-real number
for x being real number holds
( x in ].u,+infty.[ iff u < x )

proof end;

theorem :: XXREAL_1:236

for u being ext-real number
for x being real number holds
( x in [.u,+infty.[ iff u <= x )

proof end;

theorem :: XXREAL_1:237

for p, r, s being ext-real number st p <= r holds
[.r,s.] c= [.p,+infty.]

proof end;

theorem :: XXREAL_1:238

for p, r, s being ext-real number st p <= r holds
[.r,s.[ c= [.p,+infty.]

proof end;

theorem :: XXREAL_1:239

for p, r, s being ext-real number st p <= r holds
].r,s.] c= [.p,+infty.]

proof end;

theorem :: XXREAL_1:240

for p, r, s being ext-real number st p <= r holds
].r,s.[ c= [.p,+infty.]

proof end;

theorem :: XXREAL_1:241

for p, r, s being ext-real number st p <= r holds
[.r,s.[ c= [.p,+infty.[

proof end;

theorem :: XXREAL_1:242

for p, r, s being ext-real number st p < r holds
[.r,s.] c= ].p,+infty.] by Th39, XXREAL_0:3;

theorem :: XXREAL_1:243

for p, r, s being ext-real number st p < r holds
[.r,s.[ c= ].p,+infty.] by Th40, XXREAL_0:3;

theorem :: XXREAL_1:244

for p, r, s being ext-real number st p <= r holds
].r,s.[ c= ].p,+infty.]

proof end;

theorem :: XXREAL_1:245

for p, r, s being ext-real number st p <= r holds
].r,s.] c= ].p,+infty.]

proof end;

theorem :: XXREAL_1:246

for p, r, s being ext-real number st p <= r holds
].r,s.[ c= [.p,+infty.[

proof end;

theorem :: XXREAL_1:247

for p, r, s being ext-real number st p <= r holds
].r,s.[ c= ].p,+infty.[

proof end;

theorem :: XXREAL_1:248

for p, r, s being ext-real number st p < r holds
[.r,s.[ c= ].p,+infty.[ by Th48, XXREAL_0:3;

theorem :: XXREAL_1:249

for p, r being ext-real number
for s being real number st p < r holds
[.r,s.] c= ].p,+infty.[

proof end;

theorem :: XXREAL_1:250

for p, r being ext-real number
for s being real number st p <= r holds
].r,s.] c= ].p,+infty.[

proof end;

theorem :: XXREAL_1:251

for p, r being ext-real number
for s being real number st p <= r holds
[.r,s.] c= [.p,+infty.[

proof end;

theorem :: XXREAL_1:252

for p, r being ext-real number
for s being real number st p <= r holds
].r,s.] c= [.p,+infty.[

proof end;

theorem :: XXREAL_1:253

for s, q, r being ext-real number st s <= q holds
[.r,s.] c= [.-infty,q.]

proof end;

theorem :: XXREAL_1:254

for s, q, r being ext-real number st s <= q holds
[.r,s.[ c= [.-infty,q.]

proof end;

theorem :: XXREAL_1:255

for s, q, r being ext-real number st s <= q holds
].r,s.] c= [.-infty,q.]

proof end;

theorem :: XXREAL_1:256

for s, q, r being ext-real number st s <= q holds
].r,s.[ c= [.-infty,q.]

proof end;

theorem :: XXREAL_1:257

for s, q, r being ext-real number st s <= q holds
[.r,s.[ c= [.-infty,q.[

proof end;

theorem :: XXREAL_1:258

for s, q, r being ext-real number st s <= q holds
].r,s.[ c= ].-infty,q.]

proof end;

theorem :: XXREAL_1:259

for s, q, r being ext-real number st s <= q holds
].r,s.] c= ].-infty,q.]

proof end;

theorem :: XXREAL_1:260

for s, q, r being ext-real number st s < q holds
[.r,s.] c= [.-infty,q.[ by Th43, XXREAL_0:5;

theorem :: XXREAL_1:261

for s, q, r being ext-real number st s < q holds
].r,s.] c= [.-infty,q.[ by Th44, XXREAL_0:5;

theorem :: XXREAL_1:262

for s, q, r being ext-real number st s <= q holds
].r,s.[ c= [.-infty,q.[

proof end;

theorem :: XXREAL_1:263

for s, q, r being ext-real number st s <= q holds
].r,s.[ c= ].-infty,q.[

proof end;

theorem :: XXREAL_1:264

for s, q, r being ext-real number st s < q holds
].r,s.] c= ].-infty,q.[ by Th49, XXREAL_0:5;

theorem :: XXREAL_1:265

for s, q being ext-real number
for r being real number st s <= q holds
[.r,s.] c= ].-infty,q.]

proof end;

theorem :: XXREAL_1:266

for s, q being ext-real number
for r being real number st s <= q holds
[.r,s.[ c= ].-infty,q.]

proof end;

theorem :: XXREAL_1:267

for s, q being ext-real number
for r being real number st s < q holds
[.r,s.] c= ].-infty,q.[

proof end;

theorem :: XXREAL_1:268

for s, q being ext-real number
for r being real number st s <= q holds
[.r,s.[ c= ].-infty,q.[

proof end;

theorem :: XXREAL_1:269

for a, b being ext-real number holds ].-infty,b.[ /\ ].a,+infty.[ = ].a,b.[

proof end;

theorem :: XXREAL_1:270

for p being ext-real number
for b being real number holds ].-infty,b.] /\ ].p,+infty.[ = ].p,b.]

proof end;

theorem :: XXREAL_1:271

for p being ext-real number
for a being real number holds ].-infty,p.[ /\ [.a,+infty.[ = [.a,p.[

proof end;

theorem :: XXREAL_1:272

for a, b being real number holds ].-infty,a.] /\ [.b,+infty.[ = [.b,a.]

proof end;

theorem :: XXREAL_1:273

for s, p, r, q being ext-real number st s <= p holds
[.r,s.[ misses ].p,q.[

proof end;

theorem :: XXREAL_1:274

for s, p, r, q being ext-real number st s <= p holds
[.r,s.[ misses ].p,q.]

proof end;

theorem :: XXREAL_1:275

for s, p, r, q being ext-real number st s <= p holds
].r,s.[ misses ].p,q.[

proof end;

theorem :: XXREAL_1:276

for s, p, r, q being ext-real number st s <= p holds
].r,s.[ misses ].p,q.]

proof end;

theorem :: XXREAL_1:277

for s, p, r, q being ext-real number st s < p holds
[.r,s.] misses [.p,q.[

proof end;

theorem :: XXREAL_1:278

for s, p, r, q being ext-real number st s < p holds
[.r,s.] misses [.p,q.]

proof end;

theorem :: XXREAL_1:279

for s, p, r, q being ext-real number st s < p holds
].r,s.] misses [.p,q.[

proof end;

theorem :: XXREAL_1:280

for s, p, r, q being ext-real number st s < p holds
].r,s.] misses [.p,q.]

proof end;

theorem :: XXREAL_1:281

for t, s being ext-real number holds [.-infty,t.] \ [.-infty,s.] = ].s,t.] by Th182, XXREAL_0:5;

theorem :: XXREAL_1:282

for t, s being ext-real number holds [.-infty,t.[ \ [.-infty,s.] = ].s,t.[ by Th183, XXREAL_0:5;

theorem :: XXREAL_1:283

for t, s being ext-real number holds [.-infty,t.] \ [.-infty,s.] = ].s,t.] by Th186, XXREAL_0:5;

theorem :: XXREAL_1:284

for r, s being ext-real number holds [.r,+infty.] \ [.s,+infty.] = [.r,s.[ by Th190, XXREAL_0:3;

theorem :: XXREAL_1:285

for r, s being ext-real number holds ].r,+infty.] \ [.s,+infty.] = ].r,s.[ by Th191, XXREAL_0:3;

theorem :: XXREAL_1:286

for t being ext-real number
for s being real number holds [.-infty,t.] \ [.-infty,s.[ = [.s,t.]

proof end;

theorem :: XXREAL_1:287

for t being ext-real number
for s being real number holds [.-infty,t.[ \ [.-infty,s.[ = [.s,t.[

proof end;

theorem :: XXREAL_1:288

for t being ext-real number
for s being real number holds ].-infty,t.[ \ ].-infty,s.] = ].s,t.[

proof end;

theorem :: XXREAL_1:289

for t being ext-real number
for s being real number holds ].-infty,t.] \ ].-infty,s.[ = [.s,t.]

proof end;

theorem :: XXREAL_1:290

for t being ext-real number
for s being real number holds ].-infty,t.[ \ ].-infty,s.[ = [.s,t.[

proof end;

theorem :: XXREAL_1:291

for r being ext-real number
for s being real number holds [.r,+infty.] \ ].s,+infty.] = [.r,s.]

proof end;

theorem :: XXREAL_1:292

for r being ext-real number
for s being real number holds ].r,+infty.] \ ].s,+infty.] = ].r,s.]

proof end;

theorem :: XXREAL_1:293

for r being ext-real number
for s being real number holds [.r,+infty.[ \ [.s,+infty.[ = [.r,s.[

proof end;

theorem :: XXREAL_1:294

for r being ext-real number
for s being real number holds ].r,+infty.[ \ [.s,+infty.[ = ].r,s.[

proof end;

theorem :: XXREAL_1:295

for r being ext-real number
for s being real number holds [.r,+infty.[ \ ].s,+infty.[ = [.r,s.]

proof end;

theorem :: XXREAL_1:296

for r being ext-real number
for s being real number holds ].r,+infty.[ \ ].s,+infty.[ = ].r,s.]

proof end;

theorem Th297: :: XXREAL_1:297

for r, s, p, q being ext-real number st r < s & p < q holds
].r,q.[ \ ].p,s.[ = ].r,p.] \/ [.s,q.[

proof end;

theorem Th298: :: XXREAL_1:298

for r, s, p, q being ext-real number st r <= s & p < q holds
[.r,q.[ \ ].p,s.[ = [.r,p.] \/ [.s,q.[

proof end;

theorem Th299: :: XXREAL_1:299

for r, s, p, q being ext-real number st r < s & p <= q holds
].r,q.] \ ].p,s.[ = ].r,p.] \/ [.s,q.]

proof end;

theorem Th300: :: XXREAL_1:300

for r, s, p, q being ext-real number st r <= s & p <= q holds
[.r,q.] \ ].p,s.[ = [.r,p.] \/ [.s,q.]

proof end;

theorem Th301: :: XXREAL_1:301

for r, s, p, q being ext-real number st r < s & p <= q holds
].r,q.[ \ [.p,s.[ = ].r,p.[ \/ [.s,q.[

proof end;

theorem Th302: :: XXREAL_1:302

for r, s, p, q being ext-real number st r <= s & p <= q holds
[.r,q.[ \ [.p,s.[ = [.r,p.[ \/ [.s,q.[

proof end;

theorem Th303: :: XXREAL_1:303

for r, s, p, q being ext-real number st r < s & p <= q holds
].r,q.] \ [.p,s.[ = ].r,p.[ \/ [.s,q.]

proof end;

theorem Th304: :: XXREAL_1:304

for r, s, p, q being ext-real number st r <= s & p <= q holds
[.r,q.] \ [.p,s.[ = [.r,p.[ \/ [.s,q.]

proof end;

theorem Th305: :: XXREAL_1:305

for r, s, p, q being ext-real number st r < s & p < q holds
].r,q.[ \ ].p,s.] = ].r,p.] \/ ].s,q.[

proof end;

theorem Th306: :: XXREAL_1:306

for r, s, p, q being ext-real number st r <= s & p < q holds
[.r,q.[ \ ].p,s.] = [.r,p.] \/ ].s,q.[

proof end;

theorem Th307: :: XXREAL_1:307

for r, s, p, q being ext-real number st r < s & p <= q holds
].r,q.] \ ].p,s.] = ].r,p.] \/ ].s,q.]

proof end;

theorem Th308: :: XXREAL_1:308

for r, s, p, q being ext-real number st r <= s & p <= q holds
[.r,q.] \ ].p,s.] = [.r,p.] \/ ].s,q.]

proof end;

theorem Th309: :: XXREAL_1:309

for r, s, p, q being ext-real number st r <= s & p <= q holds
].r,q.[ \ [.p,s.] = ].r,p.[ \/ ].s,q.[

proof end;

theorem Th310: :: XXREAL_1:310

for r, s, p, q being ext-real number st r <= s & p <= q holds
[.r,q.[ \ [.p,s.] = [.r,p.[ \/ ].s,q.[

proof end;

theorem Th311: :: XXREAL_1:311

for r, s, p, q being ext-real number st r < s & p <= q holds
].r,q.] \ [.p,s.] = ].r,p.[ \/ ].s,q.]

proof end;

theorem Th312: :: XXREAL_1:312

for r, s, p, q being ext-real number st r <= s & p <= q holds
[.r,q.] \ [.p,s.] = [.r,p.[ \/ ].s,q.]

proof end;

theorem Th313: :: XXREAL_1:313

for r, p, q being ext-real number st r <= p & p <= q holds
].r,q.[ \ {p} = ].r,p.[ \/ ].p,q.[

proof end;

theorem Th314: :: XXREAL_1:314

for r, p, q being ext-real number st r <= p & p <= q holds
[.r,q.[ \ {p} = [.r,p.[ \/ ].p,q.[

proof end;

theorem Th315: :: XXREAL_1:315

for r, p, q being ext-real number st r < p & p <= q holds
].r,q.] \ {p} = ].r,p.[ \/ ].p,q.]

proof end;

theorem Th316: :: XXREAL_1:316

for r, p, q being ext-real number st r <= p & p <= q holds
[.r,q.] \ {p} = [.r,p.[ \/ ].p,q.]

proof end;

theorem Th317: :: XXREAL_1:317

for r, q, p being ext-real number st r < q & p <= q holds
].r,q.] \ ].p,q.[ = ].r,p.] \/ {q}

proof end;

theorem Th318: :: XXREAL_1:318

for r, q, p being ext-real number st r <= q & p <= q holds
[.r,q.] \ ].p,q.[ = [.r,p.] \/ {q}

proof end;

theorem Th319: :: XXREAL_1:319

for r, q, p being ext-real number st r < q & p <= q holds
].r,q.] \ [.p,q.[ = ].r,p.[ \/ {q}

proof end;

theorem Th320: :: XXREAL_1:320

for r, q, p being ext-real number st r <= q & p <= q holds
[.r,q.] \ [.p,q.[ = [.r,p.[ \/ {q}

proof end;

theorem Th321: :: XXREAL_1:321

for p, s, q being ext-real number st p <= s & p < q holds
[.p,q.[ \ ].p,s.[ = {p} \/ [.s,q.[

proof end;

theorem Th322: :: XXREAL_1:322

for p, s, q being ext-real number st p <= s & p <= q holds
[.p,q.] \ ].p,s.[ = {p} \/ [.s,q.]

proof end;

theorem Th323: :: XXREAL_1:323

for p, s, q being ext-real number st p <= s & p < q holds
[.p,q.[ \ ].p,s.] = {p} \/ ].s,q.[

proof end;

theorem Th324: :: XXREAL_1:324

for p, s, q being ext-real number st p <= s & p <= q holds
[.p,q.] \ ].p,s.] = {p} \/ ].s,q.]

proof end;

theorem Th325: :: XXREAL_1:325

for p, q, s being ext-real number st p < q holds
[.-infty,q.[ \ ].p,s.[ = [.-infty,p.] \/ [.s,q.[ by Th298, XXREAL_0:5;

theorem Th326: :: XXREAL_1:326

for p, q, s being ext-real number st p <= q holds
[.-infty,q.] \ ].p,s.[ = [.-infty,p.] \/ [.s,q.]

proof end;

theorem Th327: :: XXREAL_1:327

for p, q, s being ext-real number st p <= q holds
[.-infty,q.[ \ [.p,s.[ = [.-infty,p.[ \/ [.s,q.[

proof end;

theorem Th328: :: XXREAL_1:328

for p, q, s being ext-real number st p <= q holds
[.-infty,q.] \ [.p,s.[ = [.-infty,p.[ \/ [.s,q.]

proof end;

theorem Th329: :: XXREAL_1:329

for p, q, s being ext-real number st p < q holds
[.-infty,q.[ \ ].p,s.] = [.-infty,p.] \/ ].s,q.[ by Th306, XXREAL_0:5;

theorem Th330: :: XXREAL_1:330

for p, q, s being ext-real number st p <= q holds
[.-infty,q.] \ ].p,s.] = [.-infty,p.] \/ ].s,q.]

proof end;

theorem Th331: :: XXREAL_1:331

for p, q, s being ext-real number st p <= q holds
[.-infty,q.[ \ [.p,s.] = [.-infty,p.[ \/ ].s,q.[

proof end;

theorem Th332: :: XXREAL_1:332

for p, q, s being ext-real number st p <= q holds
[.-infty,q.] \ [.p,s.] = [.-infty,p.[ \/ ].s,q.]

proof end;

theorem Th333: :: XXREAL_1:333

for p, q being ext-real number
for s being real number st p < q holds
].-infty,q.[ \ ].p,s.[ = ].-infty,p.] \/ [.s,q.[

proof end;

theorem Th334: :: XXREAL_1:334

for p, q being ext-real number
for s being real number st p <= q holds
].-infty,q.] \ ].p,s.[ = ].-infty,p.] \/ [.s,q.]

proof end;

theorem Th335: :: XXREAL_1:335

for p, q being ext-real number
for s being real number st p <= q holds
].-infty,q.[ \ [.p,s.[ = ].-infty,p.[ \/ [.s,q.[

proof end;

theorem Th336: :: XXREAL_1:336

for p, q being ext-real number
for s being real number st p <= q holds
].-infty,q.] \ [.p,s.[ = ].-infty,p.[ \/ [.s,q.]

proof end;

theorem Th337: :: XXREAL_1:337

for p, q being ext-real number
for s being real number st p < q holds
].-infty,q.[ \ ].p,s.] = ].-infty,p.] \/ ].s,q.[

proof end;

theorem Th338: :: XXREAL_1:338

for p, q being ext-real number
for s being real number st p <= q holds
].-infty,q.] \ ].p,s.] = ].-infty,p.] \/ ].s,q.]

proof end;

theorem Th339: :: XXREAL_1:339

for p, q, s being ext-real number st p <= q holds
].-infty,q.[ \ [.p,s.] = ].-infty,p.[ \/ ].s,q.[

proof end;

theorem Th340: :: XXREAL_1:340

for p, q being ext-real number
for s being real number st p <= q holds
].-infty,q.] \ [.p,s.] = ].-infty,p.[ \/ ].s,q.]

proof end;

theorem Th341: :: XXREAL_1:341

for p, q being ext-real number st p <= q holds
[.-infty,q.[ \ {p} = [.-infty,p.[ \/ ].p,q.[

proof end;

theorem Th342: :: XXREAL_1:342

for p, q being ext-real number st p <= q holds
[.-infty,q.] \ {p} = [.-infty,p.[ \/ ].p,q.]

proof end;

theorem :: XXREAL_1:343

for p, q being ext-real number st p <= q holds
[.-infty,q.] \ ].p,q.[ = [.-infty,p.] \/ {q}

proof end;

theorem :: XXREAL_1:344

for p, q being ext-real number st p <= q holds
[.-infty,q.] \ [.p,q.[ = [.-infty,p.[ \/ {q}

proof end;

theorem :: XXREAL_1:345

for q, s being ext-real number holds [.-infty,q.] \ ].-infty,s.[ = {-infty} \/ [.s,q.]

proof end;

theorem :: XXREAL_1:346

for q, s being ext-real number holds [.-infty,q.] \ ].-infty,s.] = {-infty} \/ ].s,q.]

proof end;

theorem :: XXREAL_1:347

for s being ext-real number
for q being real number holds [.-infty,q.[ \ ].-infty,s.[ = {-infty} \/ [.s,q.[

proof end;

theorem :: XXREAL_1:348

for s being ext-real number
for q being real number holds [.-infty,q.[ \ ].-infty,s.] = {-infty} \/ ].s,q.[

proof end;

theorem Th349: :: XXREAL_1:349

for p, q being ext-real number st p <= q holds
].-infty,q.[ \ {p} = ].-infty,p.[ \/ ].p,q.[

proof end;

theorem Th350: :: XXREAL_1:350

for q being ext-real number
for p being real number st p <= q holds
].-infty,q.] \ {p} = ].-infty,p.[ \/ ].p,q.]

proof end;

theorem :: XXREAL_1:351

for p being ext-real number
for q being real number st p <= q holds
].-infty,q.] \ ].p,q.[ = ].-infty,p.] \/ {q}

proof end;

theorem :: XXREAL_1:352

for p being ext-real number
for q being real number st p <= q holds
].-infty,q.] \ [.p,q.[ = ].-infty,p.[ \/ {q}

proof end;

theorem :: XXREAL_1:353

for r, s, p being ext-real number st r < s holds
].r,+infty.] \ ].p,s.[ = ].r,p.] \/ [.s,+infty.] by Th299, XXREAL_0:3;

theorem :: XXREAL_1:354

for r, s, p being ext-real number st r <= s holds
[.r,+infty.] \ ].p,s.[ = [.r,p.] \/ [.s,+infty.]

proof end;

theorem :: XXREAL_1:355

for r, s, p being ext-real number st r < s holds
].r,+infty.[ \ [.p,s.[ = ].r,p.[ \/ [.s,+infty.[ by Th301, XXREAL_0:3;

theorem :: XXREAL_1:356

for r, s, p being ext-real number st r <= s holds
[.r,+infty.[ \ [.p,s.[ = [.r,p.[ \/ [.s,+infty.[

proof end;

theorem :: XXREAL_1:357

for r, s, p being ext-real number st r < s holds
].r,+infty.] \ [.p,s.[ = ].r,p.[ \/ [.s,+infty.] by Th303, XXREAL_0:3;

theorem :: XXREAL_1:358

for r, s, p being ext-real number st r <= s holds
[.r,+infty.] \ [.p,s.[ = [.r,p.[ \/ [.s,+infty.]

proof end;

theorem :: XXREAL_1:359

for r, s, p being ext-real number st r < s holds
].r,+infty.] \ ].p,s.] = ].r,p.] \/ ].s,+infty.] by Th307, XXREAL_0:3;

theorem :: XXREAL_1:360

for r, s, p being ext-real number st r <= s holds
[.r,+infty.] \ ].p,s.] = [.r,p.] \/ ].s,+infty.]

proof end;

theorem :: XXREAL_1:361

for r, s, p being ext-real number st r <= s holds
].r,+infty.[ \ [.p,s.] = ].r,p.[ \/ ].s,+infty.[

proof end;

theorem :: XXREAL_1:362

for r, s, p being ext-real number st r <= s holds
[.r,+infty.[ \ [.p,s.] = [.r,p.[ \/ ].s,+infty.[

proof end;

theorem :: XXREAL_1:363

for r, s, p being ext-real number st r < s holds
].r,+infty.] \ [.p,s.] = ].r,p.[ \/ ].s,+infty.] by Th311, XXREAL_0:3;

theorem :: XXREAL_1:364

for r, s, p being ext-real number st r <= s holds
[.r,+infty.] \ [.p,s.] = [.r,p.[ \/ ].s,+infty.]

proof end;

theorem :: XXREAL_1:365

for r, p being ext-real number st r <= p holds
].r,+infty.[ \ {p} = ].r,p.[ \/ ].p,+infty.[

proof end;

theorem :: XXREAL_1:366

for r, p being ext-real number st r <= p holds
[.r,+infty.[ \ {p} = [.r,p.[ \/ ].p,+infty.[

proof end;

theorem :: XXREAL_1:367

for r, p being ext-real number st r < p holds
].r,+infty.] \ {p} = ].r,p.[ \/ ].p,+infty.] by Th315, XXREAL_0:3;

theorem :: XXREAL_1:368

for r, p being ext-real number st r <= p holds
[.r,+infty.] \ {p} = [.r,p.[ \/ ].p,+infty.]

proof end;

theorem :: XXREAL_1:369

for r, p being ext-real number holds [.r,+infty.] \ ].p,+infty.[ = [.r,p.] \/ {+infty}

proof end;

theorem :: XXREAL_1:370

for r, p being ext-real number holds [.r,+infty.] \ [.p,+infty.[ = [.r,p.[ \/ {+infty}

proof end;

theorem :: XXREAL_1:371

for p being ext-real number
for r being real number holds ].r,+infty.] \ ].p,+infty.[ = ].r,p.] \/ {+infty}

proof end;

theorem :: XXREAL_1:372

for p being ext-real number
for r being real number holds ].r,+infty.] \ [.p,+infty.[ = ].r,p.[ \/ {+infty}

proof end;

theorem :: XXREAL_1:373

for p, s being ext-real number st p <= s holds
[.p,+infty.] \ ].p,s.[ = {p} \/ [.s,+infty.]

proof end;

theorem :: XXREAL_1:374

for p, s being ext-real number st p <= s holds
[.p,+infty.] \ ].p,s.] = {p} \/ ].s,+infty.]

proof end;

theorem :: XXREAL_1:375

for p, s being ext-real number holds [.-infty,+infty.] \ ].p,s.[ = [.-infty,p.] \/ [.s,+infty.] by Th326, XXREAL_0:3;

theorem :: XXREAL_1:376

for p, s being ext-real number holds [.-infty,+infty.[ \ [.p,s.[ = [.-infty,p.[ \/ [.s,+infty.[ by Th327, XXREAL_0:3;

theorem :: XXREAL_1:377

for p, s being ext-real number holds [.-infty,+infty.] \ [.p,s.[ = [.-infty,p.[ \/ [.s,+infty.] by Th328, XXREAL_0:3;

theorem :: XXREAL_1:378

for p, s being ext-real number holds [.-infty,+infty.] \ ].p,s.] = [.-infty,p.] \/ ].s,+infty.] by Th330, XXREAL_0:3;

theorem :: XXREAL_1:379

for p, s being ext-real number holds [.-infty,+infty.[ \ [.p,s.] = [.-infty,p.[ \/ ].s,+infty.[ by Th331, XXREAL_0:3;

theorem :: XXREAL_1:380

for p, s being ext-real number holds [.-infty,+infty.] \ [.p,s.] = [.-infty,p.[ \/ ].s,+infty.] by Th332, XXREAL_0:3;

theorem :: XXREAL_1:381

for p being ext-real number
for s being real number holds ].-infty,+infty.] \ ].p,s.[ = ].-infty,p.] \/ [.s,+infty.] by Th334, XXREAL_0:3;

theorem :: XXREAL_1:382

for p being ext-real number
for s being real number holds REAL \ [.p,s.[ = ].-infty,p.[ \/ [.s,+infty.[ by Th224, Th335, XXREAL_0:3;

theorem :: XXREAL_1:383

for p being ext-real number
for s being real number holds ].-infty,+infty.] \ [.p,s.[ = ].-infty,p.[ \/ [.s,+infty.] by Th336, XXREAL_0:3;

theorem :: XXREAL_1:384

for p being ext-real number
for s being real number holds ].-infty,+infty.] \ ].p,s.] = ].-infty,p.] \/ ].s,+infty.] by Th338, XXREAL_0:3;

theorem :: XXREAL_1:385

for p, s being ext-real number holds REAL \ [.p,s.] = ].-infty,p.[ \/ ].s,+infty.[ by Th224, Th339, XXREAL_0:3;

theorem :: XXREAL_1:386

for p being ext-real number
for s being real number holds ].-infty,+infty.] \ [.p,s.] = ].-infty,p.[ \/ ].s,+infty.] by Th340, XXREAL_0:3;

theorem :: XXREAL_1:387

for p being ext-real number holds [.-infty,+infty.[ \ {p} = [.-infty,p.[ \/ ].p,+infty.[ by Th341, XXREAL_0:3;

theorem :: XXREAL_1:388

for p being ext-real number holds [.-infty,+infty.] \ {p} = [.-infty,p.[ \/ ].p,+infty.] by Th342, XXREAL_0:3;

theorem :: XXREAL_1:389

for p being ext-real number holds REAL \ {p} = ].-infty,p.[ \/ ].p,+infty.[ by Th224, Th349, XXREAL_0:3;

theorem :: XXREAL_1:390

for p being real number holds ].-infty,+infty.] \ {p} = ].-infty,p.[ \/ ].p,+infty.] by Th350, XXREAL_0:3;

theorem :: XXREAL_1:391

for r, s being ext-real number
for p being real number st r < s holds
].r,+infty.[ \ ].p,s.[ = ].r,p.] \/ [.s,+infty.[

proof end;

theorem :: XXREAL_1:392

for r, s being ext-real number
for p being real number st r <= s holds
[.r,+infty.[ \ ].p,s.[ = [.r,p.] \/ [.s,+infty.[

proof end;

theorem :: XXREAL_1:393

for r, s being ext-real number
for p being real number st r < s holds
].r,+infty.[ \ ].p,s.] = ].r,p.] \/ ].s,+infty.[

proof end;

theorem :: XXREAL_1:394

for r, s being ext-real number
for p being real number st r <= s holds
[.r,+infty.[ \ ].p,s.] = [.r,p.] \/ ].s,+infty.[

proof end;

theorem :: XXREAL_1:395

for s being ext-real number
for p being real number st p <= s holds
[.p,+infty.[ \ ].p,s.] = {p} \/ ].s,+infty.[

proof end;

theorem :: XXREAL_1:396

for s being ext-real number
for p being real number holds [.-infty,+infty.[ \ ].p,s.[ = [.-infty,p.] \/ [.s,+infty.[

proof end;

theorem :: XXREAL_1:397

for s being ext-real number
for p being real number holds [.-infty,+infty.[ \ ].p,s.] = [.-infty,p.] \/ ].s,+infty.[

proof end;

theorem :: XXREAL_1:398

for s, p being real number holds REAL \ ].p,s.[ = ].-infty,p.] \/ [.s,+infty.[

proof end;

theorem :: XXREAL_1:399

for s, p being real number holds REAL \ ].p,s.] = ].-infty,p.] \/ ].s,+infty.[

proof end;

theorem :: XXREAL_1:400

for s being ext-real number
for p being real number st p <= s holds
[.p,+infty.[ \ ].p,s.[ = {p} \/ [.s,+infty.[

proof end;

theorem Th401: :: XXREAL_1:401

for r, s being ext-real number st r < s holds
[.r,s.] \ [.r,s.[ = {s}

proof end;

theorem Th402: :: XXREAL_1:402

for r, s being ext-real number st r < s holds
].r,s.] \ ].r,s.[ = {s}

proof end;

theorem Th403: :: XXREAL_1:403

for r, t being ext-real number st r < t holds
[.r,t.] \ ].r,t.] = {r}

proof end;

theorem Th404: :: XXREAL_1:404

for r, t being ext-real number st r < t holds
[.r,t.[ \ ].r,t.[ = {r}

proof end;

theorem :: XXREAL_1:405

for s being real number holds [.-infty,s.] \ [.-infty,s.[ = {s}

proof end;

theorem :: XXREAL_1:406

for s being real number holds ].-infty,s.] \ ].-infty,s.[ = {s}

proof end;

theorem :: XXREAL_1:407

for s being real number holds [.-infty,s.] \ ].-infty,s.] = {-infty}

proof end;

theorem :: XXREAL_1:408

for s being real number holds [.-infty,s.[ \ ].-infty,s.[ = {-infty}

proof end;

theorem :: XXREAL_1:409

for s being real number holds [.s,+infty.] \ [.s,+infty.[ = {+infty}

proof end;

theorem :: XXREAL_1:410

for s being real number holds ].s,+infty.] \ ].s,+infty.[ = {+infty}

proof end;

theorem :: XXREAL_1:411

for s being real number holds [.s,+infty.] \ ].s,+infty.] = {s}

proof end;

theorem :: XXREAL_1:412

for s being real number holds [.s,+infty.[ \ ].s,+infty.[ = {s}

proof end;

theorem :: XXREAL_1:413

for r, s, t being ext-real number st r <= s & s < t holds
[.r,s.] \/ [.s,t.[ = [.r,t.[

proof end;

theorem :: XXREAL_1:414

for r, s, t being ext-real number st r < s & s <= t holds
].r,s.] \/ [.s,t.] = ].r,t.]

proof end;

theorem :: XXREAL_1:415

for r, s, t being ext-real number st r < s & s < t holds
].r,s.] \/ [.s,t.[ = ].r,t.[

proof end;

theorem :: XXREAL_1:416

for r, s, t being ext-real number st r <= s & s < t holds
[.r,s.] /\ [.s,t.[ = {s}

proof end;

theorem :: XXREAL_1:417

for r, s, t being ext-real number st r < s & s <= t holds
].r,s.] /\ [.s,t.] = {s}

proof end;

theorem :: XXREAL_1:418

for r, s, t being ext-real number st r <= s & s <= t holds
[.r,s.] /\ [.s,t.] = {s}

proof end;

theorem :: XXREAL_1:419

for s being ext-real number holds [.-infty,s.] = ].-infty,s.[ \/ {-infty,s} by Th128, XXREAL_0:5;

theorem :: XXREAL_1:420

for s being ext-real number holds [.-infty,s.] = [.-infty,s.[ \/ {s} by Th129, XXREAL_0:5;

theorem :: XXREAL_1:421

for s being ext-real number holds [.-infty,s.] = {-infty} \/ ].-infty,s.] by Th130, XXREAL_0:5;

theorem :: XXREAL_1:422

for s being real number holds [.-infty,s.[ = {-infty} \/ ].-infty,s.[

proof end;

theorem :: XXREAL_1:423

for s being real number holds ].-infty,s.] = ].-infty,s.[ \/ {s}

proof end;

theorem :: XXREAL_1:424

for r being ext-real number holds [.r,+infty.] = ].r,+infty.[ \/ {r,+infty} by Th128, XXREAL_0:3;

theorem :: XXREAL_1:425

for r being ext-real number holds [.r,+infty.] = [.r,+infty.[ \/ {+infty} by Th129, XXREAL_0:3;

theorem :: XXREAL_1:426

for r being ext-real number holds [.r,+infty.] = {r} \/ ].r,+infty.] by Th130, XXREAL_0:3;

theorem :: XXREAL_1:427

for r being real number holds [.r,+infty.[ = {r} \/ ].r,+infty.[

proof end;

theorem :: XXREAL_1:428

for r being real number holds ].r,+infty.] = ].r,+infty.[ \/ {+infty}

proof end;