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

theorem Th61:
  card [#](dim(p)-chain-space(p)) = 2
proof
  dim(p)-polytopes(p) = {p} by Def5;
  then card (dim(p)-polytopes(p)) = 1 by CARD_1:30;
  then card [#]((dim(p))-chain-space(p)) = exp(2,1) by BSPACE:42
    .= 2 by CARD_2:27;
  hence thesis;
end;
