Compare two naturals, answering with an order rather than a flag.
211def stdOrderCompareNatural =
212 (lambda unrestricted left : Nat .
213 (lambda unrestricted right : Nat .
214 (eliminate
215 StdBool
216 (lambda unrestricted current : (family StdBool) . (family StdOrder))
217 (stdBoolFromNatural (nat-less-than left right))
218 (branch StdTrue . (constructor StdOrder StdLess))
219 (branch
220 StdFalse
221 .
222 (eliminate
223 StdBool
224 (lambda unrestricted current : (family StdBool) . (family StdOrder))
225 (stdBoolFromNatural (nat-less-than right left))
226 (branch StdTrue . (constructor StdOrder StdGreater))
227 (branch StdFalse . (constructor StdOrder StdEqual)))))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.