FUNCTION: sameframe - determine whether two bound poset algebras have the same frame

CALLING SEQUENCE:
sameframe(p,q)

PARAMETERS:
p, q - bound poset algebras

SYNOPSIS:

• sameframe(p,q) tests whether the two bound poset algebras p and q have the same frame.

EXAMPLES:

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

> q:=[5,{[1,2,3],[4,1],[5,4]}];

> sameframe(p,q);

> isoalg(p,q);