242def modelF32FusedMultiplyAdd =
243 (lambda unrestricted a : Nat . (lambda unrestricted b : Nat . (lambda unrestricted c : Nat .
244 (specSelect (modelOr (modelIsNaN a) (modelOr (modelIsNaN b) (modelIsNaN c)))
245 (specSelect (modelIsNaN a) (modelQuiet a) (specSelect (modelIsNaN b) (modelQuiet b) (modelQuiet c)))
246 (specSelect (modelOr (modelAnd (modelIsInfinite a) (modelIsZero b)) (modelAnd (modelIsZero a) (modelIsInfinite b)))
247 modelDefaultNaN
248 (specSelect (modelOr (modelIsInfinite a) (modelIsInfinite b))
249 (specSelect (modelAnd (modelIsInfinite c) (specNot (specEqual (modelXor (modelSign a) (modelSign b)) (modelSign c))))
250 modelDefaultNaN
251 (modelInfinityOf (modelXor (modelSign a) (modelSign b))))
252 (specSelect (modelIsInfinite c)
253 c
254 (modelFusedFinite a b c))))))))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.