Section RClo.
Inductive rclo13 (clo: rel->rel) (r: rel): rel :=
| rclo13_base
x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12
(IN: r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12):
@rclo13 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12
| rclo13_clo'
r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12
(LE: r' <13= rclo13 clo r)
(IN: clo r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12):
@rclo13 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12
.

Lemma rclo13_clo clo r:
clo (rclo13 clo r) <13= rclo13 clo r.