reserve x,y,X,X1,Y,Z for set;
reserve L for Lattice;
reserve F,H for Filter of L;
reserve p,q,r for Element of L;
reserve L1, L2 for Lattice;
reserve a1,b1 for Element of L1;
reserve a2 for Element of L2;
reserve f for Homomorphism of L1,L2;
reserve B for Element of Fin the carrier of L;
reserve DL for distributive Lattice;
reserve f for Homomorphism of DL,L2;
reserve 0L for lower-bounded Lattice,
  B,B1,B2 for Element of Fin the carrier of 0L,
  b for Element of 0L;
reserve f for UnOp of the carrier of 0L;

theorem
  FinJoin B1 "\/" FinJoin B2 = FinJoin (B1 \/ B2)
proof
  set J = the L_join of 0L;
  thus FinJoin (B1 \/ B2) = J $$ (B1 \/ B2,id 0L) by LATTICE2:def 3
    .= J $$ (B1,id 0L) "\/" J $$ (B2,id 0L) by SETWISEO:33
    .= FinJoin B1 "\/" J $$ (B2,id 0L) by LATTICE2:def 3
    .=FinJoin B1 "\/" FinJoin B2 by LATTICE2:def 3;
end;
