We define [∃!](https://agda.github.io/agda-stdlib/Data.Product.html#1633) but we have literally zero properties about it. Some ideas: properties: * [ ] `∃! P` implies `∃! Q` given that `P <=> Q` refactor: * [ ] `∃!` defined over a `Setoid` rather than a set + a binary relation? * [ ] Add `Unique x P = ∀ {y} → B y → x ≈ y` to `Relation.Unary`? (and prove its properties & use that when proving that of `∃!`)