Section RClo.
Inductive rclo3 (clo: rel->rel) (r: rel): rel :=
| rclo3_base
x0 x1 x2
(IN: r x0 x1 x2):
@rclo3 clo r x0 x1 x2
| rclo3_clo'
r' x0 x1 x2
(LE: r' <3= rclo3 clo r)
(IN: clo r' x0 x1 x2):
@rclo3 clo r x0 x1 x2
.

Lemma rclo3_mon clo:
monotone3 (rclo3 clo).