a | not a ------------ True | False False | True
>>> Just 2 `shouldSatisfy` P.just (P.not (P.eq 1))
RB.get (RB.not r1) === not (RDB.get r1)
RDB.get (RDB.not r1) === not (RB.get r1)