sig val update : Update_rules.Update_fn.t end