From 3ffda353b0d92ccd0ff3693ad0be81531c3c0537 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 9 Mar 2011 13:35:00 +0000 Subject: Updated for Coq 8.3pl1. Some cleanups in test/*/Makefile. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1597 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- lib/UnionFind.v | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) (limited to 'lib/UnionFind.v') diff --git a/lib/UnionFind.v b/lib/UnionFind.v index d74a20a7..553d905e 100644 --- a/lib/UnionFind.v +++ b/lib/UnionFind.v @@ -635,26 +635,22 @@ Next Obligation. red. auto. Qed. Next Obligation. - destruct (find_x (exist (fun a' : elt => order (m uf) a' a) a' - (find_x_obligation_1 a find_x a' Heq_anonymous))) + (* a <> b*) + destruct (find_x a') as [[b' uf''] [A B]]. simpl in *. inv Heq_anonymous0. apply repr_some_diff. auto. Qed. Next Obligation. - destruct (find_x (exist (fun a' : elt => order (m uf) a' a) a' - (find_x_obligation_1 a find_x a' Heq_anonymous))) - as [[b' uf''] [A B]]. simpl in *. inv Heq_anonymous0. + destruct (find_x a') as [[b' uf''] [A B]]. simpl in *. inv Heq_anonymous0. rewrite B. apply repr_some. auto. Qed. Next Obligation. split. - destruct (find_x (exist (fun a' : elt => order (m uf) a' a) a' - (find_x_obligation_1 a find_x a' Heq_anonymous))) + destruct (find_x a') as [[b' uf''] [A B]]. simpl in *. inv Heq_anonymous0. symmetry. apply repr_some. auto. intros. rewrite repr_compress. - destruct (find_x (exist (fun a' : elt => order (m uf) a' a) a' - (find_x_obligation_1 a find_x a' Heq_anonymous))) + destruct (find_x a') as [[b' uf''] [A B]]. simpl in *. inv Heq_anonymous0. auto. Qed. Next Obligation. -- cgit