theorem Th54:
  for A being FinSequence, a being set holds #occurrences(a,A) <= len A
  proof
    let A be FinSequence;
    let a be set;
    {i: i in dom A & a in A.i} c= dom A
    proof
      let z be object; assume z in {i: i in dom A & a in A.i}; then
      ex i st z = i & i in dom A & a in A.i;
      hence thesis;
    end; then
    Segm #occurrences(a,A) c= Segm card dom A & dom A = Seg len A &
    card Seg len A = len A by CARD_1:11,FINSEQ_1:57,def 3;
    hence #occurrences(a,A) <= len A by NAT_1:39;
  end;
