Proof [x:A]
(unf_Rstar [P:A->A->Prop](P x x)
[P0:A->A->Prop]
[H:(u:A)(P0 u u)][_:(u:A)(v:A)(w:A)(R u v)->(P0 v w)->(P0 u w)](H x)).
Proof [x,y:A]
[z:A]
[t1:(R x y)]
(unf_Rstar [P:A->A->Prop](P y z)->(P x z)
[t2:(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 y z)]
[P:A->A->Prop]
[h1:(u:A)(P u u)]
[h2:(u:A)(v:A)(w:A)(R u v)->(P v w)->(P u w)]
(h2 x y z t1 (t2 [a,a0:A](P a a0) h1 h2))).

Theorem  Rstar_transitive:  (x:A)(y:A)(z:A)(Rstar x y)->(Rstar y z)->(Rstar x z).