anchor.diff:                                      end
                                   },
                                   {
  -                                    KeyNoXCRight - 1, case SubtreeNoXCRight == 0 of
  -                                                          true ->
  +                                    KeyNoXCRight - 1, case SubtreeNoXCRight of
  +                                                          0 ->
                                                                 0;
                                                             _ ->
                                                                 SubtreeNoXCRight - 1
  -                                                      end, lists:sublist(KeyValuesXCRight, 2, KeyNoXCRight), case SubtreeNoXCRight == 0 of
  -                                                                                                                 true ->
  +                                                      end, lists:sublist(KeyValuesXCRight, 2, KeyNoXCRight), case SubtreeNoXCRight of
  +                                                                                                                 0 ->
                                                                                                                        [];
                                                                                                                    _ ->
                                                                                                                        lists:sublist(SubtreesXCRight, 2, SubtreeNoXCRight)
  
positive.code:                                 KeyNoXCRight,
                                  SubtreeNoXCRight,
                                  KeyValuesXCRight,
                                  case SubtreeNoXC == 0 of
                                      true ->
                                          [];
                                      _ ->
                                          InsertFunction(
  
negative.code:                                     lists:append([
                                          lists:sublist(Subtrees, 1, KeyPos - 1),
                                          [{
                                              KeyNoXC + KeyNoXCRight, case SubtreeNoXCRight of
                                                                          0 ->
                                                                              0;
                                                                          _ ->
                                                                              SubtreeNoXC + SubtreeNoXCRight - 1
                                                                      end, lists:append([KeyValuesXC,
                                                  KeyValuesXCRight
                                              ]), case SubtreeNoXCRight of
                                                      0 ->
                                                          [];
                                                      _ ->
                                                          InsertFunction(
  