SetIsFinite( S, false ) for polynomial rings and Weyl algebras