static <A extends Concept> Cl<Pair<A, S>> cForwardAndBackRefsWithFieldIndicator(Concept c, Class<A> type) {
  ret concatLists_conservative(
    cForwardRefsWithFieldNames(c, type),
    mapPairsB(findBackRefsWithFieldNames(c, type), f -> "<- " + f));
}

static <A extends Concept> Cl<Pair<A, S>> nuLike cForwardAndBackRefsWithFieldIndicator(Class<A> type, Concept c) {
  ret cForwardAndBackRefsWithFieldIndicator(c, type);
}