syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

handwritten LTL that succeeds

This commit is contained in:
Sam Caldwell 2020-06-12 15:45:06 -04:00
parent d30007b798
commit 7cf8f9fc0a
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/typed/compile-spin.rkt
View File

@ -546,7 +546,17 @@
(define seller-rg (compile seller-actual))
(define member-rg (compile member-actual))
(define book-club-spin (program->spin (list leader-rg seller-rg member-rg)))
(gen-spin/to-file book-club-spin "gen-book-club.pml"))
(gen-spin/to-file book-club-spin "gen-book-club.pml")
;; handwritten LTL formula I've added to gen-book-club.pml:
#|
&&
<> (BookQuoteT_String_star_assertions > 0)
&&
[] (ASSERTED(Obs_BookQuoteT_String_star) -> <> ASSERTED(BookQuoteT_String_star))
&&
[] (ASSERTED(Obs_BookInterestT_String_star_star) -> <> ASSERTED(BookInterestT_String_star_star))
|#
)
(require racket/trace)
#;(trace make-spin-id)