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