Theorem Diagram: (x:A)
((u:A)
(R x u)
->([x0:A]
(y:A)(z:A)(Rstar x0 y)->(Rstar x0 z)->(coherence y z)
u))
->(y:A)
(z:A)
(u:A)
(R x u)
->(Rstar u y)
->(v:A)(R x v)->(Rstar v z)->(coherence y z).