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