let p, q be boolean object ; :: thesis: ( p => q = TRUE & q => p = TRUE implies p = q )
( p = FALSE or p = TRUE ) by Def3;
hence ( p => q = TRUE & q => p = TRUE implies p = q ) ; :: thesis: verum