AlphaGitHub
Source/Packages

Std.Word

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

1,783 lines192 declarations64.2 KiBSHA-256 27bf8c3f30ee
Download exact fileView at revision3c600751929f56cd01

def · lines 1249–1263

stdU64DivisionRun

Full file
1249def stdU64DivisionRun =
1250  (lambda unrestricted dividend : (family ModelWord64) .
1251    (lambda unrestricted divisor : (family ModelWord64) .
1252      (nat-eliminate
1253        (lambda unrestricted current : Nat . (family StdU64DivisionState))
1254        (constructor
1255          StdU64DivisionState
1256          StdU64DivisionStateOf
1257          modelWord64Zero
1258          modelWord64Zero
1259          dividend)
1260        (lambda unrestricted predecessor : Nat .
1261          (lambda unrestricted induction : (family StdU64DivisionState) .
1262            (stdU64DivisionStep divisor induction)))
1263        modelWord64NaturalSixtyFour)))

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.