Goal:
  
  x : V.t
  s : VSet.t
  s' : VSet.t
  s'' : VSet.t
  da : VSet.Subset s s'
  i : VSet.elt
  disj : ~ VSet.In i (VSet.inter s' s'')
  ininter : VSet.In i (VSet.inter s s'')
  ============================
   (VSet.In i (VSet.inter s' s''))


DEBUG:Going to execute:
unfold iff in *; fold any not; intros;
            VSetDecide.MSetDecideAuxiliary.abstract_elements;
            VSetDecide.MSetDecideAuxiliary.no_logical_interdep; decompose
            records; VSetDecide.MSetDecideAuxiliary.discard_nonMSet;
            unfold VSet.Empty, VSet.Subset, VSet.Equal in *; 
            intros; VSetDecide.MSetDecideAuxiliary.change_to_E_t;
            VSetDecide.MSetDecideAuxiliary.E_eq_to_Logic_eq; subst ++;
            VSetDecide.MSetDecideAuxiliary.Logic_eq_to_E_eq; pull not using
            MSet_decidability; unfold not in *