Hint Extern 0 (RIntro _ (option_ge _) _ None) =>
eapply None_ge : typeclass_instances.
Global Instance option_ge_subrel A B:
Monotonic (@option_ge A B) (subrel ++> subrel).
Global Instance option_ge_subrel_params:
Params (@option_ge) 3.
Global Instance option_ge_rel {A B}:
Related (@option_rel A B) (@option_ge A B) (subrel ++> subrel) | 10.

(* Specifications: *)
Lemma option_ge_refl {A} (R: relation A):
Reflexive R -> Reflexive (option_ge R).