|
open Camlp4.PreCast;
|
|
value _loc = Loc.ghost;
|
|
|
|
module Term = struct
|
|
type patt =
|
|
[ PApp of patt and patt
|
|
| PAny
|
|
| PVar of string
|
|
| POlb of string and expr ]
|
|
and expr =
|
|
[ EApp of expr and expr
|
|
| EVar of string
|
|
| ELam of patt and expr ];
|
|
end;
|
|
|
|
module MetaTerm = MetaGenerator Term;
|