Section RClo.
Inductive rclo10 (clo: rel->rel) (r: rel): rel :=
| rclo10_base
x0 x1 x2 x3 x4 x5 x6 x7 x8 x9
(IN: r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9):
@rclo10 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9
| rclo10_clo'
r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9
(LE: r' <10= rclo10 clo r)
(IN: clo r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9):
@rclo10 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9
.

Lemma rclo10_rclo clo r:
rclo10 clo (rclo10 clo r) <10= rclo10 clo r.