11437
((3) 0 () 8 ((q lib "redex/gui.rkt") (q lib "redex/pict.rkt") (q lib "redex/reduction-semantics.rkt") (q 30547 . 20) (q 7821 . 6) (q 266 . 5) (q 11346 . 5) (q 11207 . 5)) () (h ! (equal) ((c def c (c (? . 0) q dark-pen-color)) q (20540 . 4)) ((c def c (c (? . 2) q language-nts)) q (2268 . 3)) ((c def c (c (? . 0) q term-node-set-position!)) q (19699 . 5)) ((c def c (c (? . 0) q term-node-width)) q (19972 . 3)) ((c def c (c (? . 1) q metafunction-font-size)) q (28378 . 6)) ((c def c (c (? . 0) q show-derivations)) q (17847 . 11)) ((c def c (c (? . 1) q default-style)) q (28114 . 4)) ((c def c (c (? . 2) q apply-reduction-relation)) q (4196 . 4)) ((c form c (c (? . 2) q term-let)) q (740 . 8)) ((c def c (c (? . 1) q reduction-rule-style/c)) q (24996 . 2)) ((c form c (c (? . 1) q judgment-form->pict)) q (24042 . 2)) ((c def c (c (? . 1) q lw-column-span)) c (? . 3)) ((c def c (c (? . 0) q default-pretty-printer)) q (21629 . 6)) ((c form c (c (? . 1) q term->pict)) q (21875 . 2)) ((c form c (c (? . 2) q define-extended-judgment-form)) q (7570 . 4)) ((c def c (c (? . 2) q covered-cases)) q (9711 . 3)) ((c def c (c (? . 2) q make-derivation)) c (? . 4)) ((c def c (c (? . 0) q dark-text-color)) q (21172 . 4)) ((c def c (c (? . 1) q linebreaks)) q (26123 . 4)) ((c def c (c (? . 1) q arrow-space)) q (25044 . 4)) ((c def c (c (? . 2) q relation-coverage)) q (9580 . 4)) ((c def c (c (? . 0) q term-node-labels)) q (19208 . 3)) ((c def c (c (? . 0) q term-node-expr)) q (19637 . 3)) ((c form c (c (? . 2) q in-hole)) q (725 . 2)) ((c def c (c (? . 1) q relation-clauses-combine)) q (29852 . 5)) ((c def c (c (? . 0) q term-node-children)) q (19043 . 3)) ((c form c (c (? . 2) q hole)) q (713 . 2)) ((c def c (c (? . 0) q initial-font-size)) q (20274 . 4)) ((c form c (c (? . 1) q to-lw)) q (31661 . 2)) ((c def c (c (? . 2) q exn:fail:redex?)) q (1535 . 3)) ((c form c (c (? . 1) q with-compound-rewriter)) q (30268 . 4)) ((c form c (c (? . 2) q test-->>∃)) q (9045 . 10)) ((c def c (c (? . 1) q lw-e)) c (? . 3)) ((c def c (c (? . 1) q lw-unq?)) c (? . 3)) ((c def c (c (? . 1) q default-font-size)) q (28614 . 4)) ((c def c (c (? . 1) q non-terminal-subscript-style)) q (27840 . 4)) ((c def c (c (? . 1) q render-reduction-relation)) q (22987 . 8)) ((c def c (c (? . 1) q to-lw/stx)) q (31681 . 3)) ((c form c (c (? . 1) q render-metafunction)) q (23471 . 2)) ((c def c (c (? . 1) q current-text)) q (29114 . 4)) ((c def c (c (? . 2) q derivation-subs)) c (? . 4)) ((c def c (c (? . 1) q struct:lw)) c (? . 3)) ((c form c (c (? . 2) q test-->)) q (8820 . 9)) ((c def c (c (? . 2) q current-traced-metafunctions)) q (8318 . 4)) ((c form c (c (? . 2) q O)) q (8015 . 2)) ((c form c (c (? . 2) q test-predicate)) q (9371 . 2)) ((c form c (c (? . 2) q redex-let*)) q (1014 . 2)) ((c def c (c (? . 2) q exn:fail:redex:test)) c (? . 6)) ((c form c (c (? . 1) q metafunction->pict)) q (23703 . 2)) ((c def c (c (? . 1) q language->pict)) q (22803 . 5)) ((c form c (c (? . 2) q I)) q (8006 . 2)) ((c form c (c (? . 1) q render-judgment-form)) q (23893 . 2)) ((c def c (c (? . 0) q pretty-print-parameters)) q (21488 . 4)) ((c def c (c (? . 1) q render-reduction-relation-rules)) q (24371 . 11)) ((c form c (c (? . 1) q metafunctions->pict)) q (23750 . 2)) ((c form c (c (? . 2) q term-match/single)) q (1183 . 2)) ((c form c (c (? . 2) q with)) q (5066 . 2)) ((c form c (c (? . 2) q define-relation)) q (8024 . 10)) ((c def c (c (? . 1) q set-lw-unq?!)) c (? . 3)) ((c form c (c (? . 2) q -->)) q (5042 . 2)) ((c def c (c (? . 0) q term-node-x)) q (19850 . 3)) ((c def c (c (? . 2) q set-cache-size!)) q (484 . 3)) ((c form c (c (? . 2) q check-metafunction)) q (12028 . 15)) ((c def c (c (? . 1) q render-lw)) q (31737 . 4)) ((c def c (c (? . 1) q render-language)) q (22543 . 6)) ((c def c (c (? . 1) q just-before)) q (31994 . 4)) ((c def c (c (? . 0) q term-node-parents)) q (19126 . 3)) ((c form c (c (? . 2) q redex-generator)) q (10997 . 7)) ((c def c (c (? . 1) q set-lw-metafunction?!)) c (? . 3)) ((c def c (c (? . 2) q counterexample)) c (? . 7)) ((c def c (c (? . 2) q bind)) c (? . 5)) ((c form c (c (? . 1) q render-term)) q (21810 . 3)) ((c form c (c (? . 1) q with-compound-rewriters)) q (30425 . 3)) ((c def c (c (? . 1) q grammar-style)) q (27299 . 4)) ((c def c (c (? . 2) q struct:derivation)) c (? . 4)) ((c def c (c (? . 1) q non-terminal-superscript-style)) q (27975 . 4)) ((c def c (c (? . 1) q judgment-form-cases)) q (26722 . 11)) ((c form c (c (? . 1) q with-unquote-rewriter)) q (30046 . 2)) ((c def c (c (? . 0) q light-pen-color)) q (20854 . 4)) ((c def c (c (? . 1) q paren-style)) q (27404 . 4)) ((c def c (c (? . 1) q term->pict/pretty-write)) q (22221 . 9)) ((c form c (c (? . 2) q redex-let)) q (943 . 2)) ((c def c (c (? . 2) q current-cache-all?)) q (4925 . 4)) ((c form c (c (? . 2) q define-union-language)) q (2139 . 5)) ((c def c (c (? . 1) q horizontal-bar-spacing)) q (29670 . 5)) ((c def c (c (? . 2) q bind-name)) c (? . 5)) ((c def c (c (? . 2) q derivation?)) c (? . 4)) ((c form c (c (? . 2) q define-metafunction/extension)) q (6066 . 5)) ((c def c (c (? . 1) q set-lw-column-span!)) c (? . 3)) ((c form c (c (? . 2) q define-judgment-form)) q (6260 . 45)) ((c def c (c (? . 2) q exn:fail:redex:test?)) c (? . 6)) ((c form c (c (? . 2) q define-metafunction)) q (5078 . 25)) ((c def c (c (? . 0) q traces/ps)) q (15148 . 41)) ((c def c (c (? . 2) q exn:fail:redex:generation-failure?)) q (12956 . 3)) ((c def c (c (? . 2) q variable-not-in)) q (1342 . 4)) ((c def c (c (? . 2) q compiled-lang?)) q (2350 . 3)) ((c form c (c (? . 2) q judgment-holds)) q (7667 . 5)) ((c def c (c (? . 0) q term-node-set-red!)) q (19541 . 4)) ((c def c (c (? . 1) q lw?)) c (? . 3)) ((c def c (c (? . 1) q extend-language-show-union)) q (24248 . 4)) ((c def c (c (? . 0) q term-node?)) q (20103 . 3)) ((c def c (c (? . 2) q redex-pseudo-random-generator)) q (12787 . 4)) ((c def c (c (? . 1) q lw-metafunction?)) c (? . 3)) ((c def c (c (? . 2) q check-redudancy)) q (560 . 4)) ((c def c (c (? . 2) q exn:fail:redex:test-term)) c (? . 6)) ((c form c (c (? . 2) q redex-match?)) q (70 . 3)) ((c def c (c (? . 0) q term-node-height)) q (20037 . 3)) ((c def c (c (? . 1) q label-style)) q (27198 . 4)) ((c form c (c (? . 2) q fresh)) q (5053 . 2)) ((c def c (c (? . 0) q term-node-set-color!)) q (19303 . 4)) ((c def c (c (? . 0) q term-node-y)) q (19911 . 3)) ((c def c (c (? . 0) q reduction-steps-cutoff)) q (20159 . 4)) ((c def c (c (? . 1) q delimit-ellipsis-arguments?)) q (25998 . 4)) ((c def c (c (? . 1) q metafunction-cases)) q (26260 . 9)) ((c form c (c (? . 2) q term)) q (663 . 3)) ((c def c (c (? . 1) q label-space)) q (25153 . 4)) ((c def c (c (? . 1) q metafunction-style)) q (27610 . 4)) ((c def c (c (? . 2) q exn:fail:redex:test-source)) c (? . 6)) ((c def c (c (? . 2) q coverage?)) q (9525 . 3)) ((c def c (c (? . 1) q lw->pict)) q (31866 . 4)) ((c def c (c (? . 2) q counterexample-term)) c (? . 7)) ((c def c (c (? . 1) q lw-column)) c (? . 3)) ((c def c (c (? . 2) q default-attempt-size)) q (12565 . 3)) ((c def c (c (? . 2) q make-counterexample)) c (? . 7)) ((c def c (c (? . 1) q lw-line-span)) c (? . 3)) ((c form c (c (? . 2) q redex-match)) q (0 . 3)) ((c def c (c (? . 2) q derivation)) c (? . 4)) ((c def c (c (? . 1) q white-bracket-sizing)) q (29440 . 5)) ((c def c (c (? . 1) q reduction-relation->pict)) q (23313 . 4)) ((c def c (c (? . 0) q term-node-color)) q (19438 . 3)) ((c def c (c (? . 0) q dark-brush-color)) q (20695 . 4)) ((c def c (c (? . 0) q stepper/seed)) q (17557 . 7)) ((c form c (c (? . 2) q define-term)) q (1086 . 2)) ((c form c (c (? . 2) q test-->>E)) q (9354 . 2)) ((c def c (c (? . 2) q test-results)) q (9402 . 2)) ((c form c (c (? . 2) q define-language)) q (1596 . 7)) ((c def c (c (? . 2) q struct:counterexample)) c (? . 7)) ((c form c (c (? . 1) q render-metafunctions)) q (23577 . 2)) ((c def c (c (? . 2) q caching-enabled?)) q (385 . 4)) ((c form c (c (? . 2) q test-->>)) q (8549 . 11)) ((c def c (c (? . 2) q match?)) q (142 . 3)) ((c def c (c (? . 2) q derivation-name)) c (? . 4)) ((c def c (c (? . 2) q make-bind)) c (? . 5)) ((c def c (c (? . 1) q lw-line)) c (? . 3)) ((c form c (c (? . 2) q ::=)) q (1850 . 2)) ((c def c (c (? . 0) q light-brush-color)) q (21011 . 4)) ((c def c (c (? . 1) q set-lw-line-span!)) c (? . 3)) ((c def c (c (? . 2) q apply-reduction-relation*)) q (4516 . 10)) ((c def c (c (? . 1) q non-terminal-style)) q (27725 . 4)) ((c def c (c (? . 1) q metafunction-pict-style)) q (25262 . 17)) ((c form c (c (? . 2) q extend-reduction-relation)) q (3727 . 2)) ((c def c (c (? . 2) q make-exn:fail:redex:test)) c (? . 6)) ((c form c (c (? . 2) q build-derivations)) q (7784 . 2)) ((c def c (c (? . 2) q derivation-term)) c (? . 4)) ((c def c (c (? . 2) q counterexample?)) c (? . 7)) ((c def c (c (? . 2) q union-reduction-relations)) q (3803 . 3)) ((c def c (c (? . 1) q render-language-nts)) q (24091 . 4)) ((c def c (c (? . 0) q stepper)) q (17305 . 7)) ((c def c (c (? . 1) q rule-pict-style)) q (24867 . 4)) ((c def c (c (? . 1) q render-term/pretty-write)) q (21907 . 9)) ((c form c (c (? . 2) q reduction-relation)) q (2410 . 36)) ((c def c (c (? . 0) q traces)) q (13036 . 41)) ((c def c (c (? . 1) q set-lw-e!)) c (? . 3)) ((c def c (c (? . 2) q plug)) q (1248 . 4)) ((c form c (c (? . 2) q context-closure)) q (4071 . 2)) ((c def c (c (? . 0) q derivation/ps)) q (18429 . 13)) ((c form c (c (? . 2) q make-coverage)) q (9438 . 5)) ((c form c (c (? . 2) q in-domain?)) q (6208 . 2)) ((c def c (c (? . 1) q arrow->pict)) q (29277 . 3)) ((c def c (c (? . 2) q default-check-attempts)) q (12650 . 4)) ((c def c (c (? . 2) q reduction-relation->rule-names)) q (3904 . 3)) ((c def c (c (? . 2) q apply-reduction-relation/tag-with-names)) q (4306 . 6)) ((c form c (c (? . 2) q test-equal)) q (8521 . 2)) ((c def c (c (? . 1) q set-arrow-pict!)) q (29341 . 4)) ((c def c (c (? . 2) q reduction-relation?)) q (4131 . 3)) ((c form c (c (? . 1) q with-atomic-rewriter)) q (30095 . 4)) ((c def c (c (? . 2) q variables-not-in)) q (1427 . 4)) ((c form c (c (? . 1) q render-relation)) q (23803 . 2)) ((c def c (c (? . 0) q light-text-color)) q (21329 . 4)) ((c form c (c (? . 1) q relation->pict)) q (24003 . 2)) ((c def c (c (? . 1) q make-lw)) c (? . 3)) ((c def c (c (? . 1) q literal-style)) q (27505 . 4)) ((c def c (c (? . 2) q struct:bind)) c (? . 5)) ((c def c (c (? . 1) q set-lw-column!)) c (? . 3)) ((c def c (c (? . 2) q match-bindings)) q (198 . 3)) ((c form c (c (? . 2) q compatible-closure)) q (4003 . 2)) ((c def c (c (? . 1) q label-font-size)) q (28219 . 4)) ((c def c (c (? . 1) q just-after)) q (32099 . 4)) ((c form c (c (? . 2) q term-match)) q (1125 . 2)) ((c form c (c (? . 2) q define-extended-language)) q (1861 . 7)) ((c def c (c (? . 1) q lw)) c (? . 3)) ((c def c (c (? . 2) q bind?)) c (? . 5)) ((c def c (c (? . 1) q curly-quotes-for-strings)) q (28999 . 4)) ((c def c (c (? . 2) q bind-exp)) c (? . 5)) ((c def c (c (? . 1) q set-lw-line!)) c (? . 3)) ((c form c (c (? . 2) q check-reduction-relation)) q (11519 . 15)) ((c form c (c (? . 2) q redex-check)) q (10383 . 18)) ((c def c (c (? . 2) q struct:exn:fail:redex:test)) c (? . 6)) ((c def c (c (? . 1) q reduction-relation-rule-separation)) q (28777 . 5)) ((c def c (c (? . 0) q initial-char-width)) q (20375 . 4)) ((c form c (c (? . 2) q generate-term)) q (9811 . 16)) ((c def c (c (? . 1) q build-lw)) q (31292 . 10))))
syntax
(redex-match lang pattern any)
(redex-match lang pattern)
syntax
(redex-match? lang pattern any)
(redex-match? lang pattern)
procedure
(match? val) -> boolean?
  val : any/c
procedure
(match-bindings m) -> (listof bind?)
  m : match?
struct
(struct bind (name exp)
        #:extra-constructor-name make-bind)
  name : symbol?
  exp : any/c
parameter
(caching-enabled?) -> boolean?
(caching-enabled? on?) -> void?
  on? : boolean?
procedure
(set-cache-size! size) -> void?
  size : positive-integer?
parameter
(check-redudancy) -> boolean?
(check-redudancy check?) -> void?
  check? : boolean?
syntax
(term term)
(term term #:lang lang-id)
syntax
hole
syntax
in-hole
syntax
(term-let ([tl-pat expr] ...) body)
 
tl-pat     = identifier
           | (tl-pat-ele ...)
              
tl-pat-ele = tl-pat
           | tl-pat ... ; a literal ellipsis
syntax
(redex-let language ([pattern expression] ...) body ...+)
syntax
(redex-let* language ([pattern expression] ...) body ...+)
syntax
(define-term identifier term)
syntax
(term-match language [pattern expression] ...)
syntax
(term-match/single language [pattern expression] ...)
procedure
(plug context expression) -> any
  context : any/c
  expression : any/c
procedure
(variable-not-in t var) -> symbol?
  t : any/c
  var : symbol?
procedure
(variables-not-in t vars) -> (listof symbol?)
  t : any/c
  vars : (listof symbol?)
procedure
(exn:fail:redex? v) -> boolean?
  v : any/c
syntax
(define-language lang-name
  non-terminal-def ...)
 
non-terminal-def = (non-terminal-name ...+ ::= pattern ...+)
                 | (non-terminal-name pattern ...+)
                 | ((non-terminal-name ...+) pattern ...+)
syntax
::=
syntax
(define-extended-language extended-lang base-lang
  non-terminal-def ...)
 
non-terminal-def = (non-terminal-name ...+ ::= pattern ...+)
                 | (non-terminal-name pattern ...+)
                 | ((non-terminal-name ...+) pattern ...+)
syntax
(define-union-language L base/prefix-lang ...)
 
base/prefix-lang = lang-id
                 | (prefix lang-id)
procedure
(language-nts lang) -> (listof symbol?)
  lang : compiled-lang?
procedure
(compiled-lang? l) -> boolean?
  l : any/c
syntax
(reduction-relation language domain base-arrow
                    reduction-case ...
                    shortcuts)
 
domain         = 
               | #:domain pattern
                  
base-arrow     = 
               | #:arrow base-arrow-name
                  
reduction-case = (arrow-name pattern term red-extras ...)
                  
red-extras     = rule-name
               | (fresh fresh-clause ...)
               | (side-condition racket-expression)
               | (where pattern term)
               | (judgment-holds (judgment-form-id pat/term ...))
               | (side-condition/hidden racket-expression)
               | (where/hidden pattern term)
                  
shortcuts      = 
               | with shortcut ...
                  
shortcut       = [(old-arrow-name pattern term)
                  (new-arrow-name identifier identifier)]
                  
rule-name      = identifier
               | string
               | (computed-name racket-expression)
                  
fresh-clause   = var
               | ((var1 ...) (var2 ...))
                  
pat/term       = pattern
               | term
syntax
(extend-reduction-relation reduction-relation language more ...)
procedure
(union-reduction-relations r ...) -> reduction-relation?
  r : reduction-relation?
procedure
(reduction-relation->rule-names r) -> (listof symbol?)
  r : reduction-relation?
syntax
(compatible-closure reduction-relation lang non-terminal)
syntax
(context-closure reduction-relation lang pattern)
procedure
(reduction-relation? v) -> boolean?
  v : any/c
procedure
(apply-reduction-relation r t) -> (listof any/c)
  r : reduction-relation?
  t : any/c
procedure
(apply-reduction-relation/tag-with-names r  
                                         t) 
 -> (listof (list/c (union false/c string?) any/c))
  r : reduction-relation?
  t : any/c
procedure
(apply-reduction-relation*  r                       
                            t                       
                           [#:cache-all? cache-all? 
                            #:stop-when stop-when]) 
 -> (listof any/c)
  r : reduction-relation?
  t : any/c
  cache-all? : boolean? = (current-cache-all?)
  stop-when : (-> any/c any) = (λ (x) #f)
parameter
(current-cache-all?) -> boolean?
(current-cache-all? cache-all?) -> void?
  cache-all? : boolean?
syntax
-->
syntax
fresh
syntax
with
syntax
(define-metafunction language
  metafunction-contract
  [(name pattern ...) term metafunction-extras ...]
  ...)
 
metafunction-contract = 
                      | id : pattern-sequence ... -> range
                        maybe-pre-condition
                         
maybe-pre-condition   = #:pre term
                      | 
                         
range                 = pattern
                      | pattern or range
                      | pattern ∨ range
                      | pattern ∪ range
                         
metafunction-extras   = (side-condition racket-expression)
                      | (side-condition/hidden racket-expression)
                      | (where pat term)
                      | (where/hidden pat term)
                      | (judgment-holds
                         (judgment-form-id pat/term ...))
                      | (clause-name name)
syntax
(define-metafunction/extension f language
  metafunction-contract
  [(g pattern ...) term metafunction-extras ...]
  ...)
syntax
(in-domain? (metafunction-name term ...))
syntax
(define-judgment-form language
  mode-spec
  contract-spec
  rule rule ...)
 
mode-spec      = #:mode (form-id pos-use ...)
                  
contract-spec  = 
               | #:contract (form-id pattern-sequence ...)
                  
pos-use        = I
               | O
                  
rule           = [premise
                  ...
                  dashes rule-name
                  conclusion]
               | [conclusion
                  premise
                  ...
                  rule-name]
                  
conclusion     = (form-id pat/term ...)
                  
premise        = (judgment-form-id pat/term ...) maybe-ellipsis
               | (where pattern term)
               | (where/hidden pattern term)
               | (side-condition term)
               | (side-condition/hidden term)
                  
rule-name      = 
               | string
               | non-ellipsis-non-hypens-var
                  
pat/term       = pattern
               | term
                  
maybe-ellipsis = 
               | ...
                  
dashes         = ---
               | ----
               | -----
               | etc.
syntax
(define-extended-judgment-form language judgment-form-id
  option ...
  rule ...)
syntax
(judgment-holds judgment)
(judgment-holds judgment term)
 
judgment = (judgment-form-id pat/term ...)
syntax
(build-derivations judgment)
struct
(struct derivation (term name subs)
        #:extra-constructor-name make-derivation)
  term : any/c
  name : (or/c string? #f)
  subs : (listof derivation?)
syntax
I
syntax
O
syntax
(define-relation language
  relation-contract
  [(name pattern ...)
   term ...
   metafunction-extras ...] ...)
 
relation-contract = 
                  | form-id ⊂ pattern x ... x pattern
                  | form-id ⊆ pattern × ... × pattern
parameter
(current-traced-metafunctions) -> (or/c 'all (listof symbol?))
(current-traced-metafunctions traced-metafunctions) -> void?
  traced-metafunctions : (or/c 'all (listof symbol?))
syntax
(test-equal e1 e2)
syntax
(test-->> rel-expr option ... e1-expr e2-expr ...)
 
option = #:cycles-ok
       | #:equiv pred-expr
       | #:pred pred-expr
 
  rel-expr : reduction-relation?
  pred-expr : (--> any/c any)
  e1-expr : any/c
  e2-expr : any/c
syntax
(test--> rel-expr option ... e1-expr e2-expr ...)
 
option = #:equiv pred-expr
 
  rel-expr : reduction-relation?
  pred-expr : (--> any/c any/c any/c)
  e1-expr : any/c
  e2-expr : any/c
syntax
(test-->>∃ option ... rel-expr start-expr goal-expr)
 
option = #:steps steps-expr
 
  rel-expr : reduction-relation?
  start-expr : any/c
  goal-expr : (or/c (-> any/c any/c)
                    (not/c procedure?))
  steps-expr : (or/c natural-number/c +inf.0)
syntax
test-->>E
syntax
(test-predicate p? e)
procedure
(test-results) -> void?
syntax
(make-coverage subject)
 
subject = metafunction
        | relation-expr
procedure
(coverage? v) -> boolean?
  v : any/c
parameter
(relation-coverage) -> (listof coverage?)
(relation-coverage tracked) -> void?
  tracked : (listof coverage?)
procedure
(covered-cases c) -> (listof (cons/c string? natural-number/c))
  c : coverage?
syntax
(generate-term term-spec size-expr kw-args ...)
(generate-term term-spec)
 
term-spec = language pattern
          | language #:satisfying (judgment-form-id pattern ...)
          | language #:satisfying (metafunction-id pattern ...) = pattern
          | #:source metafunction
          | #:source relation-expr
             
kw-args   = #:attempt-num attempts-expr
          | #:retries retries-expr
 
  size-expr : natural-number/c
  attempt-num-expr : natural-number/c
  retries-expr : natural-number/c
syntax
(redex-check language pattern property-expr kw-arg ...)
 
kw-arg = #:attempts attempts-expr
       | #:source metafunction
       | #:source relation-expr
       | #:retries retries-expr
       | #:print? print?-expr
       | #:attempt-size attempt-size-expr
       | #:prepare prepare-expr
 
  property-expr : any/c
  attempts-expr : natural-number/c
  relation-expr : reduction-relation?
  retries-expr : natural-number/c
  print?-expr : any/c
  attempt-size-expr : (-> natural-number/c natural-number/c)
  prepare-expr : (-> any/c any/c)
syntax
(redex-generator language-id satisfying size-expr)
 
satisfying = (judgment-form-id pattern ...)
           | (metafunction-id pattern ...) = pattern
 
  size-expr : natural-number/c
struct
(struct counterexample (term)
        #:extra-constructor-name make-counterexample
        #:transparent)
  term : any/c
struct
(struct exn:fail:redex:test exn:fail:redex (source term)
        #:extra-constructor-name make-exn:fail:redex:test)
  source : exn:fail?
  term : any/c
syntax
(check-reduction-relation relation property kw-args ...)
 
kw-arg = #:attempts attempts-expr
       | #:retries retries-expr
       | #:print? print?-expr
       | #:attempt-size attempt-size-expr
       | #:prepare prepare-expr
 
  property : (-> any/c any/c)
  attempts-expr : natural-number/c
  retries-expr : natural-number/c
  print?-expr : any/c
  attempt-size-expr : (-> natural-number/c natural-number/c)
  prepare-expr : (-> any/c any/c)
syntax
(check-metafunction metafunction property kw-args ...)
 
kw-arg = #:attempts attempts-expr
       | #:retries retries-expr
       | #:print? print?-expr
       | #:attempt-size attempt-size-expr
       | #:prepare prepare-expr
 
  property : (-> (listof any/c) any/c)
  attempts-expr : natural-number/c
  retries-expr : natural-number/c
  print?-expr : any/c
  attempt-size-expr : (-> natural-number/c natural-number/c)
  prepare-expr : (-> (listof any/c) (listof any/c))
procedure
(default-attempt-size n) -> natural-number/c
  n : natural-number/c
parameter
(default-check-attempts) -> natural-number/c
(default-check-attempts attempts) -> void?
  attempts : natural-number/c
parameter
(redex-pseudo-random-generator) -> pseudo-random-generator?
(redex-pseudo-random-generator generator) -> void?
  generator : pseudo-random-generator?
procedure
(exn:fail:redex:generation-failure? v) -> boolean?
  v : any/c
procedure
(traces  reductions                                        
         expr                                              
        [#:multiple? multiple?                             
         #:pred pred                                       
         #:pp pp                                           
         #:colors colors                                   
         #:racket-colors? racket-colors?                   
         #:scheme-colors? scheme-colors?                   
         #:filter term-filter                              
         #:x-spacing x-spacing                             
         #:y-spacing y-spacing                             
         #:layout layout                                   
         #:edge-labels? edge-labels?                       
         #:edge-label-font edge-label-font                 
         #:graph-pasteboard-mixin graph-pasteboard-mixin]) 
 -> void?
  reductions : reduction-relation?
  expr : (or/c any/c (listof any/c))
  multiple? : boolean? = #f
  pred : (or/c (-> sexp any)             = (λ (x) #t)
               (-> sexp term-node? any))
  pp : (or/c (any -> string)
             (any output-port number (is-a?/c text%) -> void))
     = default-pretty-printer
  colors : (listof
            (cons/c string?
                    (and/c (listof (or/c string? (is-a?/c color%)))
                           (λ (x) (<= 0 (length x) 6)))))
         = '()
  racket-colors? : boolean? = #t
  scheme-colors? : boolean? = racket-colors?
  term-filter : (-> any/c (or/c #f string?) any/c)
              = (λ (x y) #t)
  x-spacing : number? = 15
  y-spacing : number? = 15
  layout : (-> (listof term-node?) void?) = void
  edge-labels? : boolean? = #t
  edge-label-font : (or/c #f (is-a?/c font%)) = #f
  graph-pasteboard-mixin : (make-mixin-contract graph-pasteboard<%>)
                         = values
procedure
(traces/ps  reductions                                       
            expr                                             
            file                                             
           [#:multiple? multiple?                            
            #:pred pred                                      
            #:pp pp                                          
            #:colors colors                                  
            #:filter term-filter                             
            #:layout layout                                  
            #:x-spacing x-spacing                            
            #:y-spacing y-spacing                            
            #:edge-labels? edge-labels?                      
            #:edge-label-font edge-label-font                
            #:graph-pasteboard-mixin graph-pasteboard-mixin] 
            #:post-process post-process)                     
 -> void?
  reductions : reduction-relation?
  expr : (or/c any/c (listof any/c))
  file : (or/c path-string? path?)
  multiple? : boolean? = #f
  pred : (or/c (-> sexp any)             = (λ (x) #t)
               (-> sexp term-node? any))
  pp : (or/c (any -> string)
             (any output-port number (is-a?/c text%) -> void))
     = default-pretty-printer
  colors : (listof
            (cons/c string?
                    (and/c (listof (or/c string? (is-a?/c color%)))
                           (λ (x) (<= 0 (length x) 6)))))
         = '()
  term-filter : (-> any/c (or/c #f string?) any/c)
              = (λ (x y) #t)
  layout : (-> (listof term-node?) void?) = void
  x-spacing : number? = 15
  y-spacing : number? = 15
  edge-labels? : boolean? = #t
  edge-label-font : (or/c #f (is-a?/c font%)) = #f
  graph-pasteboard-mixin : (make-mixin-contract graph-pasteboard<%>)
                         = values
  post-process : (-> (is-a?/c graph-pasteboard<%>) any/c)
procedure
(stepper reductions t [pp]) -> void?
  reductions : reduction-relation?
  t : any/c
  pp : (or/c (any -> string)
             (any output-port number (is-a?/c text%) -> void))
     = default-pretty-printer
procedure
(stepper/seed reductions seed [pp]) -> void?
  reductions : reduction-relation?
  seed : (cons/c any/c (listof any/c))
  pp : (or/c (any -> string)
             (any output-port number (is-a?/c text%) -> void))
     = default-pretty-printer
procedure
(show-derivations  derivations                             
                  [#:pp pp                                 
                   #:racket-colors? racket-colors?         
                   #:init-derivation init-derivation]) -> any
  derivations : (cons/c derivation? (listof derivation?))
  pp : (or/c (any -> string)
             (any output-port number (is-a?/c text%) -> void))
     = default-pretty-printer
  racket-colors? : boolean? = #f
  init-derivation : exact-nonnegative-integer? = 0
procedure
(derivation/ps  derivation                           
                filename                             
               [#:pp pp                              
                #:racket-colors? racket-colors?]     
                #:post-process post-process)     -> void?
  derivation : derivation?
  filename : path-string?
  pp : (or/c (any -> string)
             (any output-port number (is-a?/c text%) -> void))
     = default-pretty-printer
  racket-colors? : boolean? = #f
  post-process : (-> (is-a?/c pasteboard%) any)
procedure
(term-node-children tn) -> (listof term-node?)
  tn : term-node?
procedure
(term-node-parents tn) -> (listof term-node?)
  tn : term-node?
procedure
(term-node-labels tn) -> (listof (or/c false/c string?))
  tn : term-node?
procedure
(term-node-set-color! tn color) -> void?
  tn : term-node?
  color : (or/c string? (is-a?/c color%) false/c)
procedure
(term-node-color tn) -> (or/c string? (is-a?/c color%) false/c)
  tn : term-node?
procedure
(term-node-set-red! tn red?) -> void?
  tn : term-node?
  red? : boolean?
procedure
(term-node-expr tn) -> any
  tn : term-node?
procedure
(term-node-set-position! tn x y) -> void?
  tn : term-node?
  x : (and/c real? positive?)
  y : (and/c real? positive?)
procedure
(term-node-x tn) -> real?
  tn : term-node?
procedure
(term-node-y tn) -> real?
  tn : term-node?
procedure
(term-node-width tn) -> real?
  tn : term-node?
procedure
(term-node-height tn) -> real?
  tn : term-node?
procedure
(term-node? v) -> boolean?
  v : any/c
parameter
(reduction-steps-cutoff) -> number?
(reduction-steps-cutoff cutoff) -> void?
  cutoff : number?
parameter
(initial-font-size) -> number?
(initial-font-size size) -> void?
  size : number?
parameter
(initial-char-width) -> (or/c number? (-> any/c number?))
(initial-char-width width) -> void?
  width : (or/c number? (-> any/c number?))
parameter
(dark-pen-color) -> (or/c string? (is-a?/c color<%>))
(dark-pen-color color) -> void?
  color : (or/c string? (is-a?/c color<%>))
parameter
(dark-brush-color) -> (or/c string? (is-a?/c color<%>))
(dark-brush-color color) -> void?
  color : (or/c string? (is-a?/c color<%>))
parameter
(light-pen-color) -> (or/c string? (is-a?/c color<%>))
(light-pen-color color) -> void?
  color : (or/c string? (is-a?/c color<%>))
parameter
(light-brush-color) -> (or/c string? (is-a?/c color<%>))
(light-brush-color color) -> void?
  color : (or/c string? (is-a?/c color<%>))
parameter
(dark-text-color) -> (or/c string? (is-a?/c color<%>))
(dark-text-color color) -> void?
  color : (or/c string? (is-a?/c color<%>))
parameter
(light-text-color) -> (or/c string? (is-a?/c color<%>))
(light-text-color color) -> void?
  color : (or/c string? (is-a?/c color<%>))
parameter
(pretty-print-parameters) -> (-> (-> any/c) any/c)
(pretty-print-parameters f) -> void?
  f : (-> (-> any/c) any/c)
procedure
(default-pretty-printer v port width text) -> void?
  v : any/c
  port : output-port?
  width : exact-nonnegative-integer?
  text : (is-a?/c text%)
syntax
(render-term lang term)
(render-term lang term file)
syntax
(term->pict lang term)
procedure
(render-term/pretty-write lang               
                          term               
                          filename           
                          #:width width) -> void?
  lang : compiled-lang?
  term : any/c
  filename : path-string?
  width : #f
procedure
(term->pict/pretty-write lang               
                         term               
                         filename           
                         #:width width) -> pict?
  lang : compiled-lang?
  term : any/c
  filename : (or/c path-string? #f)
  width : #f
procedure
(render-language lang [file #:nts nts]) -> (if file void? pict?)
  lang : compiled-lang?
  file : (or/c false/c path-string?) = #f
  nts : (or/c false/c (listof (or/c string? symbol?)))
      = (render-language-nts)
procedure
(language->pict lang [#:nts nts]) -> pict?
  lang : compiled-lang?
  nts : (or/c false/c (listof (or/c string? symbol?)))
      = (render-language-nts)
procedure
(render-reduction-relation  rel             
                           [file            
                            #:style style]) 
 -> (if file void? pict?)
  rel : reduction-relation?
  file : (or/c false/c path-string?) = #f
  style : reduction-rule-style/c = (rule-pict-style)
procedure
(reduction-relation->pict r [#:style style]) -> pict?
  r : reduction-relation?
  style : reduction-rule-style/c = (rule-pict-style)
syntax
(render-metafunction metafunction-name)
syntax
(render-metafunction metafunction-name filename)
syntax
(render-metafunctions metafunction-name ...)
syntax
(render-metafunctions metafunction-name ... #:file filename)
syntax
(metafunction->pict metafunction-name)
syntax
(metafunctions->pict metafunction-name ...)
syntax
(render-relation relation-name)
syntax
(render-relation relation-name filename)
syntax
(render-judgment-form judgment-form-name)
syntax
(render-judgment-form judgment-form-name filename)
syntax
(relation->pict relation-name)
syntax
(judgment-form->pict judgment-form-name)
parameter
(render-language-nts) -> (or/c false/c (listof symbol?))
(render-language-nts nts) -> void?
  nts : (or/c false/c (listof symbol?))
parameter
(extend-language-show-union) -> boolean?
(extend-language-show-union show?) -> void?
  show? : boolean?
parameter
(render-reduction-relation-rules)
 -> (or/c false/c
          (listof (or/c symbol?
                        string?
                        exact-nonnegative-integer?)))
(render-reduction-relation-rules rules) -> void?
  rules : (or/c false/c
                (listof (or/c symbol?
                              string?
                              exact-nonnegative-integer?)))
parameter
(rule-pict-style) -> reduction-rule-style/c
(rule-pict-style style) -> void?
  style : reduction-rule-style/c
value
reduction-rule-style/c : flat-contract?
parameter
(arrow-space) -> natural-number/c
(arrow-space space) -> void?
  space : natural-number/c
parameter
(label-space) -> natural-number/c
(label-space space) -> void?
  space : natural-number/c
parameter
(metafunction-pict-style)
 -> (or/c 'left-right
          'up-down
          'left-right/vertical-side-conditions
          'up-down/vertical-side-conditions
          'left-right/compact-side-conditions
          'up-down/compact-side-conditions
          'left-right/beside-side-conditions)
(metafunction-pict-style style) -> void?
  style : (or/c 'left-right
                'up-down
                'left-right/vertical-side-conditions
                'up-down/vertical-side-conditions
                'left-right/compact-side-conditions
                'up-down/compact-side-conditions
                'left-right/beside-side-conditions)
parameter
(delimit-ellipsis-arguments?) -> any/c
(delimit-ellipsis-arguments? delimit?) -> void?
  delimit? : any/c
parameter
(linebreaks) -> (or/c #f (listof boolean?))
(linebreaks breaks) -> void?
  breaks : (or/c #f (listof boolean?))
parameter
(metafunction-cases)
 -> (or/c #f (and/c (listof (or/c exact-nonnegative-integer?
                                  string?))
                    pair?))
(metafunction-cases cases) -> void?
  cases : (or/c #f (and/c (listof (or/c exact-nonnegative-integer?
                                        string?))
                          pair?))
parameter
(judgment-form-cases)
 -> (or/c #f
          (and/c (listof (or/c exact-nonnegative-integer?
                               string?))
                 pair?))
(judgment-form-cases cases) -> void?
  cases : (or/c #f
                (and/c (listof (or/c exact-nonnegative-integer?
                                     string?))
                       pair?))
parameter
(label-style) -> text-style/c
(label-style style) -> void?
  style : text-style/c
parameter
(grammar-style) -> text-style/c
(grammar-style style) -> void?
  style : text-style/c
parameter
(paren-style) -> text-style/c
(paren-style style) -> void?
  style : text-style/c
parameter
(literal-style) -> text-style/c
(literal-style style) -> void?
  style : text-style/c
parameter
(metafunction-style) -> text-style/c
(metafunction-style style) -> void?
  style : text-style/c
parameter
(non-terminal-style) -> text-style/c
(non-terminal-style style) -> void?
  style : text-style/c
parameter
(non-terminal-subscript-style) -> text-style/c
(non-terminal-subscript-style style) -> void?
  style : text-style/c
parameter
(non-terminal-superscript-style) -> text-style/c
(non-terminal-superscript-style style) -> void?
  style : text-style/c
parameter
(default-style) -> text-style/c
(default-style style) -> void?
  style : text-style/c
parameter
(label-font-size) -> (and/c (between/c 1 255) integer?)
(label-font-size size) -> void?
  size : (and/c (between/c 1 255) integer?)
parameter
(metafunction-font-size) -> (and/c (between/c 1 255)
                                   integer?)
(metafunction-font-size size) -> void?
  size : (and/c (between/c 1 255)
                integer?)
parameter
(default-font-size) -> (and/c (between/c 1 255) integer?)
(default-font-size size) -> void?
  size : (and/c (between/c 1 255) integer?)
parameter
(reduction-relation-rule-separation)
 -> (parameter/c (and/c integer? positive? exact?))
(reduction-relation-rule-separation sep) -> void?
  sep : (parameter/c (and/c integer? positive? exact?))
parameter
(curly-quotes-for-strings) -> boolean?
(curly-quotes-for-strings on?) -> void?
  on? : boolean?
parameter
(current-text) -> (-> string? text-style/c number? pict?)
(current-text proc) -> void?
  proc : (-> string? text-style/c number? pict?)
procedure
(arrow->pict arrow) -> pict?
  arrow : symbol?
procedure
(set-arrow-pict! arrow proc) -> void?
  arrow : symbol?
  proc : (-> pict?)
parameter
(white-bracket-sizing)
 -> (-> string? number? (values number? number? number? number?))
(white-bracket-sizing proc) -> void?
  proc : (-> string? number? (values number? number? number? number?))
parameter
(horizontal-bar-spacing)
 -> (parameter/c exact-nonnegative-integer?)
(horizontal-bar-spacing space) -> void?
  space : (parameter/c exact-nonnegative-integer?)
parameter
(relation-clauses-combine)
 -> (parameter/c (-> (listof pict?) pict?))
(relation-clauses-combine combine) -> void?
  combine : (parameter/c (-> (listof pict?) pict?))
syntax
(with-unquote-rewriter proc expression)
syntax
(with-atomic-rewriter name-symbol
                      string-or-thunk-returning-pict
                      expression)
syntax
(with-compound-rewriter name-symbol
                        proc
                        expression)
syntax
(with-compound-rewriters ([name-symbol proc] ...)
                         expression)
struct
(struct lw                         (e
                                   line
                                   line-span
                                   column
                                   column-span
                                   unq?
                                   metafunction?)
        #:constructor-name make-lw
        #:mutable)
  e : (or/c string?
            symbol?
            pict?
            (listof (or/c (symbols 'spring) lw?)))
  line : exact-positive-integer?
  line-span : exact-positive-integer?
  column : exact-positive-integer?
  column-span : exact-positive-integer?
  unq? : boolean?
  metafunction? : boolean?
procedure
(build-lw e line line-span column column-span) -> lw?
  e : (or/c string?
            symbol?
            pict?
            (listof (or/c (symbols 'spring) lw?)))
  line : exact-positive-integer?
  line-span : exact-positive-integer?
  column : exact-positive-integer?
  column-span : exact-positive-integer?
syntax
(to-lw arg)
procedure
(to-lw/stx stx) -> lw?
  stx : syntax?
procedure
(render-lw language/nts lw) -> pict?
  language/nts : (or/c (listof symbol?) compiled-lang?)
  lw : lw?
procedure
(lw->pict language/ntw lw) -> pict?
  language/ntw : (or/c (listof symbol?) compiled-lang?)
  lw : lw?
procedure
(just-before stuff lw) -> lw?
  stuff : (or/c pict? string? symbol?)
  lw : lw?
procedure
(just-after stuff lw) -> lw?
  stuff : (or/c pict? string? symbol?)
  lw : lw?
