Function cut::session_1

pub fn session_1<A>(
    cont: impl FnOnce(Z) -> PartialSession<(Empty, ()), A>
) -> PartialSession<(), A> where
    A: Protocol,