def nat_le_native

stelliferous@0.0.2.0 · proofs/u32_division.bend:19

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

19def nat_le_native(+a: U32,+b: U32,h: {Nat.is_le(U32.to_nat(a),U32.to_nat(b)) == True{} : Bool}) -> {U32.is_le(a,b) == True{} : Bool}:
20  %Equal.sym(Bool,U32.is_le(a,b),Nat.is_le(U32.to_nat(a),U32.to_nat(b)),Comparison.le(a,b)) : {_ == True{} : Bool}
21  h