let X be Subset of CQC-WFF ; :: thesis: for p being Element of CQC-WFF holds (('not' p) => p) => p in Cn X
let p be Element of CQC-WFF ; :: thesis: (('not' p) => p) => p in Cn X
for T being Subset of CQC-WFF st T is being_a_theory & X c= T holds
(('not' p) => p) => p in T by Def1;
hence (('not' p) => p) => p in Cn X by Def2; :: thesis: verum