(** Correctness of the reflexive-symmetric-transitive closure *)

(* Specifications: *)
Lemma clos_rst_is_equiv : equivalence A (clos_refl_sym_trans R).
(** Idempotency of the reflexive-symmetric-transitive closure operator *)
Lemma clos_rst_idempotent :
inclusion (clos_refl_sym_trans (clos_refl_sym_trans R))
(clos_refl_sym_trans R).