reserve X for non empty CUNITSTR;
reserve a, b for Complex;
reserve x, y for Point of X;
reserve X for ComplexUnitarySpace;
reserve x, y, z, u, v for Point of X;

theorem
  x <> y iff dist(x,y) > 0
proof
  thus x <> y implies dist(x,y) > 0
  proof
    assume x <> y;
    then dist(x,y) <> 0 by Th47;
    hence thesis by Th39;
  end;
  thus thesis by Th45;
end;
