theorem Th56:
  for A being FinSequence holds max# A <= len A
  proof
    let A be FinSequence;
    for a being set holds #occurrences(a,A) <= len A by Th54;
    hence max# A <= len A by Def23;
  end;
