# Obtaining the poset of subsets

Let G be a set of subsets of a set with $n$ elements. Here a (stupid) example:

```
p=5
S = Subsets([1,..,p])
G=[t for t in S if sum(t)==p]
display(S)
display(G)
```

My question is how do I obtain the set G as a poset in Sage? Thanks for any help.