theorem Th26:
  len (k-polytope-seq(p)) = num-polytopes(p,k)
proof
  dom (k-polytope-seq(p)) = Seg (num-polytopes(p,k)) by Th25;
  hence thesis by FINSEQ_1:def 3;
end;
