diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-11-03 23:29:21 -0600 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-11-03 23:29:21 -0600 |
| commit | 298baf2b69620106e95b52206e02d58ad8cb9fc8 (patch) | |
| tree | ab34ff8ed5274d7e6dae0e7d1cc17654d1ebaf22 /Data/Hypergraph/Base.agda | |
| parent | d2ce2675b5e0331b6bf5647a4fc195e458d9b5ee (diff) | |
Use permutation for equivalence of hypergraphs
Diffstat (limited to 'Data/Hypergraph/Base.agda')
| -rw-r--r-- | Data/Hypergraph/Base.agda | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Data/Hypergraph/Base.agda b/Data/Hypergraph/Base.agda deleted file mode 100644 index 0910e02..0000000 --- a/Data/Hypergraph/Base.agda +++ /dev/null @@ -1,25 +0,0 @@ -{-# OPTIONS --without-K --safe #-} - -open import Level using (Level) -open import Data.Hypergraph.Label using (HypergraphLabel) - -module Data.Hypergraph.Base {ℓ : Level} (HL : HypergraphLabel) where - -import Data.Hypergraph.Edge HL as Edge - -open import Data.List using (List; map) -open import Data.Nat.Base using (ℕ) -open import Data.String using (String; unlines) - -open Edge using (Edge) - -record Hypergraph (v : ℕ) : Set ℓ where - constructor mkHypergraph - field - edges : List (Edge v) - -normalize : {v : ℕ} → Hypergraph v → Hypergraph v -normalize (mkHypergraph e) = mkHypergraph (Edge.sort e) - -show : {v : ℕ} → Hypergraph v → String -show (mkHypergraph e) = unlines (map Edge.show e) |