def lt1

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/fixgen.bend:134

import Base
import bend-collections-laws-math@1.0.0.0/proofs/lib/nat.bend as N

134def lt1(+n: Nat, +h: {Nat.is_lt(n, 1n) == True{} : Bool}) -> {n == 0n : Nat}:
135  match n:
136    case 0n:
137      {==}
138    case 1n+ +p:
139      Empty.absurd({1n+p == 0n : Nat}, N.lt_zero_absurd(p, h))