theorem Th17:
  len(W) >= 0
proof
  now
    per cases;
    suppose
      W = {}H;
      hence thesis by Th13;
    end;
    suppose
      W <> {}H;
      hence thesis by Th16;
    end;
  end;
  hence thesis;
end;
