let F, H be Element of QC-WFF ; :: thesis: ( F is_immediate_constituent_of 'not' H iff F = H )
thus ( F is_immediate_constituent_of 'not' H implies F = H ) :: thesis: ( F = H implies F is_immediate_constituent_of 'not' H )

proof

'not' H is negative by QC_LANG1:def 17;
then A1: ((@ ('not' H)) . 1) `1 = 1 by QC_LANG1:16;

A2: now

given H1 being Element of QC-WFF such that A3: ( 'not' H = F '&' H1 or 'not' H = H1 '&' F ) ; :: thesis: contradiction
( F '&' H1 is conjunctive & H1 '&' F is conjunctive ) by QC_LANG1:def 18;
hence contradiction by A1, A3, QC_LANG1:16; :: thesis: verum

end;

A4: now

given x being bound_QC-variable such that A5: 'not' H = All (x,F) ; :: thesis: contradiction
All (x,F) is universal by QC_LANG1:def 19;
hence contradiction by A1, A5, QC_LANG1:16; :: thesis: verum

end;

assume ( 'not' H = 'not' F or ex H1 being Element of QC-WFF st
( 'not' H = F '&' H1 or 'not' H = H1 '&' F ) or ex x being bound_QC-variable st 'not' H = All (x,F) ) ; :: according to QC_LANG2:def 19 :: thesis: F = H
hence F = H by A2, A4, FINSEQ_1:33; :: thesis: verum

end;

thus ( F = H implies F is_immediate_constituent_of 'not' H ) by Def20; :: thesis: verum