mirror of https://git.sr.ht/~rabbits/modal
12 lines
241 B
Plaintext
12 lines
241 B
Plaintext
|
|
||
|
|
define (M ?x) (?x ?x)
|
||
|
|
define (KI ?x ?y) (?y)
|
||
|
|
define (T ?x ?y) (?y ?y)
|
||
|
|
define (W ?x ?y) (?x ?y ?y)
|
||
|
|
define (K ?x ?y) (?x)
|
||
|
|
define (C ?x ?y ?z) (?x ?z ?y)
|
||
|
|
define (B ?x ?y ?z) (?x (?y ?z))
|
||
|
|
define (I ?x) (?x)
|
||
|
|
define (S ?x ?y ?z) (?x ?z (?y ?z))
|
||
|
|
|