let Al be QC-alphabet ; :: thesis: for A being non empty set
for v being Element of Valuations_in (Al,A)
for p being Element of CQC-WFF Al
for J being interpretation of Al,A holds
( J,v |= 'not' p iff not J,v |= p )
let A be non empty set ; :: thesis: for v being Element of Valuations_in (Al,A)
for p being Element of CQC-WFF Al
for J being interpretation of Al,A holds
( J,v |= 'not' p iff not J,v |= p )
let v be Element of Valuations_in (Al,A); :: thesis: for p being Element of CQC-WFF Al
for J being interpretation of Al,A holds
( J,v |= 'not' p iff not J,v |= p )
let p be Element of CQC-WFF Al; :: thesis: for J being interpretation of Al,A holds
( J,v |= 'not' p iff not J,v |= p )
let J be interpretation of Al,A; :: thesis: ( J,v |= 'not' p iff not J,v |= p )

A1: now :: thesis: ( not J,v |= p implies J,v |= 'not' p )

assume not J,v |= p ; :: thesis: J,v |= 'not' p
then not (Valid (p,J)) . v = TRUE ;
then (Valid (p,J)) . v = FALSE by XBOOLEAN:def 3;
then 'not' ((Valid (p,J)) . v) = TRUE by MARGREL1:11;
then ('not' (Valid (p,J))) . v = TRUE by MARGREL1:def 19;
then (Valid (('not' p),J)) . v = TRUE by Lm1;
hence J,v |= 'not' p ; :: thesis: verum

end;

now :: thesis: ( J,v |= 'not' p implies not J,v |= p )

assume J,v |= 'not' p ; :: thesis: not J,v |= p
then (Valid (('not' p),J)) . v = TRUE ;
then ('not' (Valid (p,J))) . v = TRUE by Lm1;
then 'not' ((Valid (p,J)) . v) = TRUE by MARGREL1:def 19;
then (Valid (p,J)) . v = FALSE by MARGREL1:11;
hence not J,v |= p ; :: thesis: verum

end;

hence ( J,v |= 'not' p iff not J,v |= p ) by A1; :: thesis: verum