def pos_ne

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/w64add.bend:400

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

400def pos_ne(+n: Nat, +h: {Nat.is_eq(n, 0n) == False{} : Bool}) -> {Nat.is_le(1n, n) == True{} : Bool}:
401  match n:
402    case 0n:
403      Empty.absurd({Nat.is_le(1n, 0n) == True{} : Bool}, true_ne_false(h))
404    case 1n+m:
405      N.zero_le(m)