let x be bound_QC-variable; :: thesis: for p being QC-formula holds still_not-bound_in (Ex (x,p)) = (still_not-bound_in p) \ {x}
let p be QC-formula; :: thesis: still_not-bound_in (Ex (x,p)) = (still_not-bound_in p) \ {x}
Ex (x,p) = 'not' (All (x,('not' p))) by QC_LANG2:def 5;
hence still_not-bound_in (Ex (x,p)) = still_not-bound_in (All (x,('not' p))) by Th11
.= (still_not-bound_in ('not' p)) \ {x} by Th16
.= (still_not-bound_in p) \ {x} by Th11 ;
:: thesis: verum