module Tree:sig
..end
type
binop =
| |
Add |
| |
Sub |
| |
Mul |
| |
Div |
| |
Mod |
type
expr =
| |
Cst of |
| |
Ref of |
| |
Binop of |
| |
Other of |
val support : expr -> Var.Set.t
val rename : expr -> Var.t Var.Map.t -> expr
val print : Format.formatter -> expr -> unit