for L being Z_Lattice
for I being Basis of L st ( for v, u being Vector of L st v in I & u in I holds
<;v,u;> in INT ) holds
L is INTegral by ThIntLat1A;