diff options
| author | Helmut Grohne <grohne@cs.uni-bonn.de> | 2014-02-07 18:55:23 +0100 |
|---|---|---|
| committer | Helmut Grohne <grohne@cs.uni-bonn.de> | 2014-02-07 18:55:23 +0100 |
| commit | 0a1558b7cb0bccbe4a8c8411ac08d11a87547eea (patch) | |
| tree | 0ffdaa4c1dbf8cc580b08b1d4bdf2c8bfa77788c /FinMap.agda | |
| parent | c9ddcf0abbb2e82eafc6dc24872244374c4f43c2 (diff) | |
| download | bidiragda-0a1558b7cb0bccbe4a8c8411ac08d11a87547eea.tar.gz | |
eliminate useless withs
Diffstat (limited to 'FinMap.agda')
| -rw-r--r-- | FinMap.agda | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/FinMap.agda b/FinMap.agda index ce76f18..c46e637 100644 --- a/FinMap.agda +++ b/FinMap.agda @@ -103,8 +103,7 @@ lemma-fromFunc-tabulate {zero} f = refl lemma-fromFunc-tabulate {suc _} f = cong (_∷_ (just (f zero))) (lemma-fromFunc-tabulate (f ∘ suc)) lemma-lookupM-delete : {n : ℕ} {A : Set} {i j : Fin n} → (f : FinMapMaybe n A) → i ≢ j → lookupM i (delete j f) ≡ lookupM i f -lemma-lookupM-delete {i = zero} {j = zero} (_ ∷ _) p with p refl -... | () +lemma-lookupM-delete {i = zero} {j = zero} (_ ∷ _) p = contradiction refl p lemma-lookupM-delete {i = zero} {j = suc j} (_ ∷ _) p = refl lemma-lookupM-delete {i = suc i} {j = zero} (x ∷ xs) p = refl lemma-lookupM-delete {i = suc i} {j = suc j} (x ∷ xs) p = lemma-lookupM-delete xs (p ∘ cong suc) |