From 9bd859f2a62790e3beca2c20a932040c9db96378 Mon Sep 17 00:00:00 2001
From: tslil <tslil@posteo.de>
Date: Mon, 27 Apr 2026 21:33:22 +0100
Subject: fix the graph signature, it must have set-of to be correct

---
 src/main.rs   | 2 +-
 src/parser.rs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/main.rs b/src/main.rs
index 491f6d6..ca9b9bb 100644
--- a/src/main.rs
+++ b/src/main.rs
@@ -33,7 +33,7 @@ let element check_cases : Nat = case injected of [ z. myz => myz .y .n | f. myf
 
 let signature Graph = theory {
     Node :: Set,
-    Edge :: (s : Node) (t : Node) -> Set
+    Edge :: (s : set-of(Node)) (t : set-of(Node)) -> Set
 }
 
 let instance natPoset :: Graph = {
diff --git a/src/parser.rs b/src/parser.rs
index 6810927..0a7f063 100644
--- a/src/parser.rs
+++ b/src/parser.rs
@@ -278,7 +278,7 @@ let set Maybe = variant [
         let src = r#"
             let signature Graph = theory {
                 Node :: Set,
-                Edge :: (s : Node) (t : Node) -> Set
+                Edge :: (s : set-of(Node)) (t : set-of(Node)) -> Set
             }
 
             let instance natPoset :: Graph = {
-- 
cgit v1.3.1