Section RClo.
Inductive rclo0 (clo: rel->rel) (r: rel): rel :=
| rclo0_base
(IN: r):
@rclo0 clo r
| rclo0_clo'
r'
(LE: r' <0= rclo0 clo r)
(IN: clo r'):
@rclo0 clo r
.

Lemma rclo0_rclo clo r:
rclo0 clo (rclo0 clo r) <0= rclo0 clo r.