aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2007-02-19 22:37:24 +0000
committerGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2007-02-19 22:37:24 +0000
commitdc7f5e8bbd6fb7da277ee89278211105157b2041 (patch)
tree9eb04573e989e98789ee81dccc25e3cd8119ebf1
parentd7d22275c0d82d41d1d9fc94161e34f6d9dc98d9 (diff)
Correct coq depend, add eq_rect elimination tactic to SubtacTactics
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9661 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r--.depend.coq2
-rw-r--r--contrib/subtac/SubtacTactics.v8
2 files changed, 9 insertions, 1 deletions
diff --git a/.depend.coq b/.depend.coq
index c09410497..42e70fb2b 100644
--- a/.depend.coq
+++ b/.depend.coq
@@ -363,7 +363,7 @@ contrib/field/LegacyField.vo: contrib/field/LegacyField.v contrib/field/LegacyFi
contrib/fourier/Fourier_util.vo: contrib/fourier/Fourier_util.v theories/Reals/Rbase.vo
contrib/fourier/Fourier.vo: contrib/fourier/Fourier.v contrib/ring/quote.cmo contrib/ring/ring.cmo contrib/fourier/fourier.cmo contrib/fourier/fourierR.cmo contrib/field/field.cmo contrib/fourier/Fourier_util.vo contrib/field/LegacyField.vo theories/Reals/DiscrR.vo
contrib/subtac/SubtacTactics.vo: contrib/subtac/SubtacTactics.v
-contrib/subtac/Utils.vo: contrib/subtac/Utils.v theories/Logic/ProofIrrelevance.vo
+contrib/subtac/Utils.vo: contrib/subtac/Utils.v contrib/subtac/SubtacTactics.vo theories/Bool/Sumbool.vo theories/Logic/ProofIrrelevance.vo
contrib/subtac/FixSub.vo: contrib/subtac/FixSub.v theories/Init/Wf.vo contrib/subtac/Utils.vo theories/Arith/Wf_nat.vo theories/Arith/Lt.vo
contrib/subtac/Subtac.vo: contrib/subtac/Subtac.v contrib/subtac/Utils.vo contrib/subtac/FixSub.vo
contrib/subtac/FunctionalExtensionality.vo: contrib/subtac/FunctionalExtensionality.v contrib/subtac/Utils.vo contrib/subtac/FixSub.vo
diff --git a/contrib/subtac/SubtacTactics.v b/contrib/subtac/SubtacTactics.v
index 17ebb4411..8c8f7c43a 100644
--- a/contrib/subtac/SubtacTactics.v
+++ b/contrib/subtac/SubtacTactics.v
@@ -73,3 +73,11 @@ Ltac bang :=
| context [False_rect _ ?p] => elim p
end
end.
+
+Ltac elim_eq_rect :=
+ match goal with
+ | [ |- ?t ] =>
+ match t with
+ context [ @eq_rect _ _ _ _ _ ?p ] => try case p ; simpl
+ end
+ end.