let A be non empty set ; :: thesis: for J being interpretation of A
for S being Element of CQC-Sub-WFF st S is Sub_VERUM holds
for v being Element of Valuations_in A holds
( J,v |= CQC_Sub S iff J,v . (Val_S (v,S)) |= S )
let J be interpretation of A; :: thesis: for S being Element of CQC-Sub-WFF st S is Sub_VERUM holds
for v being Element of Valuations_in A holds
( J,v |= CQC_Sub S iff J,v . (Val_S (v,S)) |= S )
let S be Element of CQC-Sub-WFF ; :: thesis: ( S is Sub_VERUM implies for v being Element of Valuations_in A holds
( J,v |= CQC_Sub S iff J,v . (Val_S (v,S)) |= S ) )
assume A1: S is Sub_VERUM ; :: thesis: for v being Element of Valuations_in A holds
( J,v |= CQC_Sub S iff J,v . (Val_S (v,S)) |= S )
let v be Element of Valuations_in A; :: thesis: ( J,v |= CQC_Sub S iff J,v . (Val_S (v,S)) |= S )
ex Sub being CQC_Substitution st S = [VERUM,Sub] by A1, SUBSTUT1:def 19;
then S `1 = VERUM by MCART_1:7;
then ( J,v . (Val_S (v,S)) |= VERUM iff J,v . (Val_S (v,S)) |= S ) by Def3;
hence ( J,v |= CQC_Sub S implies J,v . (Val_S (v,S)) |= S ) by VALUAT_1:32; :: thesis: ( J,v . (Val_S (v,S)) |= S implies J,v |= CQC_Sub S )
( J,v . (Val_S (v,S)) |= S implies J,v |= VERUM ) by VALUAT_1:32;
hence ( J,v . (Val_S (v,S)) |= S implies J,v |= CQC_Sub S ) by A1, Th3; :: thesis: verum