1009def multiplicityCode : (pi unrestricted multiplicity : (family CoreMultiplicity) . Nat) =
1010 (lambda unrestricted multiplicity : (family CoreMultiplicity) .
1011 (eliminate
1012 CoreMultiplicity
1013 (lambda unrestricted value : (family CoreMultiplicity) . Nat)
1014 multiplicity
1015 (branch CoreErased . zero)
1016 (branch CoreLinear . (succ zero))
1017 (branch CoreAffine . (succ (succ zero)))
1018 (branch CoreUnrestricted . (succ (succ (succ 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.