theorem Th1:
  for p being FinSequence holds len disjoin p = len p
proof
  let p be FinSequence;
  dom disjoin p = dom p by CARD_3:def 3;
  hence thesis by Th27;
end;
