let Al be QC-alphabet ; :: thesis: for A being non empty set
for x being bound_QC-variable of Al
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 |= All (x,p) iff for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p )
let A be non empty set ; :: thesis: for x being bound_QC-variable of Al
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 |= All (x,p) iff for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p )
let x be bound_QC-variable of Al; :: 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 |= All (x,p) iff for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= 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 |= All (x,p) iff for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p )
let p be Element of CQC-WFF Al; :: thesis: for J being interpretation of Al,A holds
( J,v |= All (x,p) iff for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p )
let J be interpretation of Al,A; :: thesis: ( J,v |= All (x,p) iff for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p )

A1: now :: thesis: ( ( for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p ) implies J,v |= All (x,p) )

assume A2: for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p ; :: thesis: J,v |= All (x,p)
for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
(Valid (p,J)) . w = TRUE

proof

let w be Element of Valuations_in (Al,A); :: thesis: ( ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) implies (Valid (p,J)) . w = TRUE )
assume for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ; :: thesis: (Valid (p,J)) . w = TRUE
then J,w |= p by A2;
hence (Valid (p,J)) . w = TRUE by Def7; :: thesis: verum

end;

hence J,v |= All (x,p) by Th20; :: thesis: verum

end;

now :: thesis: ( J,v |= All (x,p) implies for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p )

assume A3: J,v |= All (x,p) ; :: thesis: for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p
let w be Element of Valuations_in (Al,A); :: thesis: ( ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) implies J,w |= p )
assume for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ; :: thesis: J,w |= p
then (Valid (p,J)) . w = TRUE by A3, Th20;
hence J,w |= p by Def7; :: thesis: verum

end;

hence ( J,v |= All (x,p) iff for w being Element of Valuations_in (Al,A) st ( for y being bound_QC-variable of Al st x <> y holds
w . y = v . y ) holds
J,w |= p ) by A1; :: thesis: verum