module Equality_propagation: sig .. end
sig
end
val reduce : Term.term -> Term.term
Term.term -> Term.term