let p, q be Element of CQC-WFF ; :: thesis: (p <=> q) => (q => p) in TAUT
p <=> q = (p => q) '&' (q => p) by QC_LANG2:def 4;
hence (p <=> q) => (q => p) in TAUT by Th21; :: thesis: verum