18 lines
279 B
Racket
18 lines
279 B
Racket
#lang racket
|
|
(require redex)
|
|
|
|
(define-language grammar
|
|
(B t
|
|
f
|
|
(B * B)))
|
|
|
|
(define r
|
|
(reduction-relation
|
|
grammar
|
|
(--> (f * B_1) B_1 false) ; [a]
|
|
(--> (t * B_1) t true))) ; [b]
|
|
|
|
(define ->r (compatible-closure r grammar B))
|
|
|
|
(traces ->r '((f * f) * (t * f)))
|