Theorem Rstar_reflexive:  (x:A)(Rstar x x).
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)).