def prefix_acc_append

qasim-bend-kit@0.1.0.2 · proof/JSON_LexWhitespaceProof.bend:115

import Base
import qasim-bend-kit@0.1.0.2/libs/JSON.bend as J

115def prefix_acc_append(+text: String,
116                      +suffix: String,
117                      +mode: J.LexMode,
118                      +reversed: String,
119                      +acc: List<&2, J.Lexeme>) -> {prefix_acc(text ++ suffix, mode, reversed, acc) == prefix_acc(suffix, prefix_mode(text, mode), prefix_reversed(text, mode, reversed), prefix_acc(text, mode, reversed, acc)) : List<&2, J.Lexeme>}:
120    match text:
121        case SNil{}: {==}
122        case SCon{head, tail}:
123            prefix_acc_append(tail, suffix, after_mode(J.lex_seed_action(SCon{head, tail}, mode), mode),
124                after_reversed(J.lex_seed_action(SCon{head, tail}, mode), head, reversed),
125                after_acc(J.lex_seed_action(SCon{head, tail}, mode), head, reversed, acc))