theorem :: INTEGR20:2

for X, X1 being set
for Y being RealNormSpace
for f being PartFunc of REAL, the carrier of Y st f | X is uniformly_continuous & X1 c= X holds
f | X1 is uniformly_continuous