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