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_rclo clo r:
rclo7 clo (rclo7 clo r) <7= rclo7 clo r.