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