def internal_least_cons_tail

bend-mathlib@0.8.1.0 · sort.bend:114

import Base
import bend-mathlib@0.8.1.0/list.bend as MList

114def internal_least_cons_tail(~A: Data, ~le: A -> A -> Bool, +lo: A, +h: A, +t: List<&2, A>, hh: internal_least(~A, ~le, lo, h <> t)) -> internal_least(~A, ~le, lo, t):
115  MList.internal_and_right(le(lo, h), internal_all_ge(~A, ~le, lo, t), hh)