theorem Th40:
  x in B implies FinMeet(B,f) [= f.x
proof
  reconsider f9 = f as Function of A, the carrier of L.:;
  assume x in B;
  then f9.x [= FinJoin(B,f9) by Th28;
  hence thesis by Th39;
end;
