theorem Th15:
  (for v holds (the L_join of L).(u,v) = v) implies u = Bottom L
proof
  assume for v holds (the L_join of L).(u,v) = v;
  then for v holds u "\/" v = v;
  hence thesis by Th14;
end;
