Section RClo.
Inductive rclo3 (clo: rel->rel) (r: rel): rel :=
| rclo3_base
x0 x1 x2
(IN: r x0 x1 x2):
@rclo3 clo r x0 x1 x2
| rclo3_clo'
r' x0 x1 x2
(LE: r' <3= rclo3 clo r)
(IN: clo r' x0 x1 x2):
@rclo3 clo r x0 x1 x2
.

Lemma rclo3_compose clo r:
rclo3 (rclo3 clo) r <3= rclo3 clo r.