AlphaGitHub
Source/Packages

Model.Word32

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

508 lines41 declarations18.3 KiBSHA-256 7f230128ec8c
Download exact fileView at revision426597bda5753d86c4

def · lines 346–360

modelWord32MultiplyStateRun

Full file
346def modelWord32MultiplyStateRun =
347  (lambda unrestricted left : (family ModelWord32) .
348    (lambda unrestricted right : (family ModelWord32) .
349      (nat-eliminate
350        (lambda unrestricted current : Nat . (family ModelWord32MultiplyState))
351        (constructor
352          ModelWord32MultiplyState
353          ModelWord32MultiplyStateValue
354          left
355          right
356          modelWord32Zero)
357        (lambda unrestricted predecessor : Nat .
358          (lambda unrestricted induction : (family ModelWord32MultiplyState) .
359            (modelWord32MultiplyStep induction)))
360        modelWord32NaturalThirtyTwo)))

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.