Delete the bundles since they did not turn out all that useful
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
3e88a64ed9
commit
56da61b339
|
@ -1,30 +0,0 @@
|
|||
open import Relation.Binary.PropositionalEquality using (_≡_)
|
||||
open import Relation.Binary.Definitions using (Decidable)
|
||||
|
||||
module Lattice.Bundles.FiniteValueMap (A B : Set) (≡-dec-A : Decidable (_≡_ {_} {A})) where
|
||||
|
||||
open import Lattice
|
||||
open import Data.List using (List)
|
||||
open import Data.Nat using (ℕ)
|
||||
open import Utils using (Unique)
|
||||
|
||||
module FromFiniteHeightLattice (fhB : FiniteHeightLattice B)
|
||||
{ks : List A} (uks : Unique ks)
|
||||
(≈₂-dec : Decidable (FiniteHeightLattice._≈_ fhB)) where
|
||||
|
||||
open Lattice.FiniteHeightLattice fhB using () renaming
|
||||
( _≈_ to _≈₂_; _⊔_ to _⊔₂_; _⊓_ to _⊓₂_
|
||||
; height to height₂
|
||||
; isLattice to isLattice₂
|
||||
; fixedHeight to fixedHeight₂
|
||||
)
|
||||
|
||||
import Lattice.FiniteMap
|
||||
module FM = Lattice.FiniteMap ≡-dec-A isLattice₂
|
||||
open FM.WithKeys ks public
|
||||
|
||||
import Lattice.FiniteValueMap
|
||||
module FVM = Lattice.FiniteValueMap ≡-dec-A isLattice₂
|
||||
open FVM.IterProdIsomorphism.WithUniqueKeysAndFixedHeight uks ≈₂-dec height₂ fixedHeight₂ public
|
||||
|
||||
≈-dec = ≈₂-dec⇒≈-dec ≈₂-dec
|
|
@ -1,38 +0,0 @@
|
|||
open import Lattice
|
||||
|
||||
module Lattice.Bundles.IterProd {a} (A B : Set a) where
|
||||
open import Data.Nat using (ℕ)
|
||||
|
||||
module _ (lA : Lattice A) (lB : Lattice B) where
|
||||
open Lattice.Lattice lA using () renaming
|
||||
( _≈_ to _≈₁_; _⊔_ to _⊔₁_; _⊓_ to _⊓₁_
|
||||
; isLattice to isLattice₁
|
||||
)
|
||||
|
||||
open Lattice.Lattice lB using () renaming
|
||||
( _≈_ to _≈₂_; _⊔_ to _⊔₂_; _⊓_ to _⊓₂_
|
||||
; isLattice to isLattice₂
|
||||
)
|
||||
|
||||
module _ (k : ℕ) where
|
||||
open import Lattice.IterProd _≈₁_ _≈₂_ _⊔₁_ _⊔₂_ _⊓₁_ _⊓₂_ isLattice₁ isLattice₂ using (lattice) public
|
||||
|
||||
module _ (fhA : FiniteHeightLattice A) (fhB : FiniteHeightLattice B) where
|
||||
open Lattice.FiniteHeightLattice fhA using () renaming
|
||||
( _≈_ to _≈₁_; _⊔_ to _⊔₁_; _⊓_ to _⊓₁_
|
||||
; height to height₁
|
||||
; isLattice to isLattice₁
|
||||
; fixedHeight to fixedHeight₁
|
||||
)
|
||||
|
||||
open Lattice.FiniteHeightLattice fhB using () renaming
|
||||
( _≈_ to _≈₂_; _⊔_ to _⊔₂_; _⊓_ to _⊓₂_
|
||||
; height to height₂
|
||||
; isLattice to isLattice₂
|
||||
; fixedHeight to fixedHeight₂
|
||||
)
|
||||
|
||||
module _ (≈₁-dec : IsDecidable _≈₁_) (≈₂-dec : IsDecidable _≈₂_) (k : ℕ) where
|
||||
import Lattice.IterProd _≈₁_ _≈₂_ _⊔₁_ _⊔₂_ _⊓₁_ _⊓₂_ isLattice₁ isLattice₂ as IP
|
||||
|
||||
finiteHeightLattice = IP.finiteHeightLattice k ≈₁-dec ≈₂-dec height₁ height₂ fixedHeight₁ fixedHeight₂
|
Loading…
Reference in New Issue
Block a user