\version "2.19.83"

\paper {
  #(set-paper-size "a7")
  left-margin = 20
  indent = 0
}

\layout {
  \context {
    \Staff
    \RemoveAllEmptyStaves
  }
}

vlIA = \repeat unfold 24 g4

\addQuote vlICommon \vlIA

vlIB = {
  \set Staff.keepAliveInterfaces = #'()
  \quoteDuring vlICommon s1*3
  \unset Staff.keepAliveInterfaces
  \repeat unfold 4 gis4
  \set Staff.keepAliveInterfaces = #'()
  \quoteDuring vlICommon s1*2
}

breaks = {
  s1*2
  \break
  s
  \break
  s
}
vlIdivADue = \set StaffGroup.shortInstrumentName = \markup\right-column {
  "Vl. I" "div. à 2"
}
vlInondiv = \set StaffGroup.shortInstrumentName = "Vl.I"
instrNameChangesVlIA = {
  s1*2
  \vlIdivADue
  s
  \vlInondiv
  s
}

\score {
  \new StaffGroup \with {
    instrumentName = "Violino I"
    shortInstrumentName = "Vl. I"
  } <<
    \new Staff << \breaks \instrNameChangesVlIA \vlIA >>
    \new Staff \vlIB
  >>
}