def cursor_lt

bendtorch-core@0.1.0.0 · src/tensor/from_values_contract.bend:52

import Base
import bendtorch-core@0.1.0.0/src/storage/api.bend as Api
import bendtorch-core@0.1.0.0/src/storage/arith.bend as Arith
import bendtorch-core@0.1.0.0/src/tensor/word_conversion.bend as Conversion

52def cursor_lt(+cursor: Nat, +remaining: Nat, +bound: Nat,
53  room: {Nat.is_le(Nat.add(cursor, 1n+remaining), bound) == True{} : Bool}) ->
54  {Nat.is_lt(cursor, bound) == True{} : Bool}:
55  Arith.lt_le_trans(cursor, 1n+cursor, bound, Arith.lt_succ(cursor, cursor, Api.le_refl(cursor)),
56    Conversion.le_trans(1n+cursor, Nat.add(1n+cursor, remaining), bound, Api.le_add_right(1n+cursor, remaining),
57      room_next(cursor, remaining, bound, room)))