theorem
  P is QC-pred_symbol of the_arity_of P, A
proof
  set k = the_arity_of P;
  set QCP = {Q : the_arity_of Q = k };
  P in QCP;
  hence thesis;
end;
