A very rough draft. The idea is:
rnHsTyPat
rnHsTyKi
collectPatsBinders
This closely mirrors term-level patterns.