reserve p,q,r,s for boolean object;

theorem
  p => (p => q) = TRUE implies p => q = TRUE
proof
  q = FALSE or q = TRUE by Def3;
  hence thesis;
end;
