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