summaryrefslogtreecommitdiff
path: root/BFF.agda
diff options
context:
space:
mode:
authorHelmut Grohne <grohne@cs.uni-bonn.de>2014-02-04 10:52:49 +0100
committerHelmut Grohne <grohne@cs.uni-bonn.de>2014-02-04 10:52:49 +0100
commit20c176d383e59a0345f7425c5f14679906159a59 (patch)
treea2874cac4922670c6d8e8229c24b56a725c11dda /BFF.agda
parent257665f2910296c6e87113d2f7a418e1f83b33f6 (diff)
downloadbidiragda-20c176d383e59a0345f7425c5f14679906159a59.tar.gz
add convenience members to PartialVecVec.Get
Diffstat (limited to 'BFF.agda')
-rw-r--r--BFF.agda2
1 files changed, 1 insertions, 1 deletions
diff --git a/BFF.agda b/BFF.agda
index 5bf756d..f5573ba 100644
--- a/BFF.agda
+++ b/BFF.agda
@@ -38,7 +38,7 @@ module PartialVecBFF (A : DecSetoid ℓ₀ ℓ₀) where
denumerate = flip lookupV
- bff : (G : Get) → ({i : Setoid.Carrier (Get.I G)} → Vec Carrier (to (Get.gl₁ G) ⟨$⟩ i) → Vec Carrier ((Get.gl₂ G) ⟨$⟩ i) → Maybe (Vec Carrier (to (Get.gl₁ G) ⟨$⟩ i)))
+ bff : (G : Get) → ({i : Get.|I| G} → Vec Carrier (Get.|gl₁| G i) → Vec Carrier (Get.|gl₂| G i) → Maybe (Vec Carrier (Get.|gl₁| G i)))
bff G s v = let s′ = enumerate s
t′ = Get.get G s′
g = fromFunc (denumerate s)