def string_eq_sound

qasim-bend-kit@0.1.0.2 · proof/AES_StringEqProof.bend:26

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

26def string_eq_sound(+a: String, +b: String,
27    accepted: {String.eq(a, b) == True{} : Bool}) -> {a == b : String}:
28    Compare.string_equal_from_comparison(a, b,
29        Equal.trans(Cmp,
30            Compare.comparison_tag(String, String.cmp(a, b)),
31            String.order(a, b), EQ{},
32            tag_is_snd(String.cmp(a, b)),
33            cmp_eq_of_true(String.order(a, b), accepted)))