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