@@ -409,7 +409,6 @@ open RwdAddr using (stake)
409409opaque
410410```
411411-->
412-
413412``` agda
414413 calculatePoolDelegatedStake
415414 : Snapshot
@@ -583,23 +582,23 @@ private variable
583582
584583## The <span class =" AgdaDatatype " >EPOCH</span > Transition System {#sec: the-epoch-transition-system }
585584
586- We are nearly ready to present the ` EPOCH ` {.AgdaDatatype} transition system, but
587- first we must define some functions needed to update various values in the
588- states involved in the transition.
585+ The ` EPOCH ` {.AgdaDatatype} transition system updates several parts of the
586+ ` EpochState ` {.AgdaDatatype}. We encapsulate these updates using Agda's module
587+ system. This modularization reduces typechecking times and helps strucuturing
588+ proofs about properties of the ` EPOCH ` {.AgdaDatatype} transition system.
589589
590590### Update Modules and Functions
591591
592- We organize the ` EPOCH ` {.AgdaInductiveConstructor} rule using three modules
593- which roughly correspond to:
592+ We organize the ` EPOCH ` {.AgdaDatatype} rule around three modules.
594593
595- - ` GovernanceUpdate ` {.AgdaModule}: Used to compute the set of governance
596- actions to be removed and updating accordingly the governance state.
594+ - ` GovernanceUpdate ` {.AgdaModule} is used to compute the set of governance
595+ actions to be removed and update the governance state accordingly;
597596
598- - ` Pre-POOLREAPUpdate ` {.AgdaModule}: Used to update the ` PState ` , ` GState `
597+ - ` Pre-POOLREAPUpdate ` {.AgdaModule} is used to update the ` PState ` , ` GState `
599598 and ` utxoSt ` which are the inputs to the ` POOLREAP ` {.AgdaDatatype} transition
600- system.
599+ system;
601600
602- - ` Post-POOLREAPUpdate ` {.AgdaModule}: Used to update ` Acnt ` and ` DState ` from
601+ - ` Post-POOLREAPUpdate ` {.AgdaModule} is used to update ` Acnt ` and ` DState ` from
603602 the output of ` POOLREAP ` {.AgdaDatatype} part of which is in the environment of
604603 the ` RATIFY ` {.AgdaDatatype} transition system and part of which belongs to the
605604 returned ` EpochState ` {.AgdaRecord}.
0 commit comments