def offset_le

stelliferous@0.0.2.0 · proofs/nat_order.bend:140

import Base

140def offset_le(offset: Nat,+left: Nat,+right: Nat,ordered: {Nat.is_le(left,right) == True{} : Bool}) ->
141  {Nat.is_le(Nat.add(offset,left),Nat.add(offset,right)) == True{} : Bool}:
142  match offset:
143    case 0n: ordered
144    case 1n+rest: offset_le(rest,left,right,ordered)