Section RClo.
Inductive rclo2 (clo: rel->rel) (r: rel): rel :=
| rclo2_base
x0 x1
(IN: r x0 x1):
@rclo2 clo r x0 x1
| rclo2_clo'
r' x0 x1
(LE: r' <2= rclo2 clo r)
(IN: clo r' x0 x1):
@rclo2 clo r x0 x1
.

Lemma rclo2_compose clo r:
rclo2 (rclo2 clo) r <2= rclo2 clo r.