reserve n for Nat,
  k for Integer;
reserve p for polyhedron,
  k for Integer,
  n for Nat;

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