anchor.diff:                  TripleJson ->
                       JsonKey = hd(maps:keys(TripleJson)),
                       #{JsonKey := JsonValue} = TripleJson,
  -        
  +
                       case maps:get(JsonKey, Acc, undefined) of
                           undefined ->
                               maps:merge(Acc, TripleJson);
  
positive.code:     Object;
  list(Object) ->
      [Object].
      
  %% @doc Construct a #triple{} record.
  -spec triple(binary(), binary(), binary()) -> #triple{}.
  triple(Subject, Predicate, <<"http://", _/binary>> = Object) ->
  
negative.code:     case binary:split(Predicate, <<":">>) of
          [Namespace, Property] ->
              %% Predicate with namespace, e.g, "dcterms:date"
              case resolve_context_key(Namespace, Context) of
                  undefined ->
                      lager:error("Namespace ~p not registered", [Namespace]),
                      undefined;
                  ResolvedNamespace ->
                      erlang:iolist_to_binary([ResolvedNamespace, Property])
              end;
          [_Property] ->
              %% Property without namespace
              case binary:split(Predicate, <<"@">>) of
                  [<<"">>, _] ->
                      %% Special "@type" form
                      Predicate;
                  [_] ->
                      %% Possible alias in context
                      case resolve_context_key(Predicate, Context) of
                          Uri when is_binary(Uri) ->
                              Uri;
                          #{<<"@id">> := Uri} ->
                              Uri;
                          _Something ->
                              % Fully qualified?
                              Predicate
                      end
              end
      end.
  
  %% @doc Resolve a namespace based on the @context value
  -spec resolve_context_key(binary(), list()) -> binary().
  resolve_context_key(Namespace, Context) when is_map(Context) ->
      maps:get(Namespace, Context, undefined);
  resolve_context_key(Namespace, Context) ->
      proplists:get_value(Namespace, Context).
  
  create_triple_from_json(Subject, Predicate, Object, Context) ->
  