Section RClo.
Inductive rclo11 (clo: rel->rel) (r: rel): rel :=
| rclo11_base
x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10
(IN: r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10):
@rclo11 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10
| rclo11_clo'
r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10
(LE: r' <11= rclo11 clo r)
(IN: clo r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10):
@rclo11 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10
.

Lemma rclo11_rclo clo r:
rclo11 clo (rclo11 clo r) <11= rclo11 clo r.