liftの実装はわりと素直です。MaybeTトランスフォーマーの場合を見てみます。 instance MonadTrans MaybeT where lift mon = MaybeT (mon >>= return . Just) 内側のモナドを値に適用し、サンドイッチで言う真ん中までの処理を行ったあと、>>=演算子と型コン…