pub fn r_contains<'a, T: MonadFail<'a, ()>, A: 'a + Send + Clone, D: 'a + PartialEq>(
    comparator: &'a dyn Comparator<A>,
    r_set: Arc<dyn TraversibleBinaryReference<'a, T, A, D>>,
    key: A
) -> T::F<()>