FUNCTION: iscriticald - test for a tame concealed algebra of type D~

CALLING SEQUENCE:
iscriticald(p);

PARAMETERS:
p - a bound poset algebra

SYNOPSIS:

• iscriticald(p) tests whether the bound poset algebra p is tame concealed of type D~.

EXAMPLES:

> iscriticald([5,{[1,2,3,4,5]}]);

> iscriticald([5,{[1,2,3,4],[4,5]}]);