def internal_order_go_lt
import bend-mathlib@0.8.1.0/string.bend as Stringimport Base
186# Base 2.0.38 defines String.order directly, not through String.cmp (PLAN F39); these prove the two agree.
187def internal_order_go_lt(a: String, b: String) -> {String.order.go(a, b, LT{}) == LT{} : Cmp}:
188 match a b:
189 case SNil{} SNil{}:
190 {==}
191 case SNil{} SCon{h, t}:
192 {==}
193 case SCon{h, t} SNil{}:
194 {==}
195 case SCon{Chr{x}, t1} SCon{Chr{y}, t2}:
196 {==}