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

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