DanilaFe/agda-spa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Switch product to using instances

Browse Source 
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin
2025-01-04 21:33:59 -08:00
parent 70847d51db
commit cf824dc744
2 changed files with 77 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Lattice/IterProd.agda
View File

@@ -40,11 +40,11 @@ build a b (suc s) = (a , build a b s)
private
record RequiredForFixedHeight : Set (lsuc a) where
field
≈₁-Decidable : IsDecidable _≈₁_
≈₂-Decidable : IsDecidable _≈₂_
{{≈₁-Decidable}} : IsDecidable _≈₁_
{{≈₂-Decidable}} : IsDecidable _≈₂_
h₁ h₂ : ℕ
fhA : FixedHeight₁ h₁
fhB : FixedHeight₂ h₂
{{fhA}} : FixedHeight₁ h₁
{{fhB}} : FixedHeight₂ h₂
⊥₁ : A
⊥₁ = Height.⊥ fhA
@@ -102,10 +102,9 @@ private
{ height = (RequiredForFixedHeight.h₁ req) + IsFiniteHeightWithBotAndDecEq.height fhlRest
; fixedHeight =
P.fixedHeight
(RequiredForFixedHeight.≈₁-Decidable req) (IsFiniteHeightWithBotAndDecEq.≈-Decidable fhlRest)
(RequiredForFixedHeight.h₁ req) (IsFiniteHeightWithBotAndDecEq.height fhlRest)
(RequiredForFixedHeight.fhA req) (IsFiniteHeightWithBotAndDecEq.fixedHeight fhlRest)
; ≈-Decidable = P.≈-Decidable (RequiredForFixedHeight.≈₁-Decidable req) (IsFiniteHeightWithBotAndDecEq.≈-Decidable fhlRest)
{{≈₂-Decidable = IsFiniteHeightWithBotAndDecEq.≈-Decidable fhlRest}}
{{fhB = IsFiniteHeightWithBotAndDecEq.fixedHeight fhlRest}}
; ≈-Decidable = P.≈-Decidable {{≈₂-Decidable = IsFiniteHeightWithBotAndDecEq.≈-Decidable fhlRest}}
; ⊥-correct =
cong ((Height.⊥ (RequiredForFixedHeight.fhA req)) ,_)
(IsFiniteHeightWithBotAndDecEq.⊥-correct fhlRest)
@@ -113,12 +112,7 @@ private
}
where
everythingRest = everything k'
import Lattice.Prod
_≈₁_ (Everything._≈_ everythingRest)
_⊔₁_ (Everything._⊔_ everythingRest)
_⊓₁_ (Everything._⊓_ everythingRest)
lA (Everything.isLattice everythingRest) as P
import Lattice.Prod A (IterProd k') {{lB = Everything.isLattice everythingRest}} as P
module _ {k : ℕ} where
open Everything (everything k) using (_≈_; _⊔_; _⊓_) public