let p, q be QC-formula; :: thesis: ( ( p is closed & q is closed ) iff p <=> q is closed )
p <=> q = (p => q) '&' (q => p) by QC_LANG2:def 4;
then ( p <=> q is closed iff ( p => q is closed & q => p is closed ) ) by Th26;
hence ( ( p is closed & q is closed ) iff p <=> q is closed ) by Th30; :: thesis: verum