truth table (p => (q=>p))