Goal:
    A : Type  HA : ReflectEq A  a : A  H : Some a = None
  ============================
   False


DEBUG:Going to execute:
fun H =>
             match type of H with
             | _ /\ _ => exact H || destruct_hyp H
             | _ => try (solve [ inversion H ])
             end