theorem Th17:
  (for v holds (the L_meet of L).(u,v) = v) implies u = Top L
proof
  assume for v holds (the L_meet of L).(u,v) = v;
  then for v holds u "/\" v = v;
  hence thesis by Th16;
end;
