Corrected datatype

diff --git a/discrete_log.txt b/discrete_log.txt
index 5ea4687..b4ce377 100644 (file)
--- a/discrete_log.txt
+++ b/discrete_log.txt
@@ -17,7 +17,7 @@ proc InvModP(a:ℕ[K^2],p:prime): prime
    ensures (a*result) % p = 1;
 {
    var ainv:prime := 0;
-   var i:ℕ[K^2];
+   var i:prime;
 
    // straight search
    // algorithmic alternative: Euclidean algorithm