let rec mk_mu o ch x = match o with | D1mu (o', ch', _) when eq_epath ch ch' -> (* SMPrule mu (mu(o, ch, x'), ch -> x) --> mu(o, ch, x) *) mk_mu o' ch x | _ -> D1mu (o, ch, x)