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