isEquidimensional -- Check whether a complex or co-complex is equidimensional.

i1 : R=QQ[x_0..x_5];

i2 : C=boundaryCyclicPolytope(3,R)

o2 = 2: x x x  x x x  x x x  x x x  x x x  x x x  x x x  x x x  
         0 1 2  0 2 3  0 3 4  0 1 5  1 2 5  2 3 5  0 4 5  3 4 5

o2 : complex of dim 2 embedded in dim 5 (printing facets)
     equidimensional, simplicial, F-vector {1, 6, 12, 8, 0, 0, 0}, Euler = 1

i3 : isEquidimensional(C)

o3 = true

i4 : R=QQ[x_0..x_2];

i5 : I=intersect(ideal(x_0),ideal(x_1,x_2))

o5 = ideal (x x , x x )
             0 2   0 1

o5 : Ideal of R

i6 : C=idealToComplex I

o6 = 0: x  
         0
     1: x x  
         1 2

o6 : complex of dim 1 embedded in dim 2 (printing facets)
     non-equidimensional, simplicial, F-vector {1, 3, 1, 0}, Euler = 1

i7 : isEquidimensional(C)

o7 = false