let p, q be Element of CQC-WFF ; :: thesis: p => ((p => q) => q) is valid
thus p => ((p => q) => q) in TAUT by Th7; :: according to CQC_THE1:def 11 :: thesis: verum