\score{
  \notes\relative c'\context GrandStaff<
\context Staff=primary {
c4 d e f | 
g a b c | \break
\property GrandStaff.instr = "Div."
d c b a | 
g f e d \break
\property GrandStaff.instr \unset
c1
}
\context Staff=lower{
s1*2 |
b'4 a g f |
e d c b |
s1*2}>

\paper{
  \translator{
    \HaraKiriStaffContext
  }
  \translator{
    \GrandStaffContext
    \consists "Instrument_name_engraver"
  }
}
}