no goals
l m₁ : List Char
c : Char
m₂ r : List Char
⊢ Substring.get
      { str := { data := l ++ (m₁ ++ c :: m₂) ++ r }, startPos := { byteIdx := utf8Len l },
        stopPos := { byteIdx := utf8Len l + utf8Len (m₁ ++ c :: m₂) } }
      { byteIdx := utf8Len m₁ } =
    c
simpa using get_of_valid (l ++ m₁) (c :: m₂ ++ r)