Section RClo.
Inductive rclo8 (clo: rel->rel) (r: rel): rel :=
| rclo8_base
x0 x1 x2 x3 x4 x5 x6 x7
(IN: r x0 x1 x2 x3 x4 x5 x6 x7):
@rclo8 clo r x0 x1 x2 x3 x4 x5 x6 x7
| rclo8_clo'
r' x0 x1 x2 x3 x4 x5 x6 x7
(LE: r' <8= rclo8 clo r)
(IN: clo r' x0 x1 x2 x3 x4 x5 x6 x7):
@rclo8 clo r x0 x1 x2 x3 x4 x5 x6 x7
.

Lemma rclo8_mon_gen clo clo' r r' x0 x1 x2 x3 x4 x5 x6 x7
(IN: @rclo8 clo r x0 x1 x2 x3 x4 x5 x6 x7)
(LEclo: clo <9= clo')
(LEr: r <8= r') :
@rclo8 clo' r' x0 x1 x2 x3 x4 x5 x6 x7.