Section RClo.
Inductive rclo7 (clo: rel->rel) (r: rel): rel :=
| rclo7_base
x0 x1 x2 x3 x4 x5 x6
(IN: r x0 x1 x2 x3 x4 x5 x6):
@rclo7 clo r x0 x1 x2 x3 x4 x5 x6
| rclo7_clo'
r' x0 x1 x2 x3 x4 x5 x6
(LE: r' <7= rclo7 clo r)
(IN: clo r' x0 x1 x2 x3 x4 x5 x6):
@rclo7 clo r x0 x1 x2 x3 x4 x5 x6
.

Lemma rclo7_mon_gen clo clo' r r' x0 x1 x2 x3 x4 x5 x6
(IN: @rclo7 clo r x0 x1 x2 x3 x4 x5 x6)
(LEclo: clo <8= clo')
(LEr: r <7= r') :
@rclo7 clo' r' x0 x1 x2 x3 x4 x5 x6.