FUNCTION: titsform - the Tits-form of a completely separating bound poset algebra

CALLING SEQUENCE:
titsform(p)

PARAMETERS:
p - a bound poset algebra

SYNOPSIS:

• titsform(p) returns the symmetric integer coefficient matrix of the Tits-form of p.

• for titsform to work properly, the algebra p has to be completely separating.

EXAMPLES:

> p:= critical_alge(7,14);

> titsform(p);