def zero_lt_one

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u32.bend:131

import Base

131# not 0 < n gives n < 1
132def zero_lt_one(+n: Nat, +h: {Nat.is_lt(0n, n) == False{} : Bool}) -> {Nat.is_lt(n, 1n) == True{} : Bool}:
133  match n:
134    case 0n:
135      {==}
136    case 1n+p:
137      Empty.absurd({Nat.is_lt(1n+p, 1n) == True{} : Bool}, true_ne_false(h))