156def modelF32Add =
157 (lambda unrestricted a : Nat . (lambda unrestricted b : Nat .
158 (specSelect (modelOr (modelIsNaN a) (modelIsNaN b))
159 (modelNaNResult a b)
160 (specSelect (modelIsInfinite a)
161 (specSelect (modelAnd (modelIsInfinite b) (specNot (specEqual (modelSign a) (modelSign b))))
162 modelDefaultNaN
163 a)
164 (specSelect (modelIsInfinite b)
165 b
166 (modelAddFinite a b))))))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.