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

theorem
  'not' p = TRUE implies p => q = TRUE;
