diff options
| author | Helmut Grohne <helmut@subdivi.de> | 2012-11-19 14:56:28 +0100 |
|---|---|---|
| committer | Helmut Grohne <helmut@subdivi.de> | 2012-11-19 14:56:28 +0100 |
| commit | 01a9a3c32bb130d77773e22fd29faccbde60334d (patch) | |
| tree | 5b20f3cdbc32dec086c9cf9ec81789fd0e5c4801 /Precond.agda | |
| parent | 2af4adb34bf68ab64227fc7189117540964559df (diff) | |
| download | bidiragda-01a9a3c32bb130d77773e22fd29faccbde60334d.tar.gz | |
we can also drop an implicit parameter from assoc-enough
Diffstat (limited to 'Precond.agda')
| -rw-r--r-- | Precond.agda | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Precond.agda b/Precond.agda index b30720c..44512b3 100644 --- a/Precond.agda +++ b/Precond.agda @@ -24,7 +24,7 @@ open Bidir Carrier deq using (lemma-∉-lookupM-assoc) open BFF.VecBFF Carrier 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 {m} s v (h , p) = u , cong (fmap (flip map s′ ∘ flip lookup) ∘ (fmap (flip union g))) p +assoc-enough get s v (h , p) = u , cong (fmap (flip map s′ ∘ flip lookup) ∘ (fmap (flip union g))) p where s′ = enumerate s g = fromFunc (denumerate s) u = map (flip lookup (union h g)) s′ |