Section RClo.
Inductive rclo4 (clo: rel->rel) (r: rel): rel :=
| rclo4_base
x0 x1 x2 x3
(IN: r x0 x1 x2 x3):
@rclo4 clo r x0 x1 x2 x3
| rclo4_clo'
r' x0 x1 x2 x3
(LE: r' <4= rclo4 clo r)
(IN: clo r' x0 x1 x2 x3):
@rclo4 clo r x0 x1 x2 x3
.

Lemma rclo4_mon_gen clo clo' r r' x0 x1 x2 x3
(IN: @rclo4 clo r x0 x1 x2 x3)
(LEclo: clo <5= clo')
(LEr: r <4= r') :
@rclo4 clo' r' x0 x1 x2 x3.