Variable A : Prop .
Variable R : A->A->Prop.
Definition Rstar:A->A->Prop :=
[x,y:A](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).
Definition Rstar':A->A->Prop :=
[x,y:A](P:A->A->Prop)
(P x x)->((u:A)(R x u)->(Rstar u y)->(P x y))->(P x y).
Definition coherence: A->A->Prop :=
[x:A][y:A](P:Prop)((z:A)(Rstar x z)->(Rstar y z)->P)->P.
(* Les 2 hypotheses du Lemme de Newman *)

Lemma Rstar_transitive: (x:A)(y:A)(z:A)(Rstar x y)->(Rstar y z)->(Rstar x z).
Proof [x,y,z:A][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 [a,a0:A](Rstar a0 z)->(Rstar a z) [u:A][H:(Rstar u z)]H
[u,v,w:A][t1:(R u v)][t2:(Rstar w z)->(Rstar v z)]
[t3:(Rstar w z)](Rstar_R u v z t1 (t2 t3))).