diff options
| -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. + + |