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 | |
| parent | 8e40a6e427aea3cdfeda038c38942e9d66c502e3 (diff) | |
Add hypergraph destructor setoid homomorphismmain
| -rw-r--r-- | Data/Circuit.agda | 2 | ||||
| -rw-r--r-- | Data/Hypergraph.agda | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/Data/Circuit.agda b/Data/Circuit.agda index 77d6b72..473e4fc 100644 --- a/Data/Circuit.agda +++ b/Data/Circuit.agda @@ -19,7 +19,7 @@ open Func open Hypergraph using (Multiset∘Edgeₛ) open Hypergraph - using (_≈_ ; mk≈ ; module Edge) + using (_≈_ ; mk≈ ; module Edge; edgesₛ) renaming ( Hypergraph to Circuit ; Hypergraphₛ to Circuitₛ 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 |