thus (p => q) => ((q => r) => (p => r)) in TAUT by Th1; :: according to CQC_THE1:def 11 :: thesis: verum