AlphaGitHub
Source/Packages

Std.Fin

packages/foundation/standard/src/Std/Fin.alpha

55 lines10 declarations1.9 KiBSHA-256 56ed5c139b6d
Download exact fileView at revisionbcc11a4e7647d31628

def · lines 47–55

stdFinIsFirst

Full file
Is this the first index?
47def stdFinIsFirst =
48  (lambda erased bound : Nat .
49    (lambda unrestricted index : (family StdFin bound) .
50      (eliminate StdFin
51        (lambda erased motiveBound : Nat .
52          (lambda unrestricted value : (family StdFin motiveBound) . (family StdBool)))
53        index
54        (branch StdFinZero zeroBound . (constructor StdBool StdTrue))
55        (branch StdFinNext nextBound predecessor induction . (constructor StdBool StdFalse)))))

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.