theorem
  half_length(A,A) = 0
  proof
    half_length(A,A) = 1/2 * 0 by EUCLID_6:42;
    hence thesis;
  end;
