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