From 7ba21759412a8b356f7790ac5f5e413302331183 Mon Sep 17 00:00:00 2001
From: Helmut Grohne <helmut@subdivi.de>
Date: Fri, 5 Oct 2012 12:47:09 +0200
Subject: move all postulates to one module

This should make it easier to see what is assumed.
---
 BFF.agda | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'BFF.agda')

diff --git a/BFF.agda b/BFF.agda
index 546782d..612c2c3 100644
--- a/BFF.agda
+++ b/BFF.agda
@@ -9,6 +9,7 @@ open import Function using (id ; _∘_ ; flip)
 
 open import FinMap
 open import CheckInsert
+import FreeTheorems
 
 _>>=_ : {A B : Set} → Maybe A → (A → Maybe B) → Maybe B
 _>>=_ = flip (flip maybe′ nothing)
@@ -17,8 +18,7 @@ fmap : {A B : Set} → (A → B) → Maybe A → Maybe B
 fmap f = maybe′ (λ a → just (f a)) nothing
 
 module ListBFF where
-  get-type : Set₁
-  get-type = {A : Set} → List A → List A
+  open FreeTheorems.ListList public using (get-type)
 
   assoc : {A : Set} {n : ℕ} → EqInst A → List (Fin n) → List A → Maybe (FinMapMaybe n A)
   assoc _  []       []       = just empty
@@ -39,8 +39,7 @@ module ListBFF where
                    in fmap (flip map s′ ∘ flip lookup) h′
 
 module VecBFF where
-  get-type : (ℕ → ℕ) → Set₁
-  get-type getlen = {A : Set} {n : ℕ} → Vec A n → Vec A (getlen n)
+  open FreeTheorems.VecVec public using (get-type)
 
   assoc : {A : Set} {n m : ℕ} → EqInst A → Vec (Fin n) m → Vec A m → Maybe (FinMapMaybe n A)
   assoc _  []V       []V       = just empty
-- 
cgit v1.2.3