2018-02-16 05:22:07 -06:00
|
|
|
type var = string
|
|
|
|
|
2018-02-13 17:43:40 -06:00
|
|
|
type term =
|
2018-02-16 05:22:07 -06:00
|
|
|
| TmVar of var
|
|
|
|
| TmAbs of var * term
|
2018-02-13 17:43:40 -06:00
|
|
|
| TmApp of term * term
|
|
|
|
|
2018-02-20 03:24:52 -06:00
|
|
|
type input =
|
|
|
|
| Term of term
|
|
|
|
| Assign of string * term
|
|
|
|
|
2018-02-16 05:22:07 -06:00
|
|
|
type context = (string * term) list
|
2018-02-13 17:43:40 -06:00
|
|
|
|