-- -*- M2-comint -*- hash: 5818082486573250607

i1 : P = poset {{1, 2}, {1, 3}, {1, 4}, {2, 5}, {3, 5}, {4, 5}};

i2 : isLattice P

o2 = true

i3 : isGeometric P

o3 = true

i4 : isGeometric booleanLattice 4

o4 = true

i5 : Q = poset {{1, 2}, {1, 3}, {2, 4}, {2, 5}, {3, 4}, {4, 6}, {5, 6}};

i6 : isLattice Q

o6 = true

i7 : isGeometric

o7 = isGeometric

o7 : MethodFunction

i8 : 
