Goal:
  
  A : Type
  B : Type
  C : Type
  f : option A -> option B -> option C
  f_None_None : f None None = None
  combine'_by_tac : tree' A -> tree' B -> tree C
  l1 : tree' A
  l2 : tree' B
  ============================
   (tree C)


DEBUG:Going to execute:
exact (combine'_by_tac r1 r2)