FUNCTION: rstartsets - the poset of start sets induced from minimal chain sequences
CALLING SEQUENCE:
rstartsets(p,s)
rstartsets(p,s,m)
p - a bound poset algebra
s - a positive integer <= p[1] (the number of points of p)
m - an optional argument evaluating to a name
SYNOPSIS:
EXAMPLES:
>
p:= critical_alge(7,14);
>
q:=rstartsets(p,2,'m');
>
print(m);
>
h:=convert(m,list);
>
drwpst(q,h);