Goal:
  
  elt : Type
  gt_tree_dec : forall (x : T.t) (t : M.Raw.tree elt),
                {M.Raw.gt_tree x t} + {~ M.Raw.gt_tree x t}
  x : T.t
  t : M.Raw.tree elt
  l : M.Raw.tree elt
  k : M.Raw.key
  n : elt
  r : M.Raw.tree elt
  z : Int.Z_as_Int.t
  e : T.eq k x
  pf : ~ M.Raw.gt_tree x l
  s := gt_tree_dec x r : {M.Raw.gt_tree x r} + {~ M.Raw.gt_tree x r}
  f : M.Raw.gt_tree x (M.Raw.Node l k n r z)
  ============================
   (M.Raw.gt_tree x l)


DEBUG:Going to execute:
hnf in *
DEBUG LTAC Evaluated term: pf