theorem Th18: :: ASCOLI:18

for M being non empty MetrSpace
for S being non empty compact TopSpace
for T being NormedLinearTopSpace
for F being non empty Subset of (R_NormSpace_of_ContinuousFunctions (S,T))
for G being Subset of (Funcs ( the carrier of M, the carrier of T)) st S = TopSpaceMetr M & T is complete & G = F holds
( Cl F is compact iff ( G is equicontinuous & ( for x being Point of S
for Fx being non empty Subset of (MetricSpaceNorm T) st Fx = { (f . x) where f is Function of S,T : f in F } holds
(MetricSpaceNorm T) | (Cl Fx) is compact ) ) )