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

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