let p, q, r be Element of CQC-WFF ; :: thesis: (p => (q => r)) => ((p => q) => (p => r)) in TAUT
( (q => r) => ((p => q) => (p => r)) in TAUT & ((q => r) => ((p => q) => (p => r))) => ((p => (q => r)) => ((p => q) => (p => r))) in TAUT ) by Lm22, Th9;
hence (p => (q => r)) => ((p => q) => (p => r)) in TAUT by CQC_THE1:82; :: thesis: verum