diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-31 15:24:52 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-31 15:24:52 +0000 |
| commit | 67e9cef251a291fab7f656f3dd0b9f2c0bde5a59 (patch) | |
| tree | ae8aab8faa2b3c6998fffa0cade9766d01160789 /theories/Program/Subset.v | |
| parent | 7f99d8016ced351efd0a42598a9d18001b2e4d46 (diff) | |
Debug implementation of dependent induction/dependent destruction and document it.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10490 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Program/Subset.v')
| -rw-r--r-- | theories/Program/Subset.v | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/theories/Program/Subset.v b/theories/Program/Subset.v index 54d830c89..c414dc9cd 100644 --- a/theories/Program/Subset.v +++ b/theories/Program/Subset.v @@ -65,22 +65,6 @@ Ltac pi_subset_proof := on_subset_proof pi_subset_proof_hyp. Ltac pi_subset_proofs := repeat pi_subset_proof. -(** Clear duplicated hypotheses *) - -Ltac clear_dup := - match goal with - | [ H : ?X |- _ ] => - match goal with - | [ H' : X |- _ ] => - match H' with - | H => fail 2 - | _ => clear H' || clear H - end - end - end. - -Ltac clear_dups := repeat clear_dup. - (** The two preceding tactics in sequence. *) Ltac clear_subset_proofs := |