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.tval rename : expr -> Var.t Var.Map.t -> exprval print : Format.formatter -> expr -> unit