module type Rewriter = sig .. end
sig
end
val rewrite : Term.term -> Term.term
Term.term -> Term.term