Source/Packages

Compiler.Elaborator

packages/compiler/src/Compiler/Elaborator.alpha

1,138 lines65 declarations36.4 KiBSHA-256 71619035ff76

def · lines 441–450

choosePrimitiveElaboration

Full file
441def choosePrimitiveElaboration =
442  (lambda unrestricted matched : Nat .
443    (lambda unrestricted selected : (family ClosedNaturalElaboration) .
444      (lambda unrestricted fallback : (family ClosedNaturalElaboration) .
445        (nat-eliminate
446          (lambda unrestricted value : Nat . (family ClosedNaturalElaboration))
447          fallback
448          (lambda unrestricted predecessor : Nat .
449            (lambda unrestricted induction : (family ClosedNaturalElaboration) . selected))
450          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.