svoid gazelle_splitMultiRule_v2(S ruleID) {
  PairS p = dm_textAndCommentForRule(ruleID);
  if (p == null || !cic(p.b, "multi-rule")) ret;
  
  LPair<S> lines = ai_findDoubleArrowRulesAsPairs(p.a);
  Set<S> textsNeeded = asSet(mapPairsToList gazelle_constructRuleText(lines));
  S extractedComment = "extracted from multi-rule " + ruleID;
  S deployedPrefix = "deployed as rule ";
  LS allComments = tlft(p.b);
  LS coreComments = listWithoutIC(allComments, "multi-rule");
  
  L<T3S> rules = dm_gazelle_allRulesWithComment(extractedComment);
  LS coreComments2 = withoutStartingWithIC(coreComments, deployedPrefix);
  S commentsForDeployed = lines_rtrim(listPlus(coreComments2, extractedComment));
  new LS deployed;
  for (T3S t : rules)
    if (!textsNeeded.remove(t.a))
      gazelle_deleteRule(t.c);
    else {
      gazelle_setRuleComment(t.c, commentsForDeployed);
      deployed.add(t.c);
    }
  for (S text : textsNeeded)
    deployed.add(dm_gazelle_addRuleWithComment(text, commentsForDeployed).a);
  LS allComments2 = withoutStartingWithIC(allComments, deployedPrefix);
  for (S deployedID : deployed)
    allComments2.add(deployedPrefix + deployedID);
  gazelle_setRuleComment(ruleID, allComments2);
}

Began life as a copy of #1022337