Re-define 'interior'

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2025-11-28 17:09:14 -08:00 · 2025-11-28 17:09:14 -08:00 · baece236d3
commit baece236d3
parent 6f642d85e0
1 changed files with 5 additions and 0 deletions
--- a/Lattice/Builder.agda
+++ b/Lattice/Builder.agda
@ -47,6 +47,11 @@ record Graph : Set where
    done ++ p = p
    (step e p₁) ++ p₂ = step e (p₁ ++ p₂)

+    interior : ∀ {n₁ n₂} → Path n₁ n₂ → List Node
+    interior done = []
+    interior (step _ done) = []
+    interior (step {n₂ = n₂} _ p) = n₂ ∷ interior p
+
    Adjacency : Set
    Adjacency = ∀ (n₁ n₂ : Node) → List (Path n₁ n₂)