https://github.com/leanprover/cslib/blob/581ab105dbb3c093817f8003c7694286f4001021/Cslib/Foundations/Data/Relation.lean#L48