AESStringEqProof.string_eq_sound: def of qasim-bend-kit@0.1.0.2
Import: import qasim-bend-kit@0.1.0.2/proof/AES_StringEqProof.bend as AESStringEqProof
Lines 26-33 of qasim-bend-kit@0.1.0.2/proof/AES_StringEqProof.bend: https://jend.leeeet.dev/read.txt?path=qasim-bend-kit@0.1.0.2/proof/AES_StringEqProof.bend&start_line=26&end_line=33

import Base
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/lemmas/proofs/string_compare.bend as Compare

def string_eq_sound(+a: String, +b: String,
    accepted: {String.eq(a, b) == True{} : Bool}) -> {a == b : String}:
    Compare.string_equal_from_comparison(a, b,
        Equal.trans(Cmp,
            Compare.comparison_tag(String, String.cmp(a, b)),
            String.order(a, b), EQ{},
            tag_is_snd(String.cmp(a, b)),
            cmp_eq_of_true(String.order(a, b), accepted)))

Uses (11):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Cmp
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.trans
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String.cmp
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String.eq
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String.order
  https://jend.leeeet.dev/definition.txt?path=bend-collections-laws-crypto@1.0.0.0/proofs/lib/lemmas/proofs/string_compare.bend&name=comparison_tag
  https://jend.leeeet.dev/definition.txt?path=bend-collections-laws-crypto@1.0.0.0/proofs/lib/lemmas/proofs/string_compare.bend&name=string_equal_from_comparison
  https://jend.leeeet.dev/definition.txt?path=qasim-bend-kit@0.1.0.2/proof/AES_StringEqProof.bend&name=cmp_eq_of_true
  https://jend.leeeet.dev/definition.txt?path=qasim-bend-kit@0.1.0.2/proof/AES_StringEqProof.bend&name=tag_is_snd