We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0dec856 commit 9ddc11fCopy full SHA for 9ddc11f
src/Maps.lidr
@@ -360,13 +360,13 @@ partial maps.
360
> Refl
361
>
362
> update_same : m x = Just v -> update x v m = m
363
-> update_same {x} {m} {v} prf =
+> update_same {x} {m} prf =
364
> rewrite sym prf in
365
> rewrite t_update_same {x} {m} in
366
367
368
> update_permute : Not (x2 = x1) -> update x1 v1 $ update x2 v2 m
369
> = update x2 v2 $ update x1 v1 m
370
-> update_permute {x1} {x2} {v1} {v2} {m} neq =
371
-> rewrite t_update_permute neq {x1} {x2} {v1=Just v1} {v2=Just v2} {m} in
372
-> Refl
+> update_permute {v1} {v2} {m} neq =
+> rewrite t_update_permute neq {v1=Just v1} {v2=Just v2} {m} in
+> Refl
0 commit comments