diff options
Diffstat (limited to 'src/main.rs')
| -rw-r--r-- | src/main.rs | 6 |
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 { |