diff options
| author | Helmut Grohne <grohne@cs.uni-bonn.de> | 2014-01-27 10:50:15 +0100 |
|---|---|---|
| committer | Helmut Grohne <grohne@cs.uni-bonn.de> | 2014-01-27 10:50:15 +0100 |
| commit | 00e60d0339d3e0044abfb06b8f77e9f7a3ffdcfb (patch) | |
| tree | 1a634eae43fb1656bda3f5a3bb856b744131c73d /Precond.agda | |
| parent | 2c37e0c2f32b4c6b5c121827a4abddf7fc1dd7e0 (diff) | |
| parent | af1ea86b6e817a85d4d160833fc5d4bb89e2df7b (diff) | |
| download | bidiragda-00e60d0339d3e0044abfb06b8f77e9f7a3ffdcfb.tar.gz | |
Merge branch feature-decsetoid
Diffstat (limited to 'Precond.agda')
| -rw-r--r-- | Precond.agda | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Precond.agda b/Precond.agda index e4699dc..9bae83b 100644 --- a/Precond.agda +++ b/Precond.agda @@ -17,16 +17,16 @@ open Data.List.Any.Membership-≡ using (_∉_) open import Data.Maybe using (just) open import Data.Product using (∃ ; _,_) open import Function using (flip ; _∘_) -open import Relation.Binary.PropositionalEquality using (refl ; cong ; inspect ; [_] ; sym) +open import Relation.Binary.PropositionalEquality using (refl ; cong ; inspect ; [_] ; sym ; decSetoid) open Relation.Binary.PropositionalEquality.≡-Reasoning using (begin_ ; _≡⟨_⟩_ ; _∎) open import FinMap using (FinMap ; FinMapMaybe ; lookupM ; union ; fromFunc ; empty ; insert ; lemma-lookupM-empty) import CheckInsert -open CheckInsert Carrier deq using (checkInsert ; lemma-checkInsert-new ; lemma-lookupM-checkInsert-other) +open CheckInsert (decSetoid deq) using (checkInsert ; lemma-checkInsert-new ; lemma-lookupM-checkInsert-other) import BFF import Bidir -open BFF.VecBFF Carrier deq using (get-type ; assoc ; enumerate ; denumerate ; bff) +open BFF.VecBFF (decSetoid deq) using (get-type ; assoc ; enumerate ; denumerate ; bff) assoc-enough : {getlen : ℕ → ℕ} (get : get-type getlen) → {m : ℕ} → (s : Vec Carrier m) → (v : Vec Carrier (getlen m)) → ∃ (λ h → assoc (get (enumerate s)) v ≡ just h) → ∃ λ u → bff get s v ≡ just u assoc-enough get s v (h , p) = u , cong (_<$>_ (flip map s′ ∘ flip lookup) ∘ (_<$>_ (flip union g))) p |