polybori.lib
LIB "polybori.lib"; ring rs=0,(x,y,z),Dp; def rb3=boolean_poly_ring(rs); poly f1=x+y; poly f2=x+z; bpoly pp =f1; bpoly p = f2; bideal Ib; list K=(p,pp); Ib=K; from_boolean_ideal(Ib); ring rs2=5,(x,y,z),Dp; def rb4=boolean_poly_ring(rs2); poly p1=x+y; poly p2=x+z; poly p3=y+z; bpoly p = p1; bpoly pp = p2; bpoly ppp = p3; bideal Ib; list K=(p,pp,ppp); Ib=K; from_boolean_ideal(Ib);