diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-12-13 20:40:01 -0600 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-12-13 20:40:01 -0600 |
| commit | db3f4ec746f270cab4142dda8ea3f3c1a25d2dd6 (patch) | |
| tree | 076c974414aa27cb171b4ae6e136db48eff2fe16 /Data/Hypergraph.agda | |
| parent | 8e40a6e427aea3cdfeda038c38942e9d66c502e3 (diff) | |
Add hypergraph destructor setoid homomorphismmain
Diffstat (limited to 'Data/Hypergraph.agda')
| -rw-r--r-- | Data/Hypergraph.agda | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Data/Hypergraph.agda b/Data/Hypergraph.agda index 7d22129..532e082 100644 --- a/Data/Hypergraph.agda +++ b/Data/Hypergraph.agda @@ -79,4 +79,8 @@ Multiset∘Edgeₛ = ↭-setoid ∘ Edgeₛ mkHypergraphₛ : {n : ℕ} → Multiset∘Edgeₛ n ⟶ₛ Hypergraphₛ n mkHypergraphₛ .to = mkHypergraph -mkHypergraphₛ {n} .cong = mk≈ +mkHypergraphₛ .cong = mk≈ + +edgesₛ : {n : ℕ} → Hypergraphₛ n ⟶ₛ Multiset∘Edgeₛ n +edgesₛ .to = Hypergraph.edges +edgesₛ .cong = _≈_.↭-edges |