Finish LogicT.v, find they are adjoint, not isomorphic