can we prove things using free theorem for Gen-Monad-Trav?