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