let a be Integer; :: thesis: for X being Subset of INT holds a ** X c= INT
let X be Subset of INT ; :: thesis: a ** X c= INT
let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in a ** X or x in INT )
assume A1: x in a ** X ; :: thesis: x in INT
then reconsider x9 = x as Real ;
consider y being Real such that
A2: y in X and
A3: x9 = a * y by A1, INTEGRA2:def 2;
reconsider y9 = y as Integer by A2;
x9 = a * y9 by A3;
hence x in INT by INT_1:def 2; :: thesis: verum