
theorem LmDE0:
  for L being Z_Lattice holds 0.DivisibleMod(L) is Dual of L
  proof
    let L be Z_Lattice;
    for v being Vector of DivisibleMod(L) st v in EMbedding(L) holds
    (ScProductDM(L)).(0.DivisibleMod(L), v) in INT.Ring by LmDE00;
    hence thesis by defDualElement;
  end;
