let p, q be Element of CQC-WFF ; :: thesis: for X being Subset of CQC-WFF holds
( X |- ('not' ('not' p)) => q iff X |- p => q )
let X be Subset of CQC-WFF; :: thesis: ( X |- ('not' ('not' p)) => q iff X |- p => q )
thus ( X |- ('not' ('not' p)) => q implies X |- p => q ) :: thesis: ( X |- p => q implies X |- ('not' ('not' p)) => q )

proof

assume A1: X |- ('not' ('not' p)) => q ; :: thesis: X |- p => q
X |- (('not' ('not' p)) => q) => (p => q) by CQC_THE1:98;
hence X |- p => q by A1, CQC_THE1:92; :: thesis: verum

end;

assume A2: X |- p => q ; :: thesis: X |- ('not' ('not' p)) => q
X |- ('not' ('not' p)) => p by CQC_THE1:98;
hence X |- ('not' ('not' p)) => q by A2, Th76; :: thesis: verum