diff options
| author | Pierre Courtieu | 2014-12-15 13:51:30 +0100 |
|---|---|---|
| committer | Pierre Courtieu | 2014-12-15 13:52:25 +0100 |
| commit | 70819fdda615b9bb1e897bc82c0ce39b28a2dece (patch) | |
| tree | 1a604218ea29640de42d6cb020517cfb6424d8a8 /test-suite/output/Search.v | |
| parent | 3a83f8aeeff3a4ce13c21045536e17ebb7f96677 (diff) | |
Tests for Searchxxx commands added and modified.
Diffstat (limited to 'test-suite/output/Search.v')
| -rw-r--r-- | test-suite/output/Search.v | 30 |
1 files changed, 27 insertions, 3 deletions
diff --git a/test-suite/output/Search.v b/test-suite/output/Search.v index 4ef2634733..2a0f0b407c 100644 --- a/test-suite/output/Search.v +++ b/test-suite/output/Search.v @@ -1,5 +1,29 @@ (* Some tests of the Search command *) -SearchHead le. (* app nodes *) -SearchHead bool. (* no apps *) -SearchHead (@eq nat). (* complex pattern *) +Search le. (* app nodes *) +Search bool. (* no apps *) +Search (@eq nat). (* complex pattern *) +Search (@eq _ _ true). +Search (@eq _ _ _) true -false. (* andb_prop *) +Search (@eq _ _ _) true -false "prop" -"intro". (* andb_prop *) + +Definition newdef := fun x:nat => x. + +Goal forall n:nat, n <> newdef n -> newdef n <> n -> False. + intros n h h'. + Search n. (* search hypothesis *) + Search newdef. (* search hypothesis *) + Search ( _ <> newdef _). (* search hypothesis, pattern *) + Search ( _ <> newdef _) -"h'". (* search hypothesis, pattern *) +Abort. + +Goal forall n (P:nat -> Prop), P n -> ~P n -> False. + intros n P h h'. + Search P. (* search hypothesis also for patterns *) + Search (P _). (* search hypothesis also for patterns *) + Search (P n). (* search hypothesis also for patterns *) + Search (P _) -"h'". (* search hypothesis also for patterns *) + Search (P _) -not. (* search hypothesis also for patterns *) + +Abort. + |