diff options
| author | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-08 18:49:39 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-08 18:49:39 +0000 |
| commit | 69b82b0f568dd840f05f6aa9902ee6dcd5df5cad (patch) | |
| tree | 11ba0964073cdb5f8de8bc1689f0e53eb21879a2 /src/Helium/Instructions | |
| parent | c32c75ab3d5628163a4ece83e38d85152bf9e189 (diff) | |
Migrate to agda-stdlib-2.0-dev.axiomatic
Diffstat (limited to 'src/Helium/Instructions')
| -rw-r--r-- | src/Helium/Instructions/Base.agda | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Helium/Instructions/Base.agda b/src/Helium/Instructions/Base.agda index d157d5a..29e163d 100644 --- a/src/Helium/Instructions/Base.agda +++ b/src/Helium/Instructions/Base.agda @@ -130,7 +130,7 @@ LSL-C : ∀ {n} (shift : ℕ) → Function (bits n ∷ []) (tuple 2 (bits n ∷ LSL-C {n} shift = declare (var 0F ∶ lit ((Vec.replicate {n = (suc shift)} false) ′xs)) (skip ∙return tup ( slice (var 0F) (lit (zero ′f)) - ∷ unbox (slice (cast eq (var 0F)) (lit (Fin.inject+ shift (Fin.fromℕ n) ′f))) + ∷ unbox (slice (cast eq (var 0F)) (lit (((Fin.fromℕ n) Fin.↑ˡ shift) ′f))) ∷ [])) where eq = P.trans (ℕₚ.+-comm 1 (shift ℕ.+ n)) (P.cong (ℕ._+ 1) (ℕₚ.+-comm shift n)) |