def nat_lt_native

stelliferous@0.0.2.0 · proofs/u32_division.bend:15

import Base
import stelliferous@0.0.2.0/proofs/u32_comparison.bend as Comparison

15def nat_lt_native(+a: U32,+b: U32,h: {Nat.is_lt(U32.to_nat(a),U32.to_nat(b)) == True{} : Bool}) -> {U32.is_lt(a,b) == True{} : Bool}:
16  %Equal.sym(Bool,U32.is_lt(a,b),Nat.is_lt(U32.to_nat(a),U32.to_nat(b)),Comparison.lt(a,b)) : {_ == True{} : Bool}
17  h