2024-04-15 12:07:49 +02:00
|
|
|
type ty_id = string
|
|
|
|
|
|
|
|
type ty =
|
|
|
|
TVar of ty_id
|
|
|
|
| Arr of ty * ty
|
2024-05-05 20:33:39 +02:00
|
|
|
| And of ty * ty
|
|
|
|
| Or of ty * ty
|
2024-04-15 12:07:49 +02:00
|
|
|
| Bot
|
2024-05-14 15:23:44 +02:00
|
|
|
| Unknown (* for Or *)
|
2024-04-15 12:07:49 +02:00
|
|
|
|
2024-04-16 10:07:09 +02:00
|
|
|
type gam = (ty_id * ty) list
|