theorem
  for A being FinSequence, a being set st #occurrences(a,A) = len A holds
  max# A = len A
  proof
    let A be FinSequence;
    let a be set;
    assume #occurrences(a,A) = len A; then
    len A <= max# A & max# A <= len A by Def23,Th56;
    hence max# A = len A by XXREAL_0:1;
  end;
