From ece72d34809af0060d62e1841b1a76478db5a44a Mon Sep 17 00:00:00 2001 From: tslil Date: Wed, 29 Apr 2026 20:47:53 +0100 Subject: wip on App For --- src/main.rs | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'src/main.rs') diff --git a/src/main.rs b/src/main.rs index b8987a2..57e7f52 100644 --- a/src/main.rs +++ b/src/main.rs @@ -36,22 +36,22 @@ fn main() { // let element e : set-of(natPoset .Edge 3 5) = true // this should be difficult unless we correctly handle various forms of alpha/beta -let signature OneSet = theory { F :: Set } -let signature T = theory { - A :: Set, - B :: (x : set-of({ .F = A } .F)) -> Set, - C :: (x : set-of(set-of(set-of(A) :: Set) :: Set)) (b : set-of(B x)) -> Set -} - -// let signature Graph = theory { -// Node :: Set, -// Edge :: (s : set-of(Node)) (t : set-of(Node)) -> Set +// let signature OneSet = theory { F :: Set } +// let signature T = theory { +// A :: Set, +// B :: (x : set-of({ .F = A } .F)) -> Set, +// C :: (x : set-of(set-of(set-of(A) :: Set) :: Set)) (b : set-of(B x)) -> Set // } -// let instance natPoset :: Graph = { -// .Node = Nat :: Set, -// .Edge = for (s : Nat) (t : Nat), Bool :: Set -// } +let signature Graph = theory { + Node :: Set, + Edge :: (s : set-of(Node)) (t : set-of(Node)) -> Set +} + +let instance natPoset :: Graph = { + .Node = Nat :: Set, + .Edge = for (s : Nat) (t : Nat), Bool :: Set +} // let element node : set-of(natPoset .Node) = 7 -- cgit v1.3.1