def prefix_reversed_append

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

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

105def prefix_reversed_append(+text: String,
106                           +suffix: String,
107                           +mode: J.LexMode,
108                           +reversed: String) -> {prefix_reversed(text ++ suffix, mode, reversed) == prefix_reversed(suffix, prefix_mode(text, mode), prefix_reversed(text, mode, reversed)) : String}:
109    match text:
110        case SNil{}: {==}
111        case SCon{head, tail}:
112            prefix_reversed_append(tail, suffix, after_mode(J.lex_seed_action(SCon{head, tail}, mode), mode),
113                after_reversed(J.lex_seed_action(SCon{head, tail}, mode), head, reversed))