let L be B_Lattice; :: thesis: for a being Element of holds (a ` ) "\/" a = Top L
let a be Element of ; :: thesis: (a ` ) "\/" a = Top L
a ` is_a_complement_of a by Def21;
hence (a ` ) "\/" a = Top L by Def18; :: thesis: verum