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)