anchor.diff:      UPI_full = [X || X <- UPI_list, not lists:member(X, Witness_list)],
       case UPI_list -- Witness_list of
           [] ->
  -            -100;
  +            ?RANK_CP_MINORITY_QUORUM;
           _ ->
               AuthorRank +
                   (    N * length(Repairing_list)) +
  
positive.code:     [{rank_projection(Proj, MemberRank, N), Proj} || Proj <- Projs].
  
  rank_projection(#projection_v1{upi=[]}, _MemberRank, _N) ->
      -100;
  rank_projection(#projection_v1{author_server=_Author,
                                 witnesses=Witness_list,
                                 upi=UPI_list,
  
negative.code:     throw({zerf, no_common});
  zerf_find_last_common(UnsearchedEpochs, Relation, MajoritySize, Up, S) ->
      {NowEpochs, NextEpochs} = my_lists_split(5, UnsearchedEpochs),
  io:format(user, "zerf_find_last_common now_es ~p\n", [NowEpochs]),
      Rel2 = lists:foldl(
               fun({E, FLU}, Rel) ->
                       Proxy = proxy_pid(FLU, S),
                       case ?FLU_PC:read_projection(Proxy, private, E, ?TO) of
                           {ok, Proj} ->
  io:format(user, "fold ~p ~p ok\n", [E, FLU]),
                               %% Sort order: we want inner = bigger.
                               OorI = case inner_projection_exists(Proj) of
                                          true  -> z_inner;
  