241def binaryFloatNegate =
242 (lambda unrestricted format : (family BinaryFloatFormat) .
243 (lambda unrestricted bits : Nat .
244 (specSelect
245 (binaryFloatSign format bits)
246 (nat-subtract bits (binaryFloatSignBase format))
247 (nat-add bits (binaryFloatSignBase 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.