def lt_up

bend-ml-bpe-tokenizer@0.1.3.0 · main.bend:583

import Base

583# j < i  ->  j < 1 + i
584def lt_up(j: Nat, i: Nat, e: {True{} == Nat.is_lt(j, i) : Bool}) -> {True{} == Nat.is_lt(j, 1n+i) : Bool}:
585  match j i:
586    case 0n 0n:
587      %e : BD(_, Unit, {True{} == Nat.is_lt(0n, 1n) : Bool})
588      Unit{}
589    case 0n 1n+q:
590      {==}
591    case 1n+p 0n:
592      %e : BD(_, Unit, {True{} == Nat.is_lt(1n+p, 1n) : Bool})
593      Unit{}
594    case 1n+p 1n+q:
595      lt_up(p, q, e)