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

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