diff options
| -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 |