diff options
| author | herbelin | 2006-11-10 18:37:26 +0000 |
|---|---|---|
| committer | herbelin | 2006-11-10 18:37:26 +0000 |
| commit | ba6ec642e2554f5789bef601cb23209b7e93ab5c (patch) | |
| tree | 86b3458040ef091f8ed118ce9e62d61b2c8e7b9e /test-suite | |
| parent | eebd0af54fdd33c012f473150a5d3b0709299d7a (diff) | |
Ajout de dépliage de l'énoncé, si besoin est, dans apply in
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9363 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/apply.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v index 4f26069633..30fa4129d7 100644 --- a/test-suite/success/apply.v +++ b/test-suite/success/apply.v @@ -12,3 +12,11 @@ Goal forall x y z, ~ z <= 0 -> x * z < y * z -> x <= y. intros; apply Znot_le_gt, Zgt_lt in H. apply Zmult_lt_reg_r, Zlt_le_weak in H0; auto. Qed. + +(* Check if it unfolds when there are not enough premises *) + +Goal forall n, n = S n -> False. +intro. +apply n_Sn in H. +assumption. +Qed. |