theorem Th40: :: REAL_NS2:40

for n being Nat
for Ar being Subset of (REAL-NS n)
for At being Subset of (TOP-REAL n) st Ar = At holds
( Ar is Affine iff At is Affine )