Parameter Make.M

type +'a measurable
type measure
val empty : measure
val cat : measure -> 'a measurable -> measure -> measure