Structure tagged_bool (x y : ptr) := Tag {untag : bool}.Structure tagged_bool (x y : ptr) := Tag {untag : bool}.Structure tagged_bool (x y : ptr) := Tag {untag : bool}.Structure form x y (s : seq ptr) :=
  Form {eq_of : tagged_bool x y;
        _ : uniq s -> untag eq_of}.Structure form x y (s : seq ptr) :=
  Form {eq_of : tagged_bool x y;
        _ : uniq s -> untag eq_of}.Structure form x y (s : seq ptr) :=
  Form {eq_of : tagged_bool x y;
        _ : uniq s -> untag eq_of}.

Lemma start_pf (x y : ptr) (f : Search2.form x y) : uniq f -> ineq x y.