From 6ce567bf63a61bce4ccf71e3ec402d94d1da2fb1 Mon Sep 17 00:00:00 2001 From: Helmut Grohne Date: Sun, 29 Sep 2019 13:54:46 +0200 Subject: port to agda/2.6.0.1 and agda-stdlib/1.1 * Data.Vec.lookup changed parameter order. * A number of symbols were moved from Data.Maybe to submodules. * In a number of occasions, agda no longer figures implicit arguments and they had to be made explicit. * We can no longer use heterogeneous proofs inside equational reasoning for propositional equality. Use heterogeneous equational reasoning. * Stop importing proof-irrelevance as that would require K. --- BFF.agda | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'BFF.agda') diff --git a/BFF.agda b/BFF.agda index 06744f6..74380a9 100644 --- a/BFF.agda +++ b/BFF.agda @@ -35,7 +35,7 @@ module PartialShapeBFF (A : DecSetoid ℓ₀ ℓ₀) where where open Shaped ShapeT denumerate : {S : Set} {C : Set → S → Set} → (ShapeT : Shaped S C) → {α : Set} {s : S} → (c : C α s) → Fin (Shaped.arity ShapeT s) → α - denumerate ShapeT c = flip lookupV (Shaped.content ShapeT c) + denumerate ShapeT c = lookupV (Shaped.content ShapeT c) bff : (G : Get) → {i : Get.I G} → (j : Get.I G) → Get.SourceContainer G Carrier (Get.gl₁ G i) → Get.ViewContainer G Carrier (Get.gl₂ G j) → Maybe (Get.SourceContainer G (Maybe Carrier) (Get.gl₁ G j)) bff G {i} j s v = let s′ = enumerate SourceShapeT (gl₁ i) -- cgit v1.2.3