gap> W:=SimplifiedComplex(Y);
Regular CW-complex of dimension 4

gap> S:=RegularCWComplexWithRemovedCell(W,4,6);
Regular CW-complex of dimension 4

gap> CriticalCells(S);
[ [ 2, 6 ], [ 0, 5 ] ]
