diff options
| author | msozeau | 2012-01-28 05:08:08 +0000 |
|---|---|---|
| committer | msozeau | 2012-01-28 05:08:08 +0000 |
| commit | 3f6196a6bdc7e5b0e6d8279a7b7b0de74faa3492 (patch) | |
| tree | c87f3b728a904dcfa655982ee82255b82c8a825c /test-suite | |
| parent | 0bfefe15d6c174c60cc0eb50a54254c20228f30e (diff) | |
Fix simplification of ind. hyps., recognized by a [block] in their type (bug #2674) and properly clear [block] at end of simplification (bug #2691).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14948 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/dependentind.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/success/dependentind.v b/test-suite/success/dependentind.v index fe0165d082..70fb75888e 100644 --- a/test-suite/success/dependentind.v +++ b/test-suite/success/dependentind.v @@ -1,5 +1,11 @@ Require Import Coq.Program.Program Coq.Program.Equality. +Goal forall (H: forall n m : nat, n = m -> n = 0) x, x = tt. +intros. +dependent destruction x. +reflexivity. +Qed. + Variable A : Set. Inductive vector : nat -> Type := vnil : vector 0 | vcons : A -> forall {n}, vector n -> vector (S n). @@ -84,6 +90,7 @@ Proof with simpl in * ; eqns ; eauto with lambda. intro. eapply app... Defined. + Lemma exchange : forall Γ Δ α β τ, term (Γ, α, β ; Δ) τ -> term (Γ, β, α ; Δ) τ. Proof with simpl in * ; eqns ; eauto. intros until 1. |