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