Typo

d9af73ac · Raphaël Cauderlier · 5fe6b6dd · d9af73ac
Commit d9af73ac authored Aug 26, 2015 by Raphaël Cauderlier
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

dk_binary_nat.dk dk_binary_nat.dk +2 -2

No files found.
--- a/dk_binary_nat.dk
+++ b/dk_binary_nat.dk
@@ -124,10 +124,10 @@ def mnat_of_bnat : N : UNat -> bn : BNat -> dk_machine_int.MInt N.
 [N] mnat_of_bnat N O --> dk_machine_int.zero N
 [ ] mnat_of_bnat dk_nat.O _ --> dk_machine_int.O.
 [N,bn]
-    mnat_of_bnat (dk_nat.S N) (dk_binary_natS0 bn)
+    mnat_of_bnat (dk_nat.S N) (S0 bn)
      -->
    dk_machine_int.S0 N (mnat_of_bnat N bn)
 [N,bn]
-    mnat_of_bnat (dk_nat.S N) (dk_binary_natS1 bn)
+    mnat_of_bnat (dk_nat.S N) (S1 bn)
      -->
    dk_machine_int.S1 N (mnat_of_bnat N bn).