diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-05 09:01:05 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-05 09:01:05 +0000 |
| commit | 714849072050afc647247bb1f556c111fa4c36c5 (patch) | |
| tree | 28101a9b3bb936ce88a895bb5a2fb5069c3fdcbb /test-suite | |
| parent | 2dfb47c13d6f79fd44bd5f224873f84a6c00c8a9 (diff) | |
Ajout test relatif au bug #984
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8127 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/evars.v | 8 | ||||
| -rw-r--r-- | test-suite/success/ltac.v | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/test-suite/success/evars.v b/test-suite/success/evars.v index ea1dd803f..64875fbab 100644 --- a/test-suite/success/evars.v +++ b/test-suite/success/evars.v @@ -60,3 +60,11 @@ Check (* Check instantiation of nested evars (bug #1089) *) Check (fun f:(forall (v:Set->Set), v (v nat) -> nat) => f _ (Some (Some O))). + +(* This used to fail with anomaly "evar was not declared" in V8.0pl3 *) + +Theorem contradiction : forall p, ~ p -> p -> False. +Proof. trivial. Qed. +Hint Resolve contradiction. +Goal False. +eauto. diff --git a/test-suite/success/ltac.v b/test-suite/success/ltac.v index b6aa1e705..99cfe0177 100644 --- a/test-suite/success/ltac.v +++ b/test-suite/success/ltac.v @@ -145,3 +145,11 @@ Ltac check_binding y := cut ((fun y => y) = S). Goal True. check_binding true. Abort. + +(* Check that variables explicitly parsed as ltac variables are not + seen as intro pattern or constr (bug #984) *) + +Ltac afi tac := intros; tac. +Goal 1 = 2. +afi ltac:auto. + |