diff options
Diffstat (limited to 'test-suite/output/Search.v')
| -rw-r--r-- | test-suite/output/Search.v | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test-suite/output/Search.v b/test-suite/output/Search.v index f1489f22..2a0f0b40 100644 --- a/test-suite/output/Search.v +++ b/test-suite/output/Search.v @@ -3,3 +3,27 @@ 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. + |