Theorem Rstar_Rstar':  (x:A)(y:A)(Rstar x y)->(Rstar' x y).
Proof  [x,y:A]
(unf_Rstar [P:A->A->Prop](P x y)->(Rstar' x y)
[h:(P0:A->A->Prop)
((u:A)(P0 u u))
->((u:A)(v:A)(w:A)(R u v)->(P0 v w)->(P0 u w))->(P0 x y)]
(h Rstar' [u:A](Rstar'_reflexive u)
[u,v:A]
[w:A]
[h1:(R u v)]
[h2:(Rstar' v w)](Rstar'_R u w v h1 (Rstar'_Rstar v w h2)))).