96def numericalContractionCode =
97 (lambda unrestricted value : (family StdContraction) .
98 (eliminate
99 StdContraction
100 (lambda unrestricted current : (family StdContraction) . Nat)
101 value
102 (branch StdContractionForbidden . 0)
103 (branch StdContractionPermittedWhereEmitted . 1)))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.