5371def syntaxAtomIsArithmetic =
5372 (lambda unrestricted syntax : (family Syntax) .
5373 (eliminate
5374 Syntax
5375 (lambda unrestricted current : (family Syntax) . Nat)
5376 syntax
5377 (branch
5378 SyntaxAtom
5379 spelling
5380 origin
5381 .
5382 (eliminate
5383 NaturalOperationLookup
5384 (lambda unrestricted result : (family NaturalOperationLookup) . Nat)
5385 (Compiler.NaturalOperation/lookupNaturalOperation spelling)
5386 (branch NaturalOperationFound operation . (succ zero))
5387 (branch NaturalOperationMissing . zero)))
5388 (branch SyntaxEmpty . zero)
5389 (branch SyntaxCons head tail ih_head ih_tail . zero)
5390 (branch SyntaxNode children ih_children . zero)))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.