theorem Th22:
  FinMeet(f.:B,g) = FinMeet(B,g*f)
proof
  set M= the L_meet of 1L;
  thus FinMeet(f.:B,g) = M$$(f.:B,g) by LATTICE2:def 4
    .= M$$(B,g*f) by SETWISEO:35
    .= FinMeet(B,g*f)by LATTICE2:def 4;
end;
