how about

```erlang
lists:all(fun(Elem) ->
               lists:keymember(Elem, 1, Set)
           end, Subset)
```