797def chooseCorePrimitive :
798 (pi unrestricted matched : Nat .
799 (pi unrestricted primitive : (family CorePrimitive) .
800 (pi unrestricted unmatchedResult : (family CorePrimitiveLookupResult) .
801 (family CorePrimitiveLookupResult)))) =
802 (lambda unrestricted matched : Nat .
803 (lambda unrestricted primitive : (family CorePrimitive) .
804 (lambda unrestricted unmatchedResult : (family CorePrimitiveLookupResult) .
805 (nat-eliminate
806 (lambda unrestricted condition : Nat . (family CorePrimitiveLookupResult))
807 unmatchedResult
808 (lambda unrestricted predecessor : Nat .
809 (lambda unrestricted induction : (family CorePrimitiveLookupResult) .
810 (constructor CorePrimitiveLookupResult CorePrimitiveFound primitive)))
811 matched))))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.