let Q be Girard-Quantale; :: thesis: for a, b being Element of Q holds
( Bottom (a "\/" b) = (Bottom a) "/\" (Bottom b) & Bottom (a "/\" b) = (Bottom a) "\/" (Bottom b) )
let a, b be Element of Q; :: thesis: ( Bottom (a "\/" b) = (Bottom a) "/\" (Bottom b) & Bottom (a "/\" b) = (Bottom a) "\/" (Bottom b) )
A1:
( a "\/" b = "\/" {a,b} & (Bottom a) "\/" (Bottom b) = "\/" {(Bottom a),(Bottom b)} & a "/\" b = "/\" {a,b} & (Bottom a) "/\" (Bottom b) = "/\" {(Bottom a),(Bottom b)} )
by LATTICE3:44;
A2:
{ (Bottom c) where c is Element of Q : c in {a,b} } = {(Bottom a),(Bottom b)}
proof
thus
{ (Bottom c) where c is Element of Q : c in {a,b} } c= {(Bottom a),(Bottom b)}
:: according to XBOOLE_0:def 10 :: thesis: {(Bottom a),(Bottom b)} c= { (Bottom c) where c is Element of Q : c in {a,b} }
let x be
set ;
:: according to TARSKI:def 3 :: thesis: ( not x in {(Bottom a),(Bottom b)} or x in { (Bottom c) where c is Element of Q : c in {a,b} } )
assume
x in {(Bottom a),(Bottom b)}
;
:: thesis: x in { (Bottom c) where c is Element of Q : c in {a,b} }
then
( (
x = Bottom a &
a in {a,b} ) or (
x = Bottom b &
b in {a,b} ) )
by TARSKI:def 2;
hence
x in { (Bottom c) where c is Element of Q : c in {a,b} }
;
:: thesis: verum
end;
hence
Bottom (a "\/" b) = (Bottom a) "/\" (Bottom b)
by A1, Th24; :: thesis: Bottom (a "/\" b) = (Bottom a) "\/" (Bottom b)
thus
Bottom (a "/\" b) = (Bottom a) "\/" (Bottom b)
by A1, A2, Th25; :: thesis: verum