From 0f7efe7518b925d9688dad4c6f6e87f84015e2c1 Mon Sep 17 00:00:00 2001
From: tslil <tslil@posteo.de>
Date: Thu, 30 Apr 2026 16:53:14 +0100
Subject: wip case for instances

---
 src/main.rs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/main.rs')

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 {
-- 
cgit v1.3.1