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
  r1 : tree' A
  l2 : tree' B
  ============================
   (option C)


DEBUG:Going to execute:
exact (f (Some x1) (Some x2))