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
for v, u being Vector of L holds <;v,u;> in INT