Extract rows from the relation matrix of Distributive Lattice

[iqra khan]

Hello,

How to extract rows from the relation matrix of the distributive lattice? The example is given below

P=poset{{1,2},{3}}
distributiveLattice P

It gives the relation matrix

Relation Matrix: | 1 1 1 1 1 1 |
                          | 0 1 1 1 1 0 |
                          | 0 0 1 0 1 0 |
                          | 0 0 0 1 1 0 |
                          | 0 0 0 0 1 0 |
                          | 0 0 1 0 1 1 |

Thanks

[Tim Duff]

Looks like the following would work:

needsPackage "Posets"
P = poset{{1,2},{3}}
D = distributiveLattice P
D#RelationMatrix