fix the graph signature, it must have set-of to be correct

2 files changed, 2 insertions, 2 deletions

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 = {