diff options
author | Helmut Grohne <helmut@subdivi.de> | 2022-08-18 15:41:00 +0200 |
---|---|---|
committer | Helmut Grohne <helmut@subdivi.de> | 2022-08-18 15:41:00 +0200 |
commit | 9c77e3515bc76994514eb1531e366e0cfa00651d (patch) | |
tree | 3d192677f6b8c56c4a9942f0fbc28373ba4146ad | |
parent | 1286deef698a9fbf92b86d0078fd62c47f980ee9 (diff) | |
download | bidiragda-9c77e3515bc76994514eb1531e366e0cfa00651d.tar.gz |
-rw-r--r-- | FinMap.agda | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FinMap.agda b/FinMap.agda index 76709c1..62cf75f 100644 --- a/FinMap.agda +++ b/FinMap.agda @@ -32,7 +32,7 @@ data Dec∈ {A : Set} {n : ℕ} (x : A) (xs : Vec A n) : Set where no-∉ : x ∉ xs → Dec∈ x xs is-∈ : {A : Set} {n : ℕ} → Decidable (_≡_ {A = A}) → (x : A) → (xs : Vec A n) → Dec∈ x xs -is-∈ eq? x xs with Any.any (eq? x) (toList xs) +is-∈ eq? x xs with Any.any? (eq? x) (toList xs) ... | yes x∈xs = yes-∈ x∈xs ... | no x∉xs = no-∉ (Π._⟨$⟩_ (Surjection.to AllP.¬Any↠All¬) x∉xs) |