reg006.idr:17:1:RBTree.lookup is possibly not total due to: RBTree.case block in lookup