theorem Th9:
  f <> {} implies X_axis(f) <> {}
proof
A1: len X_axis(f) = len f by GOBOARD1:def 1;
  assume f <> {} & X_axis(f) = {};
  hence contradiction by A1;
end;
