pub fn t_subset_of_t<'a, T: MonadFail<'a, ()>, A: 'a + Send + Clone, D: 'a + PartialEq>(
    comparator: &'a dyn Comparator<A>,
    t_subset: Arc<dyn TraversibleBinaryTree<'a, T, A, D>>,
    t_superset: Arc<dyn TraversibleBinaryTree<'a, T, A, D>>,
    k_l: Option<A>,
    k_r: Option<A>
) -> T::F<()>