diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2016-03-10 19:38:14 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2016-06-16 18:21:08 +0200 |
commit | 37a8bf99b0f3c5adcbe27373e0d0b5622106ceee (patch) | |
tree | ae54584cbb6544280940675a8266c56cb7f99be3 /test-suite/success/Typeclasses.v | |
parent | 5266ced0de0876d2da34b6f304647f37f62615a9 (diff) |
Implement limited proof search and iterative deepening.
Fix typo in proofview
Diffstat (limited to 'test-suite/success/Typeclasses.v')
-rw-r--r-- | test-suite/success/Typeclasses.v | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/test-suite/success/Typeclasses.v b/test-suite/success/Typeclasses.v index d6e590af3..f25e18acd 100644 --- a/test-suite/success/Typeclasses.v +++ b/test-suite/success/Typeclasses.v @@ -23,8 +23,14 @@ Notation "'return' t" := (unit t). Class A `(e: T) := { a := True }. Class B `(e_: T) := { e := e_; sg_ass :> A e }. -Goal forall `{B T}, a. - intros. exact I. +Set Typeclasses Debug. + +Goal forall `{B T}, Prop. + intros. apply a. +Defined. + +Goal forall `{B T}, Prop. + intros. refine (@a _ _ _). Defined. Class B' `(e_: T) := { e' := e_; sg_ass' :> A e_ }. @@ -73,8 +79,15 @@ Module IterativeDeepening. Goal C -> A. intros. Set Typeclasses Debug. + Fail Timeout 1 fulleauto. + Set Typeclasses Iterative Deepening. + Fail fulleauto 1. + fulleauto 2. + Undo. + Unset Typeclasses Iterative Deepening. Fail Timeout 1 typeclasses eauto. Set Typeclasses Iterative Deepening. + Typeclasses eauto := 3. typeclasses eauto. Qed. |