#[warning="-notation-incompatible-prefix"]
    Local Notation "R *" := (clos_refl_trans R)
      (at level 8, no associativity, format "R *").

Lemma rt1n_ind_right : forall (P : A -> Prop) (z:A), P z -> (forall x y, R x y -> clos_refl_trans_1n R y z -> P y -> P x) -> forall x, clos_refl_trans_1n R x z -> P x.