:: RFUNCT_1 semantic presentation

Lemma1: (- 1) " = - 1
;

definition
let c1, c2 be real-yielding Function;
canceled;
canceled;
canceled;
func c1 / c2 -> Function means :Def4: :: RFUNCT_1:def 4
( dom a3 = (dom a1) /\ ((dom a2) \ (a2 " {0})) & ( for b1 being set st b1 in dom a3 holds
a3 . b1 = (a1 . b1) * ((a2 . b1) " ) ) );
existence
ex b1 being Function st
( dom b1 = (dom c1) /\ ((dom c2) \ (c2 " {0})) & ( for b2 being set st b2 in dom b1 holds
b1 . b2 = (c1 . b2) * ((c2 . b2) " ) ) )
proof end;
uniqueness
for b1, b2 being Function st dom b1 = (dom c1) /\ ((dom c2) \ (c2 " {0})) & ( for b3 being set st b3 in dom b1 holds
b1 . b3 = (c1 . b3) * ((c2 . b3) " ) ) & dom b2 = (dom c1) /\ ((dom c2) \ (c2 " {0})) & ( for b3 being set st b3 in dom b2 holds
b2 . b3 = (c1 . b3) * ((c2 . b3) " ) ) holds
b1 = b2
proof end;
end;

:: deftheorem Def1 RFUNCT_1:def 1 :
canceled;

:: deftheorem Def2 RFUNCT_1:def 2 :
canceled;

:: deftheorem Def3 RFUNCT_1:def 3 :
canceled;

:: deftheorem Def4 defines / RFUNCT_1:def 4 :
for b1, b2 being real-yielding Function
for b3 being Function holds
( b3 = b1 / b2 iff ( dom b3 = (dom b1) /\ ((dom b2) \ (b2 " {0})) & ( for b4 being set st b4 in dom b3 holds
b3 . b4 = (b1 . b4) * ((b2 . b4) " ) ) ) );

registration
let c1, c2 be real-yielding Function;
cluster a1 / a2 -> real-yielding ;
coherence
c1 / c2 is real-yielding
proof end;
end;

definition
let c1 be set ;
let c2 be real-membered set ;
let c3, c4 be PartFunc of c1,c2;
redefine func / as c3 / c4 -> PartFunc of a1, REAL ;
coherence
c3 / c4 is PartFunc of c1, REAL
proof end;
end;

definition
let c1 be real-yielding Function;
canceled;
canceled;
canceled;
func c1 ^ -> Function means :Def8: :: RFUNCT_1:def 8
( dom a2 = (dom a1) \ (a1 " {0}) & ( for b1 being set st b1 in dom a2 holds
a2 . b1 = (a1 . b1) " ) );
existence
ex b1 being Function st
( dom b1 = (dom c1) \ (c1 " {0}) & ( for b2 being set st b2 in dom b1 holds
b1 . b2 = (c1 . b2) " ) )
proof end;
uniqueness
for b1, b2 being Function st dom b1 = (dom c1) \ (c1 " {0}) & ( for b3 being set st b3 in dom b1 holds
b1 . b3 = (c1 . b3) " ) & dom b2 = (dom c1) \ (c1 " {0}) & ( for b3 being set st b3 in dom b2 holds
b2 . b3 = (c1 . b3) " ) holds
b1 = b2
proof end;
end;

:: deftheorem Def5 RFUNCT_1:def 5 :
canceled;

:: deftheorem Def6 RFUNCT_1:def 6 :
canceled;

:: deftheorem Def7 RFUNCT_1:def 7 :
canceled;

:: deftheorem Def8 defines ^ RFUNCT_1:def 8 :
for b1 being real-yielding Function
for b2 being Function holds
( b2 = b1 ^ iff ( dom b2 = (dom b1) \ (b1 " {0}) & ( for b3 being set st b3 in dom b2 holds
b2 . b3 = (b1 . b3) " ) ) );

registration
let c1 be real-yielding Function;
cluster a1 ^ -> real-yielding ;
coherence
c1 ^ is real-yielding
proof end;
end;

definition
let c1 be set ;
let c2 be real-membered set ;
let c3 be PartFunc of c1,c2;
redefine func ^ as c3 ^ -> PartFunc of a1, REAL ;
coherence
c3 ^ is PartFunc of c1, REAL
proof end;
end;

theorem Th1: :: RFUNCT_1:1
canceled;

theorem Th2: :: RFUNCT_1:2
canceled;

theorem Th3: :: RFUNCT_1:3
canceled;

theorem Th4: :: RFUNCT_1:4
canceled;

theorem Th5: :: RFUNCT_1:5
canceled;

theorem Th6: :: RFUNCT_1:6
canceled;

theorem Th7: :: RFUNCT_1:7
canceled;

theorem Th8: :: RFUNCT_1:8
canceled;

theorem Th9: :: RFUNCT_1:9
canceled;

theorem Th10: :: RFUNCT_1:10
canceled;

theorem Th11: :: RFUNCT_1:11
for b1 being real-yielding Function holds
( dom (b1 ^ ) c= dom b1 & (dom b1) /\ ((dom b1) \ (b1 " {0})) = (dom b1) \ (b1 " {0}) )
proof end;

theorem Th12: :: RFUNCT_1:12
for b1, b2 being real-yielding Function holds (dom (b1 (#) b2)) \ ((b1 (#) b2) " {0}) = ((dom b1) \ (b1 " {0})) /\ ((dom b2) \ (b2 " {0}))
proof end;

theorem Th13: :: RFUNCT_1:13
for b1 being non empty set
for b2 being Element of b1
for b3 being real-yielding Function st b2 in dom (b3 ^ ) holds
b3 . b2 <> 0
proof end;

theorem Th14: :: RFUNCT_1:14
for b1 being real-yielding Function holds (b1 ^ ) " {0} = {}
proof end;

theorem Th15: :: RFUNCT_1:15
for b1 being real-yielding Function holds
( (abs b1) " {0} = b1 " {0} & (- b1) " {0} = b1 " {0} )
proof end;

theorem Th16: :: RFUNCT_1:16
for b1 being real-yielding Function holds dom ((b1 ^ ) ^ ) = dom (b1 | (dom (b1 ^ )))
proof end;

theorem Th17: :: RFUNCT_1:17
for b1 being real-yielding Function
for b2 being real number st b2 <> 0 holds
(b2 (#) b1) " {0} = b1 " {0}
proof end;

theorem Th18: :: RFUNCT_1:18
canceled;

theorem Th19: :: RFUNCT_1:19
for b1, b2, b3 being real-yielding Function holds (b1 + b2) + b3 = b1 + (b2 + b3)
proof end;

theorem Th20: :: RFUNCT_1:20
canceled;

theorem Th21: :: RFUNCT_1:21
for b1, b2, b3 being real-yielding Function holds (b1 (#) b2) (#) b3 = b1 (#) (b2 (#) b3)
proof end;

theorem Th22: :: RFUNCT_1:22
for b1, b2, b3 being real-yielding Function holds (b1 + b2) (#) b3 = (b1 (#) b3) + (b2 (#) b3)
proof end;

theorem Th23: :: RFUNCT_1:23
for b1, b2, b3 being real-yielding Function holds b1 (#) (b2 + b3) = (b1 (#) b2) + (b1 (#) b3) by Th22;

theorem Th24: :: RFUNCT_1:24
for b1, b2 being real-yielding Function
for b3 being real number holds b3 (#) (b1 (#) b2) = (b3 (#) b1) (#) b2
proof end;

theorem Th25: :: RFUNCT_1:25
for b1, b2 being real-yielding Function
for b3 being real number holds b3 (#) (b1 (#) b2) = b1 (#) (b3 (#) b2)
proof end;

theorem Th26: :: RFUNCT_1:26
for b1, b2, b3 being real-yielding Function holds (b1 - b2) (#) b3 = (b1 (#) b3) - (b2 (#) b3)
proof end;

theorem Th27: :: RFUNCT_1:27
for b1, b2, b3 being real-yielding Function holds (b1 (#) b2) - (b1 (#) b3) = b1 (#) (b2 - b3) by Th26;

theorem Th28: :: RFUNCT_1:28
for b1, b2 being real-yielding Function
for b3 being real number holds b3 (#) (b1 + b2) = (b3 (#) b1) + (b3 (#) b2)
proof end;

theorem Th29: :: RFUNCT_1:29
for b1 being real-yielding Function
for b2, b3 being real number holds (b2 * b3) (#) b1 = b2 (#) (b3 (#) b1)
proof end;

theorem Th30: :: RFUNCT_1:30
for b1, b2 being real-yielding Function
for b3 being real number holds b3 (#) (b1 - b2) = (b3 (#) b1) - (b3 (#) b2)
proof end;

theorem Th31: :: RFUNCT_1:31
for b1, b2 being real-yielding Function holds b1 - b2 = (- 1) (#) (b2 - b1)
proof end;

theorem Th32: :: RFUNCT_1:32
for b1, b2, b3 being real-yielding Function holds b1 - (b2 + b3) = (b1 - b2) - b3
proof end;

theorem Th33: :: RFUNCT_1:33
for b1 being real-yielding Function holds 1 (#) b1 = b1
proof end;

theorem Th34: :: RFUNCT_1:34
for b1, b2, b3 being real-yielding Function holds b1 - (b2 - b3) = (b1 - b2) + b3
proof end;

theorem Th35: :: RFUNCT_1:35
for b1, b2, b3 being real-yielding Function holds b1 + (b2 - b3) = (b1 + b2) - b3
proof end;

theorem Th36: :: RFUNCT_1:36
for b1, b2 being real-yielding Function holds abs (b1 (#) b2) = (abs b1) (#) (abs b2)
proof end;

theorem Th37: :: RFUNCT_1:37
for b1 being real-yielding Function
for b2 being real number holds abs (b2 (#) b1) = (abs b2) (#) (abs b1)
proof end;

theorem Th38: :: RFUNCT_1:38
for b1 being real-yielding Function holds - b1 = (- 1) (#) b1
proof end;

theorem Th39: :: RFUNCT_1:39
for b1 being real-yielding Function holds - (- b1) = b1
proof end;

theorem Th40: :: RFUNCT_1:40
for b1, b2 being real-yielding Function holds b1 - b2 = b1 + (- b2)
proof end;

theorem Th41: :: RFUNCT_1:41
for b1, b2 being real-yielding Function holds b1 - (- b2) = b1 + b2
proof end;

theorem Th42: :: RFUNCT_1:42
for b1 being real-yielding Function holds (b1 ^ ) ^ = b1 | (dom (b1 ^ ))
proof end;

theorem Th43: :: RFUNCT_1:43
for b1, b2 being real-yielding Function holds (b1 (#) b2) ^ = (b1 ^ ) (#) (b2 ^ )
proof end;

theorem Th44: :: RFUNCT_1:44
for b1 being real-yielding Function
for b2 being real number st b2 <> 0 holds
(b2 (#) b1) ^ = (b2 " ) (#) (b1 ^ )
proof end;

theorem Th45: :: RFUNCT_1:45
for b1 being real-yielding Function holds (- b1) ^ = (- 1) (#) (b1 ^ )
proof end;

theorem Th46: :: RFUNCT_1:46
for b1 being real-yielding Function holds (abs b1) ^ = abs (b1 ^ )
proof end;

theorem Th47: :: RFUNCT_1:47
for b1, b2 being real-yielding Function holds b1 / b2 = b1 (#) (b2 ^ )
proof end;

theorem Th48: :: RFUNCT_1:48
for b1, b2 being real-yielding Function
for b3 being real number holds b3 (#) (b1 / b2) = (b3 (#) b1) / b2
proof end;

theorem Th49: :: RFUNCT_1:49
for b1, b2 being real-yielding Function holds (b1 / b2) (#) b2 = b1 | (dom (b2 ^ ))
proof end;

theorem Th50: :: RFUNCT_1:50
for b1, b2, b3, b4 being real-yielding Function holds (b1 / b2) (#) (b3 / b4) = (b1 (#) b3) / (b2 (#) b4)
proof end;

theorem Th51: :: RFUNCT_1:51
for b1, b2 being real-yielding Function holds (b1 / b2) ^ = (b2 | (dom (b2 ^ ))) / b1
proof end;

theorem Th52: :: RFUNCT_1:52
for b1, b2, b3 being real-yielding Function holds b1 (#) (b2 / b3) = (b1 (#) b2) / b3
proof end;

theorem Th53: :: RFUNCT_1:53
for b1, b2, b3 being real-yielding Function holds b1 / (b2 / b3) = (b1 (#) (b3 | (dom (b3 ^ )))) / b2
proof end;

theorem Th54: :: RFUNCT_1:54
for b1, b2 being real-yielding Function holds
( - (b1 / b2) = (- b1) / b2 & b1 / (- b2) = - (b1 / b2) )
proof end;

theorem Th55: :: RFUNCT_1:55
for b1, b2, b3 being real-yielding Function holds
( (b1 / b2) + (b3 / b2) = (b1 + b3) / b2 & (b1 / b2) - (b3 / b2) = (b1 - b3) / b2 )
proof end;

theorem Th56: :: RFUNCT_1:56
for b1, b2, b3, b4 being real-yielding Function holds (b1 / b2) + (b3 / b4) = ((b1 (#) b4) + (b3 (#) b2)) / (b2 (#) b4)
proof end;

theorem Th57: :: RFUNCT_1:57
for b1, b2, b3, b4 being real-yielding Function holds (b1 / b2) / (b3 / b4) = (b1 (#) (b4 | (dom (b4 ^ )))) / (b2 (#) b3)
proof end;

theorem Th58: :: RFUNCT_1:58
for b1, b2, b3, b4 being real-yielding Function holds (b1 / b2) - (b3 / b4) = ((b1 (#) b4) - (b3 (#) b2)) / (b2 (#) b4)
proof end;

theorem Th59: :: RFUNCT_1:59
for b1, b2 being real-yielding Function holds abs (b1 / b2) = (abs b1) / (abs b2)
proof end;

theorem Th60: :: RFUNCT_1:60
for b1 being set
for b2, b3 being real-yielding Function holds
( (b2 + b3) | b1 = (b2 | b1) + (b3 | b1) & (b2 + b3) | b1 = (b2 | b1) + b3 & (b2 + b3) | b1 = b2 + (b3 | b1) )
proof end;

theorem Th61: :: RFUNCT_1:61
for b1 being set
for b2, b3 being real-yielding Function holds
( (b2 (#) b3) | b1 = (b2 | b1) (#) (b3 | b1) & (b2 (#) b3) | b1 = (b2 | b1) (#) b3 & (b2 (#) b3) | b1 = b2 (#) (b3 | b1) )
proof end;

theorem Th62: :: RFUNCT_1:62
for b1 being set
for b2 being real-yielding Function holds
( (- b2) | b1 = - (b2 | b1) & (b2 ^ ) | b1 = (b2 | b1) ^ & (abs b2) | b1 = abs (b2 | b1) )
proof end;

theorem Th63: :: RFUNCT_1:63
for b1 being set
for b2, b3 being real-yielding Function holds
( (b2 - b3) | b1 = (b2 | b1) - (b3 | b1) & (b2 - b3) | b1 = (b2 | b1) - b3 & (b2 - b3) | b1 = b2 - (b3 | b1) )
proof end;

theorem Th64: :: RFUNCT_1:64
for b1 being set
for b2, b3 being real-yielding Function holds
( (b2 / b3) | b1 = (b2 | b1) / (b3 | b1) & (b2 / b3) | b1 = (b2 | b1) / b3 & (b2 / b3) | b1 = b2 / (b3 | b1) )
proof end;

theorem Th65: :: RFUNCT_1:65
for b1 being set
for b2 being real-yielding Function
for b3 being real number holds (b3 (#) b2) | b1 = b3 (#) (b2 | b1)
proof end;

theorem Th66: :: RFUNCT_1:66
for b1 being non empty set
for b2, b3 being PartFunc of b1, REAL holds
( ( b2 is total & b3 is total implies b2 + b3 is total ) & ( b2 + b3 is total implies ( b2 is total & b3 is total ) ) & ( b2 is total & b3 is total implies b2 - b3 is total ) & ( b2 - b3 is total implies ( b2 is total & b3 is total ) ) & ( b2 is total & b3 is total implies b2 (#) b3 is total ) & ( b2 (#) b3 is total implies ( b2 is total & b3 is total ) ) )
proof end;

theorem Th67: :: RFUNCT_1:67
for b1 being non empty set
for b2 being real number
for b3 being PartFunc of b1, REAL holds
( b3 is total iff b2 (#) b3 is total )
proof end;

theorem Th68: :: RFUNCT_1:68
for b1 being non empty set
for b2 being PartFunc of b1, REAL holds
( b2 is total iff - b2 is total )
proof end;

theorem Th69: :: RFUNCT_1:69
for b1 being non empty set
for b2 being PartFunc of b1, REAL holds
( b2 is total iff abs b2 is total )
proof end;

theorem Th70: :: RFUNCT_1:70
for b1 being non empty set
for b2 being PartFunc of b1, REAL holds
( b2 ^ is total iff ( b2 " {0} = {} & b2 is total ) )
proof end;

theorem Th71: :: RFUNCT_1:71
for b1 being non empty set
for b2, b3 being PartFunc of b1, REAL holds
( ( b2 is total & b3 " {0} = {} & b3 is total ) iff b2 / b3 is total )
proof end;

theorem Th72: :: RFUNCT_1:72
for b1 being non empty set
for b2 being Element of b1
for b3, b4 being PartFunc of b1, REAL st b3 is total & b4 is total holds
( (b3 + b4) . b2 = (b3 . b2) + (b4 . b2) & (b3 - b4) . b2 = (b3 . b2) - (b4 . b2) & (b3 (#) b4) . b2 = (b3 . b2) * (b4 . b2) )
proof end;

theorem Th73: :: RFUNCT_1:73
for b1 being non empty set
for b2 being Element of b1
for b3 being real number
for b4 being PartFunc of b1, REAL st b4 is total holds
(b3 (#) b4) . b2 = b3 * (b4 . b2)
proof end;

theorem Th74: :: RFUNCT_1:74
for b1 being non empty set
for b2 being Element of b1
for b3 being PartFunc of b1, REAL st b3 is total holds
( (- b3) . b2 = - (b3 . b2) & (abs b3) . b2 = abs (b3 . b2) )
proof end;

theorem Th75: :: RFUNCT_1:75
for b1 being non empty set
for b2 being Element of b1
for b3 being PartFunc of b1, REAL st b3 ^ is total holds
(b3 ^ ) . b2 = (b3 . b2) "
proof end;

theorem Th76: :: RFUNCT_1:76
for b1 being non empty set
for b2 being Element of b1
for b3, b4 being PartFunc of b1, REAL st b3 is total & b4 ^ is total holds
(b3 / b4) . b2 = (b3 . b2) * ((b4 . b2) " )
proof end;

definition
let c1, c2 be set ;
redefine func chi as chi c1,c2 -> PartFunc of a2, REAL ;
coherence
chi c1,c2 is PartFunc of c2, REAL
proof end;
end;

theorem Th77: :: RFUNCT_1:77
for b1 being set
for b2 being non empty set
for b3 being PartFunc of b2, REAL holds
( b3 = chi b1,b2 iff ( dom b3 = b2 & ( for b4 being Element of b2 holds
( ( b4 in b1 implies b3 . b4 = 1 ) & ( not b4 in b1 implies b3 . b4 = 0 ) ) ) ) )
proof end;

theorem Th78: :: RFUNCT_1:78
for b1 being set
for b2 being non empty set holds chi b1,b2 is total
proof end;

theorem Th79: :: RFUNCT_1:79
for b1 being set
for b2 being non empty set
for b3 being Element of b2 holds
( b3 in b1 iff (chi b1,b2) . b3 = 1 ) by Th77;

theorem Th80: :: RFUNCT_1:80
for b1 being set
for b2 being non empty set
for b3 being Element of b2 holds
( not b3 in b1 iff (chi b1,b2) . b3 = 0 ) by Th77;

theorem Th81: :: RFUNCT_1:81
for b1 being set
for b2 being non empty set
for b3 being Element of b2 holds
( b3 in b2 \ b1 iff (chi b1,b2) . b3 = 0 )
proof end;

theorem Th82: :: RFUNCT_1:82
canceled;

theorem Th83: :: RFUNCT_1:83
for b1 being non empty set
for b2 being Element of b1 holds (chi b1,b1) . b2 = 1 by Th77;

theorem Th84: :: RFUNCT_1:84
for b1 being set
for b2 being non empty set
for b3 being Element of b2 holds
( (chi b1,b2) . b3 <> 1 iff (chi b1,b2) . b3 = 0 )
proof end;

theorem Th85: :: RFUNCT_1:85
for b1, b2 being set
for b3 being non empty set st b1 misses b2 holds
(chi b1,b3) + (chi b2,b3) = chi (b1 \/ b2),b3
proof end;

theorem Th86: :: RFUNCT_1:86
for b1, b2 being set
for b3 being non empty set holds (chi b1,b3) (#) (chi b2,b3) = chi (b1 /\ b2),b3
proof end;

definition
let c1 be real-yielding Function;
let c2 be set ;
pred c1 is_bounded_above_on c2 means :Def9: :: RFUNCT_1:def 9
ex b1 being real number st
for b2 being set st b2 in a2 /\ (dom a1) holds
a1 . b2 <= b1;
pred c1 is_bounded_below_on c2 means :Def10: :: RFUNCT_1:def 10
ex b1 being real number st
for b2 being set st b2 in a2 /\ (dom a1) holds
b1 <= a1 . b2;
end;

:: deftheorem Def9 defines is_bounded_above_on RFUNCT_1:def 9 :
for b1 being real-yielding Function
for b2 being set holds
( b1 is_bounded_above_on b2 iff ex b3 being real number st
for b4 being set st b4 in b2 /\ (dom b1) holds
b1 . b4 <= b3 );

:: deftheorem Def10 defines is_bounded_below_on RFUNCT_1:def 10 :
for b1 being real-yielding Function
for b2 being set holds
( b1 is_bounded_below_on b2 iff ex b3 being real number st
for b4 being set st b4 in b2 /\ (dom b1) holds
b3 <= b1 . b4 );

definition
let c1 be real-yielding Function;
let c2 be set ;
pred c1 is_bounded_on c2 means :Def11: :: RFUNCT_1:def 11
( a1 is_bounded_above_on a2 & a1 is_bounded_below_on a2 );
end;

:: deftheorem Def11 defines is_bounded_on RFUNCT_1:def 11 :
for b1 being real-yielding Function
for b2 being set holds
( b1 is_bounded_on b2 iff ( b1 is_bounded_above_on b2 & b1 is_bounded_below_on b2 ) );

theorem Th87: :: RFUNCT_1:87
canceled;

theorem Th88: :: RFUNCT_1:88
canceled;

theorem Th89: :: RFUNCT_1:89
canceled;

theorem Th90: :: RFUNCT_1:90
for b1 being set
for b2 being real-yielding Function holds
( b2 is_bounded_on b1 iff ex b3 being real number st
for b4 being set st b4 in b1 /\ (dom b2) holds
abs (b2 . b4) <= b3 )
proof end;

theorem Th91: :: RFUNCT_1:91
for b1, b2 being set
for b3 being real-yielding Function holds
( ( b1 c= b2 & b3 is_bounded_above_on b2 implies b3 is_bounded_above_on b1 ) & ( b1 c= b2 & b3 is_bounded_below_on b2 implies b3 is_bounded_below_on b1 ) & ( b1 c= b2 & b3 is_bounded_on b2 implies b3 is_bounded_on b1 ) )
proof end;

theorem Th92: :: RFUNCT_1:92
for b1, b2 being set
for b3 being real-yielding Function st b3 is_bounded_above_on b1 & b3 is_bounded_below_on b2 holds
b3 is_bounded_on b1 /\ b2
proof end;

theorem Th93: :: RFUNCT_1:93
for b1 being set
for b2 being real-yielding Function st b1 misses dom b2 holds
b2 is_bounded_on b1
proof end;

theorem Th94: :: RFUNCT_1:94
for b1 being set
for b2 being real number
for b3 being real-yielding Function st 0 = b2 holds
b2 (#) b3 is_bounded_on b1
proof end;

theorem Th95: :: RFUNCT_1:95
for b1 being set
for b2 being real number
for b3 being real-yielding Function holds
( ( b3 is_bounded_above_on b1 & 0 <= b2 implies b2 (#) b3 is_bounded_above_on b1 ) & ( b3 is_bounded_above_on b1 & b2 <= 0 implies b2 (#) b3 is_bounded_below_on b1 ) )
proof end;

theorem Th96: :: RFUNCT_1:96
for b1 being set
for b2 being real number
for b3 being real-yielding Function holds
( ( b3 is_bounded_below_on b1 & 0 <= b2 implies b2 (#) b3 is_bounded_below_on b1 ) & ( b3 is_bounded_below_on b1 & b2 <= 0 implies b2 (#) b3 is_bounded_above_on b1 ) )
proof end;

theorem Th97: :: RFUNCT_1:97
for b1 being set
for b2 being real number
for b3 being real-yielding Function st b3 is_bounded_on b1 holds
b2 (#) b3 is_bounded_on b1
proof end;

theorem Th98: :: RFUNCT_1:98
for b1 being set
for b2 being real-yielding Function holds abs b2 is_bounded_below_on b1
proof end;

theorem Th99: :: RFUNCT_1:99
for b1 being set
for b2 being real-yielding Function st b2 is_bounded_on b1 holds
( abs b2 is_bounded_on b1 & - b2 is_bounded_on b1 )
proof end;

theorem Th100: :: RFUNCT_1:100
for b1, b2 being set
for b3, b4 being real-yielding Function holds
( ( b3 is_bounded_above_on b1 & b4 is_bounded_above_on b2 implies b3 + b4 is_bounded_above_on b1 /\ b2 ) & ( b3 is_bounded_below_on b1 & b4 is_bounded_below_on b2 implies b3 + b4 is_bounded_below_on b1 /\ b2 ) & ( b3 is_bounded_on b1 & b4 is_bounded_on b2 implies b3 + b4 is_bounded_on b1 /\ b2 ) )
proof end;

theorem Th101: :: RFUNCT_1:101
for b1, b2 being set
for b3, b4 being real-yielding Function st b3 is_bounded_on b1 & b4 is_bounded_on b2 holds
( b3 (#) b4 is_bounded_on b1 /\ b2 & b3 - b4 is_bounded_on b1 /\ b2 )
proof end;

theorem Th102: :: RFUNCT_1:102
for b1, b2 being set
for b3 being real-yielding Function st b3 is_bounded_above_on b1 & b3 is_bounded_above_on b2 holds
b3 is_bounded_above_on b1 \/ b2
proof end;

theorem Th103: :: RFUNCT_1:103
for b1, b2 being set
for b3 being real-yielding Function st b3 is_bounded_below_on b1 & b3 is_bounded_below_on b2 holds
b3 is_bounded_below_on b1 \/ b2
proof end;

theorem Th104: :: RFUNCT_1:104
for b1, b2 being set
for b3 being real-yielding Function st b3 is_bounded_on b1 & b3 is_bounded_on b2 holds
b3 is_bounded_on b1 \/ b2
proof end;

theorem Th105: :: RFUNCT_1:105
for b1, b2 being set
for b3 being non empty set
for b4, b5 being PartFunc of b3, REAL st b4 is_constant_on b1 & b5 is_constant_on b2 holds
( b4 + b5 is_constant_on b1 /\ b2 & b4 - b5 is_constant_on b1 /\ b2 & b4 (#) b5 is_constant_on b1 /\ b2 )
proof end;

theorem Th106: :: RFUNCT_1:106
for b1 being set
for b2 being non empty set
for b3 being real number
for b4 being PartFunc of b2, REAL st b4 is_constant_on b1 holds
b3 (#) b4 is_constant_on b1
proof end;

theorem Th107: :: RFUNCT_1:107
for b1 being set
for b2 being non empty set
for b3 being PartFunc of b2, REAL st b3 is_constant_on b1 holds
( abs b3 is_constant_on b1 & - b3 is_constant_on b1 )
proof end;

theorem Th108: :: RFUNCT_1:108
for b1 being set
for b2 being non empty set
for b3 being PartFunc of b2, REAL st b3 is_constant_on b1 holds
b3 is_bounded_on b1
proof end;

theorem Th109: :: RFUNCT_1:109
for b1 being set
for b2 being non empty set
for b3 being PartFunc of b2, REAL st b3 is_constant_on b1 holds
( ( for b4 being real number holds b4 (#) b3 is_bounded_on b1 ) & - b3 is_bounded_on b1 & abs b3 is_bounded_on b1 )
proof end;

theorem Th110: :: RFUNCT_1:110
for b1, b2 being set
for b3 being non empty set
for b4, b5 being PartFunc of b3, REAL holds
( ( b4 is_bounded_above_on b1 & b5 is_constant_on b2 implies b4 + b5 is_bounded_above_on b1 /\ b2 ) & ( b4 is_bounded_below_on b1 & b5 is_constant_on b2 implies b4 + b5 is_bounded_below_on b1 /\ b2 ) & ( b4 is_bounded_on b1 & b5 is_constant_on b2 implies b4 + b5 is_bounded_on b1 /\ b2 ) )
proof end;

theorem Th111: :: RFUNCT_1:111
for b1, b2 being set
for b3 being non empty set
for b4, b5 being PartFunc of b3, REAL holds
( ( b4 is_bounded_above_on b1 & b5 is_constant_on b2 implies b4 - b5 is_bounded_above_on b1 /\ b2 ) & ( b4 is_bounded_below_on b1 & b5 is_constant_on b2 implies b4 - b5 is_bounded_below_on b1 /\ b2 ) & ( b4 is_bounded_on b1 & b5 is_constant_on b2 implies ( b4 - b5 is_bounded_on b1 /\ b2 & b5 - b4 is_bounded_on b1 /\ b2 & b4 (#) b5 is_bounded_on b1 /\ b2 ) ) )
proof end;