1600def naturalLiteralAsTermValue =
1601 (lambda unrestricted result : (family NaturalLiteralParseResult) .
1602 (eliminate
1603 NaturalLiteralParseResult
1604 (lambda unrestricted value : (family NaturalLiteralParseResult) . (family NaturalTermResult))
1605 result
1606 (branch NaturalLiteralParsed value . (constructor NaturalTermResult NaturalTermDecoded value))
1607 (branch NaturalLiteralParseFailed failure . (constructor NaturalTermResult NotNaturalTerm))))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.