reserve A for QC-alphabet;
reserve i,j,k,l,m,n for Nat;
reserve a,b,e for set;
reserve t,u,v,w,z for QC-symbol of A;
reserve p,q,r,s for Element of CQC-WFF(A);
reserve x for Element of bound_QC-variables(A);
reserve ll for CQC-variable_list of k,A;
reserve P for QC-pred_symbol of k,A;
reserve f,h for Element of Funcs(bound_QC-variables(A),bound_QC-variables(A)),
  K,L for Element of Fin bound_QC-variables(A);

theorem
  SepVar VERUM(A) = VERUM(A)
proof
  index VERUM(A) = 0(A) by Th22;
  hence SepVar VERUM(A) =
   ([:QC-symbols(A),Funcs(bound_QC-variables(A),bound_QC-variables(A)):]
    --> VERUM(A)).[0(A),id bound_QC-variables(A)] by Def7 .= VERUM(A);
end;
