> addvertex(T23,theory);

T23

> addedge([T17,T23],theory);

e52

> addedge([`T12.5`,T23],theory);

e53

> partition:=[[I1,I2,RA,PS,Pra,AAA,SAS],[T1,T2,T3,`T6.5`,T5,T6,T8,`T8.5`,`T12.5`],[T4,T7,T9],[T10,T11],[T12,T13,T14,T15,T17,PA],[ T23,T16,T18 ],[T19,T22],[T20],[T21]];

partition := [[I1, I2, RA, PS, Pra, AAA, SAS], [T1,...
partition := [[I1, I2, RA, PS, Pra, AAA, SAS], [T1,...

>