Section RClo.
Inductive rclo1 (clo: rel->rel) (r: rel): rel :=
| rclo1_base
x0
(IN: r x0):
@rclo1 clo r x0
| rclo1_clo'
r' x0
(LE: r' <1= rclo1 clo r)
(IN: clo r' x0):
@rclo1 clo r x0
.

Lemma rclo1_compose clo r:
rclo1 (rclo1 clo) r <1= rclo1 clo r.