let L be Lattice; :: thesis: for I, J being Ideal of L holds (.(I \/ J).> = { r where r is Element of L : ex p, q being Element of L st
( r [= p "\/" q & p in I & q in J ) }
let I, J be Ideal of L; :: thesis: (.(I \/ J).> = { r where r is Element of L : ex p, q being Element of L st
( r [= p "\/" q & p in I & q in J ) }
( (.(I \/ J).> = <.((I \/ J) .: ).) & (I \/ J) .: = I \/ J & I .: = I & J .: = J )
by Th37;
then A1:
(.(I \/ J).> = { r' where r' is Element of (L .: ) : ex p', q' being Element of (L .: ) st
( p' "/\" q' [= r' & p' in I & q' in J ) }
by FILTER_0:48;
thus
(.(I \/ J).> c= { r where r is Element of L : ex p, q being Element of L st
( r [= p "\/" q & p in I & q in J ) }
:: according to XBOOLE_0:def 10 :: thesis: { r where r is Element of L : ex p, q being Element of L st
( r [= p "\/" q & p in I & q in J ) } c= (.(I \/ J).>
let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in { r where r is Element of L : ex p, q being Element of L st
( r [= p "\/" q & p in I & q in J ) } or x in (.(I \/ J).> )
assume
x in { r where r is Element of L : ex p, q being Element of L st
( r [= p "\/" q & p in I & q in J ) }
; :: thesis: x in (.(I \/ J).>
then consider r being Element of L such that
A4:
( x = r & ex p, q being Element of L st
( r [= p "\/" q & p in I & q in J ) )
;
consider p, q being Element of L such that
A5:
( r [= p "\/" q & p in I & q in J )
by A4;
( (p "\/" q) .: [= r .: & (p "\/" q) .: = p "\/" q & p "\/" q = (p .: ) "/\" (q .: ) & p .: = p & q .: = q & r .: = r )
by A5, LATTICE2:53;
hence
x in (.(I \/ J).>
by A1, A4, A5; :: thesis: verum