theorem Th10:
  FinMeet {.p.} = p
proof
  set M = the L_meet of L;
  thus FinMeet {.p.} = M $$ ({.p.},id L) by LATTICE2:def 4
    .= (id L).p by SETWISEO:17
    .= p by FUNCT_1:18;
end;
