wip case for instances

1 files changed, 4 insertions, 2 deletions

diff --git a/src/main.rs b/src/main.rs
index 34d6360..a395db8 100644
--- a/src/main.rs
+++ b/src/main.rs
@@ -23,9 +23,11 @@ let signature Graph = theory {
     Edge :: (s : set-of(Node)) (t : set-of(Node)) -> Set
 }
 
+let set FinTwo = variant [ zero : record{} | one : record{} ]
+
 let instance natGraph :: Graph = {
-    .Node = Nat :: Set,
-    .Edge = for (s : Nat) (t : Nat), Bool :: Set
+    .Node = FinTwo :: Set,
+    .Edge = for (s : set-of(Node)) (t : set-of(Node)), case s of [ zero. ignore => Bool :: Set | one. ignore => Nat :: Set ]
 }
 
 let set NatEdges = record {