FUNCTION: iscriticale - test for a tame concealed algebra of type E~

CALLING SEQUENCE:
iscriticale(p)

PARAMETERS:
p - a bound poset algebra

SYNOPSIS:

• iscriticale(p) tests whether the bound poset algebra p is tame concealed of type E~. If so, the function will return a pair [n,m], such that p and the algebra given by the call of critical_alge(n,m) have the same frame. Otherwise the value false will be returned.

EXAMPLES:

> p:=[8,{[2, 1, 3, 7], [4, 1], [5, 2], [6, 2, 4], [7, 8]},{[6, 3], [5, 1]}];

> iscriticale(p);

> a:=critical_alge(7,14);

> sameframe(a,p);