AlphaGitHub
Source/Packages

Model.Word64

packages/foundation/standard/src/Model/Word64.alpha

798 lines53 declarations27.4 KiBSHA-256 e976f120a70c
Download exact fileView at revisionf5034773ad4bb52133

def · lines 672–687

modelWord64MultiplyStateRun

Full file
672def modelWord64MultiplyStateRun =
673  (lambda unrestricted left : (family ModelWord64) .
674    (lambda unrestricted right : (family ModelWord64) .
675      (nat-eliminate
676        (lambda unrestricted current : Nat . (family ModelWord64MultiplyState))
677        (constructor
678          ModelWord64MultiplyState
679          ModelWord64MultiplyStateValue
680          left
681          right
682          modelWord64Zero
683          zero)
684        (lambda unrestricted predecessor : Nat .
685          (lambda unrestricted induction : (family ModelWord64MultiplyState) .
686            (modelWord64MultiplyStep induction)))
687        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.