theorem
  n in dom p implies
    for B being finite set st
   B = {k where k is Element of NAT : k in dom p & k <= n & p.k in A}
  holds p.n in A or (p - A).(n - card B) = p.n
proof
  len p = len p;
  hence thesis by Lm13;
end;
