333def binaryFloatAddFinite =
334 (lambda unrestricted format : (family BinaryFloatFormat) .
335 (lambda unrestricted a : Nat .
336 (lambda unrestricted b : Nat .
337 (specSelect
338 (modelAnd (binaryFloatIsZero format a) (binaryFloatIsZero format b))
339 (binaryFloatZeroOf
340 format
341 (modelAnd (binaryFloatSign format a) (binaryFloatSign format b)))
342 (eliminate
343 ModelSigned
344 (lambda unrestricted current : (family ModelSigned) . Nat)
345 (binaryFloatSumSigned format a b)
346 (branch
347 ModelSignedOf
348 sign
349 magnitude
350 .
351 (binaryFloatRoundBits format sign magnitude (binaryFloatDenominator format))))))))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.