Add instances of semilattice proofs
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
42bb8f8792
commit
2808759338
@ -72,7 +72,7 @@ record IsPartialSemilattice {a} {A : Set a}
|
||||
_≼_ x y = (x ⊔? y) ≈? (just y)
|
||||
|
||||
field
|
||||
≈-equiv : IsEquivalence A _≈_
|
||||
{{≈-equiv}} : IsEquivalence A _≈_
|
||||
≈-⊔-cong : PartialCong _≈_ _⊔?_
|
||||
|
||||
⊔-assoc : PartialAssoc _≈_ _⊔?_
|
||||
@ -1010,6 +1010,25 @@ _⊓̇_-idemp {Ls = Ls} (MkPath p)
|
||||
≈-⊓̇-cong {Ls = Ls} (mk-≈ p₁≈p₂) (mk-≈ p₃≈p₄) =
|
||||
lift-≈-map MkPath _ (_≈_ {Ls = Ls}) (λ _ _ → mk-≈) _ _ (eqPath'-pathMeet'-cong {Ls = Ls} p₁≈p₂ p₃≈p₄)
|
||||
|
||||
instance
|
||||
Path-IsPartialJoinSemilattice : ∀ {a} {Ls : Layers a} → IsPartialSemilattice (_≈_ {Ls = Ls}) (_⊔̇_ {Ls = Ls})
|
||||
Path-IsPartialJoinSemilattice {Ls = Ls} =
|
||||
record
|
||||
{ ⊔-assoc = _⊔̇_-assoc {Ls = Ls}
|
||||
; ⊔-comm = _⊔̇_-comm {Ls = Ls}
|
||||
; ⊔-idemp = _⊔̇_-idemp {Ls = Ls}
|
||||
; ≈-⊔-cong = ≈-⊔̇-cong {Ls = Ls}
|
||||
}
|
||||
|
||||
Path-IsPartialMeetSemilattice : ∀ {a} {Ls : Layers a} → IsPartialSemilattice (_≈_ {Ls = Ls}) (_⊓̇_ {Ls = Ls})
|
||||
Path-IsPartialMeetSemilattice {Ls = Ls} =
|
||||
record
|
||||
{ ⊔-assoc = _⊓̇_-assoc {Ls = Ls}
|
||||
; ⊔-comm = _⊓̇_-comm {Ls = Ls}
|
||||
; ⊔-idemp = _⊓̇_-idemp {Ls = Ls}
|
||||
; ≈-⊔-cong = ≈-⊓̇-cong {Ls = Ls}
|
||||
}
|
||||
|
||||
-- data ListValue {a : Level} : List (PartialLatticeType a) → Set (lsuc a) where
|
||||
-- here : ∀ {plt : PartialLatticeType a} {pltl : List (PartialLatticeType a)}
|
||||
-- (v : PartialLatticeType.EltType plt) → ListValue (plt ∷ pltl)
|
||||
|
Loading…
Reference in New Issue
Block a user