Goal:
  
  A : Type
  B : Type
  C : Type
  f : option A -> option B -> option C
  f_None_None : f None None = None
  m1_1 : tree' A
  a : A
  m1_2 : tree' A
  IHm1_1 : forall (m2 : tree' B) (i : positive),
           get i (combine'_direct m1_1 m2) = f (get' i m1_1) (get' i m2)
  IHm1_2 : forall (m2 : tree' B) (i : positive),
           get i (combine'_direct m1_2 m2) = f (get' i m1_2) (get' i m2)
  m2_1 : tree' B
  b : B
  m2_2 : tree' B
  ============================
   (f (Some a) (Some b) = f (Some a) (Some b))


DEBUG:Going to execute:
<coq-core.plugins.ltac::auto@0> $1 $2 $3