Cleanup fl* type.

This commit is contained in:
Eric Dobson 2015-04-09 23:39:50 -07:00
parent 811cd211e9
commit c50b6291e2

View File

@ -481,7 +481,6 @@
(fl-type-lambda
(from-cases (binop -FlZero)
;; we don't have Pos Pos -> Pos, possible underflow
(binop -PosFl -NonNegFl)
(binop -NonNegFl)
(commutative-binop -NegFl -PosFl -NonPosFl)
(binop -NegFl -NonNegFl)