diff options
-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) |