Goal:
    A : Type  m1 : tree' A  a : A  m2 : tree' A  H : xH <> xH
  ============================
   (None = Some a)


DEBUG:Going to execute:
congruence