FUNCTION: repetitive - the repetitive algebra of a bound poset algebra

CALLING SEQUENCE:
repetitive(p)

PARAMETERS:
p - a bound poset algebra

SYNOPSIS:

• repetitive(p) returns the repetitive algebra of the bound poset algebra p.

EXAMPLES:

> a:=[3,{[1,2],[2,3]},{[1,3]}];

> repetitive(a);

> ra:=repetitive(a);

> drwpst(ra[1],ra[2],ra[3]);

> ra:=repetit_addrel(ra);

> drwpst(ra[1],ra[2],ra[3]);