theorem Th30:
  [p,index p,{}.bound_QC-variables(A),id(bound_QC-variables(A))] in
 SepQuadruples(p)
proof
  SepQuadruples(p) is_Sep-closed_on p by Def13;
  hence thesis;
end;
