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