101def combineNodeCount =
102 (lambda unrestricted tree : (family OrderedCombineTree) .
103 (eliminate
104 OrderedCombineTree
105 (lambda unrestricted current : (family OrderedCombineTree) . Nat)
106 tree
107 (branch OrderedCombineLeaf owner . 1)
108 (branch
109 OrderedCombineBranch
110 owner
111 left
112 right
113 leftResult
114 rightResult
115 .
116 (naturalAdd 1 (naturalAdd leftResult rightResult)))))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.