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

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