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