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