def nz_le
bend-collections-laws-math@1.0.0.0 · proofs/math/typed/f64light.bend:129
import bend-collections-laws-math@1.0.0.0/proofs/math/typed/f64light.bend as F64light
import Base
import bend-collections-laws-math@1.0.0.0/proofs/lib/nat.bend as N
import bend-collections-laws-math@1.0.0.0/proofs/math/typed/natcmp.bend as NC
129def nz_le(+n: Nat, +hz: {Nat.is_eq(n, 0n) == False{} : Bool}) -> {Nat.is_le(1n, n) == True{} : Bool}:
130 match n:
131 case 0n:
132 NC.absurd_tf({Nat.is_le(1n, 0n) == True{} : Bool}, Equal.sym(Bool, True{}, False{}, hz))
133 case 1n+ +np:
134 N.zero_le(np)