Section RClo.
Inductive rclo14 (clo: rel->rel) (r: rel): rel :=
| rclo14_base
x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13
(IN: r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13):
@rclo14 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13
| rclo14_clo'
r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13
(LE: r' <14= rclo14 clo r)
(IN: clo r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13):
@rclo14 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13
.

Lemma rclo14_mon_gen clo clo' r r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13
(IN: @rclo14 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13)
(LEclo: clo <15= clo')
(LEr: r <14= r') :
@rclo14 clo' r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13.