reserve i, j, k, c, m, n for Nat,
  a, x, y, z, X, Y for set,
  D, E for non empty set,
  R for Relation,
  f, g for Function,
  p, q for FinSequence;

theorem Th33:
  arity (n succ i) = n
proof
  consider d being object such that
A1: d in dom (n succ i) by XBOOLE_0:def 1;
  reconsider d as Element of n-tuples_on NAT by A1,Def7;
  dom (n succ i) = n-tuples_on NAT by Def7;
  then
A2: for y be FinSequence st y in dom (n succ i) holds n= len y by CARD_1:def 7;
  d in dom (n succ i) by A1;
  hence thesis by A2,MARGREL1:def 25;
end;
