Section RClo.
Inductive rclo5 (clo: rel->rel) (r: rel): rel :=
| rclo5_base
x0 x1 x2 x3 x4
(IN: r x0 x1 x2 x3 x4):
@rclo5 clo r x0 x1 x2 x3 x4
| rclo5_clo'
r' x0 x1 x2 x3 x4
(LE: r' <5= rclo5 clo r)
(IN: clo r' x0 x1 x2 x3 x4):
@rclo5 clo r x0 x1 x2 x3 x4
.

Lemma rclo5_mon_gen clo clo' r r' x0 x1 x2 x3 x4
(IN: @rclo5 clo r x0 x1 x2 x3 x4)
(LEclo: clo <6= clo')
(LEr: r <5= r') :
@rclo5 clo' r' x0 x1 x2 x3 x4.