def below_inside

bendtorch-core@0.1.0.0 · src/tensor/gather_PROOF.bend:25

import Base
import bendtorch-core@0.1.0.0/src/tensor/gather.bend as Gather
import bendtorch-core@0.1.0.0/src/tensor/gather_LAWS.bend as Laws

25def below_inside(entries: List<&2, U32>, +bound: Nat) -> {Gather.below(entries, bound) == Laws.inside(entries, bound) : Bool}:
26  match entries:
27    case Nil{}:
28      {==}
29    case +head <> rest:
30      Equal.cong(Bool, Bool, x => Bool.and(Nat.is_lt(U32.to_nat(head), bound), x), Gather.below(rest, bound), Laws.inside(rest, bound),
31        below_inside(rest, bound))