theorem
  dim(p)-polytope-seq(p) = <*p*> by Def7;
