\version "2.20"

down =
#(define-music-function (mus) (ly:music?)
   #{
     \change Staff = "lower"
     #mus
     \change Staff = "upper"
   #})

<<
  \new Staff {
    dis'2. cis'4 ~
    cis'4 e'4 dis'2
  }
  \addlyrics {
    leop -- ard crys -- tal
  }
  \new PianoStaff <<
    \new Staff = "upper"
    {
      \overrideProperty
      Score.NonMusicalPaperColumn.line-break-system-details
      #'((alignment-distances . (15 12)))

      \shape #'((0 . 0.5) (0 . 0.5) (0 . 0.5) (0 . 5)) PhrasingSlur

      d'8\( \down d d''' \down d d'' \down d d'' \down d \break
      d'' \down d d''' \down d d'' \down d d'' \down d <d' d''>2\) r2
    }
    \new Staff = "lower" {
      \clef bass
      s1*3
    }
  >>
>>