diff options
| author | notin | 2007-02-01 16:39:06 +0000 |
|---|---|---|
| committer | notin | 2007-02-01 16:39:06 +0000 |
| commit | 4f0b038d2d4da7320b9814ac14130c94b0212a1b (patch) | |
| tree | 4a3c77568dfc6d4fafdde2a2517f17601ab81f7f | |
| parent | 3d519597dc4a8f86995297c5b013f1b4f87c73e2 (diff) | |
Report de la révision 9577 dans le trunk
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9578 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | test-suite/success/clear.v | 6 | ||||
| -rw-r--r-- | test-suite/success/rewrite_in.v | 8 |
2 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/success/clear.v b/test-suite/success/clear.v new file mode 100644 index 0000000000..444146f7f9 --- /dev/null +++ b/test-suite/success/clear.v @@ -0,0 +1,6 @@ +Goal forall x:nat, (forall x, x=0 -> True)->True. + intros; eapply H. + instantiate (1:=(fun y => _) (S x)). + simpl. + clear x || trivial. +Qed. diff --git a/test-suite/success/rewrite_in.v b/test-suite/success/rewrite_in.v new file mode 100644 index 0000000000..29fe915ff4 --- /dev/null +++ b/test-suite/success/rewrite_in.v @@ -0,0 +1,8 @@ +Require Import Setoid. + +Goal forall (P Q : Prop) (f:P->Prop) (p:P), (P<->Q) -> f p -> True. + intros P Q f p H. + rewrite H in p || trivial. +Qed. + + |