SegExamples.hs revision 8833f37d01b6fcb153f4bcfb6d574c202af420d7
module SegExamples where
import AbstractSyntax
import GenericSequent
-- example Segala
test1 = KD (And (At (K (And (At (KD T)) F))) (And (And F (At (K F))) F))
--test4 =
test2 = K T
test3 = KD F