Goal:
    A : Type  Aeq : ReflectEq A  x : A  y : A
  ============================
   (reflectProp (x = y) (x == y) ->
    reflect (option_extends (Some x) (Some y)) (x == y))


DEBUG:Going to execute:
case : eqb  => H
DEBUG LTAC Evaluated term: (eqb_spec x y)