thus TrivOrtLat is involutive :: thesis: TrivOrtLat is with_Top
proof
let x be Element of TrivOrtLat ; :: according to ROBBINS3:def 6 :: thesis: (x ` ) ` = x
thus (x ` ) ` = x by STRUCT_0:def 10; :: thesis: verum
end;
thus TrivOrtLat is with_Top :: thesis: verum
proof
let x, y be Element of TrivOrtLat ; :: according to ROBBINS3:def 7 :: thesis: x |_| (x ` ) = y |_| (y ` )
thus x |_| (x ` ) = y |_| (y ` ) by STRUCT_0:def 10; :: thesis: verum
end;