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_mon_gen clo clo' r r'
(IN: @rclo0 clo r)
(LEclo: clo <1= clo')
(LEr: r <0= r') :
@rclo0 clo' r'.