Maple: Булевы формулы

[cyb12]

Как в Maple решать такую задачу: дается булева формула, надо выделить в ней внешнюю функцию с главными подформулами? То есть, например (используется Logic) если есть

> with(Logic);
> A := (a &and b) &or c;

то внешняя функция - or, а ее главные подформулы - (a and b) и c.

[maxal]

op(0,A), op(1,A) и op(2,A)

[cyb12]

спасибо

[cyb12]

И еще вопрос по Maple, по GraphTheory. Как-нибудь можно сделать так, чтобы в графе вершины имели бы подпись, отличную от имени и существовали бы вершины с одинаковой пометкой? Посмотрел на label, но это что-то не то....