-- -*- M2-comint -*- hash: 6047171859112073631

i1 : R = RR[x,y];

i2 : A = {x + y, x, x - y, y + 1};

i3 : LA = intersectionLattice(A, R)

o3 = LA

o3 : Poset

i4 : MF = moebiusFunction LA;

i5 : sum apply(LA_*, i -> abs(MF#(ideal 0_R, i)))

o5 = 10

i6 : MF' = moebiusFunction adjoinMax(LA, ideal 1_R);

i7 : abs(MF'#(ideal 0_R, ideal 1_R))

o7 = 2

i8 : 
