Class Params {A} (of : A) (arity : nat).

(* Specifications: *)
Lemma flip1 `(subrelation A R' R) : subrelation (flip (flip R')) R.
Lemma flip2 `(subrelation A R R') : subrelation R (flip (flip R')).
Lemma eq_subrelation `(Reflexive A R) : subrelation (@eq A) R.