theorem Th1:
  the_arity_of P = len l
proof
  thus len l = k by CARD_1:def 7 .= the_arity_of P by QC_LANG1:11;
end;
