Update src/Ledger/Conway/Specification/Epoch/Properties/Computational.agda

Co-authored-by: William DeMeo <williamdemeo@gmail.com>

Author: carlostome

src/Ledger/Conway/Specification/Epoch/Properties/Computational.agda

@@ -59,12 +59,14 @@ module _ {eps : EpochState} {e : Epoch} where
         (p₁' , p₂' , p₃')
       ) = eps'≡eps''
        where
-         ls = EpochState.ls eps
-         fut = EpochState.fut eps
+         ls : LState
+         ls = LStateOf eps
 
-         es = EnactStateOf fut
+         es : EnactState
+         es = EnactStateOf (RatifyStateOf eps)
 
-         govUpd = GovernanceUpdate.updates ls fut
+         govUpd : Governance-Update
+         govUpd = GovernanceUpdate.updates ls (RatifyStateOf eps)
 
          govSt' = Governance-Update.govSt' govUpd