:: XXREAL_1 semantic presentation

scheme :: XXREAL_1:sch 1
Conti{ P1[ set ], P2[ set ] } :
ex s being ext-real number st
( ( for r being ext-real number st P1[r] holds
r <= s ) & ( for r being ext-real number st P2[r] holds
s <= r ) )
provided
A1: for r, s being ext-real number st P1[r] & P2[s] holds
r <= s
proof end;

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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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;

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 :: 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 :: 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 :: 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 :: 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 :: XXREAL_1:183
for r, s, t being ext-real number st r <= s holds
[.r,t.[ \ [.r,s.] = ].s,t.[
proof end;

theorem :: XXREAL_1:184
for r, s, t being ext-real number st r < s holds
[.r,t.] \ [.r,s.[ = [.s,t.]
proof end;

theorem :: XXREAL_1:185
for r, s, t being ext-real number st r < s holds
[.r,t.[ \ [.r,s.[ = [.s,t.[
proof end;

theorem :: XXREAL_1:186
for r, s, t being ext-real number st r <= s holds
[.r,t.] \ [.r,s.] = ].s,t.]
proof end;

theorem :: XXREAL_1:187
for r, s, t being ext-real number st r < s holds
].r,t.[ \ ].r,s.] = ].s,t.[
proof end;

theorem :: XXREAL_1:188
for r, s, t being ext-real number st r < s holds
].r,t.] \ ].r,s.[ = [.s,t.]
proof end;

theorem :: XXREAL_1:189
for r, s, t being ext-real number st r < s holds
].r,t.[ \ ].r,s.[ = [.s,t.[
proof end;

theorem :: 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 :: XXREAL_1:192
for s, t, r being ext-real number st s < t holds
[.r,t.] \ ].s,t.] = [.r,s.]
proof end;

theorem :: XXREAL_1:193
for s, t, r being ext-real number st s < t holds
].r,t.] \ ].s,t.] = ].r,s.]
proof end;

theorem :: XXREAL_1:194
for s, t, r being ext-real number st s < t holds
[.r,t.[ \ [.s,t.[ = [.r,s.[
proof end;

theorem :: XXREAL_1:195
for s, t, r being ext-real number st s < t holds
].r,t.[ \ [.s,t.[ = ].r,s.[
proof end;

theorem :: XXREAL_1:196
for s, t, r being ext-real number st s < t holds
[.r,t.[ \ ].s,t.[ = [.r,s.]
proof end;

theorem :: 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;

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;

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;