theorem Th9:
  FinJoin {.p.} = p
proof
  thus FinJoin {.p.} =(the L_join of L) $$ ({.p.},id L) by LATTICE2:def 3
    .= (id L).p by SETWISEO:17
    .= p by FUNCT_1:18;
end;
