~/jendhub

def cancel_offset_lt

stelliferous@0.0.2.0 · proofs/nat_order.bend:152

import stelliferous@0.0.2.0/proofs/nat_order.bend as NatOrder
import Base

152def cancel_offset_lt(+offset: Nat,+left: Nat,+right: Nat,ordered: {Nat.is_lt(Nat.add(offset,left),Nat.add(offset,right)) == True{} : Bool}) ->
153  {Nat.is_lt(left,right) == True{} : Bool}:
154  match offset:
155    case 0n: ordered
156    case 1n+rest: cancel_offset_lt(rest,left,right,ordered)

Uses (4)

Used by (1)