Hint Extern 0 (RIntro _ (option_le _) None _) =>
eapply None_le : typeclass_instances.
Global Instance option_le_subrel A B:
Monotonic (@option_le A B) (subrel ++> subrel).
Global Instance option_le_subrel_params:
Params (@option_le) 3.
Global Instance option_le_rel {A B}:
Related (@option_rel A B) (@option_le A B) (subrel ++> subrel) | 10.

(* Specifications: *)
Lemma option_le_refl {A} (R: relation A):
Reflexive R -> Reflexive (option_le R).