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


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