let DL be distributive upper-bounded Lattice; :: thesis: for B being Element of Fin the carrier of DL
for p being Element of DL
for f being UnOp of the carrier of DL holds the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p)))

let B be Element of Fin the carrier of DL; :: thesis: for p being Element of DL
for f being UnOp of the carrier of DL holds the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p)))

let p be Element of DL; :: thesis: for f being UnOp of the carrier of DL holds the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p)))
let f be UnOp of the carrier of DL; :: thesis: the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p)))
set J = the L_join of DL;
set M = the L_meet of DL;
now :: thesis: the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p)))
per cases ( B <> {} or B = {} ) ;
suppose B <> {} ; :: thesis: the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p)))
hence the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p))) by ; :: thesis: verum
end;
suppose A1: B = {} ; :: thesis: the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p)))
A2: now :: thesis: for f being UnOp of the carrier of DL holds the L_meet of DL \$\$ (B,f) = Top DL
let f be UnOp of the carrier of DL; :: thesis: the L_meet of DL \$\$ (B,f) = Top DL
thus the L_meet of DL \$\$ (B,f) = FinMeet (({}. the carrier of DL),f) by
.= Top DL by Lm2 ; :: thesis: verum
end;
hence the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = (Top DL) "\/" p
.= Top DL
.= the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p))) by A2 ;
:: thesis: verum
end;
end;
end;
hence the L_join of DL . (( the L_meet of DL \$\$ (B,f)),p) = the L_meet of DL \$\$ (B,( the L_join of DL [:] (f,p))) ; :: thesis: verum