diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2016-10-29 11:51:38 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2016-11-03 16:26:40 +0100 |
commit | 98305374e2fdec4b64d7d086ddca0c4e812b178e (patch) | |
tree | d2b59892a1a8d28351721f9aee27401ce678bc38 /test-suite/success/bteauto.v | |
parent | c0f3d5fb81c543d1b05b0ff7041efee086514f3a (diff) |
typeclasses eauto Implem/doc of shelving strategy
Now [typeclasses eauto] mimicks what happens during resolution
faithfully, and the shelving behavior/requirements for a successful
proof-search are documented.
Diffstat (limited to 'test-suite/success/bteauto.v')
-rw-r--r-- | test-suite/success/bteauto.v | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/test-suite/success/bteauto.v b/test-suite/success/bteauto.v index bb1cf0654..f97f764b4 100644 --- a/test-suite/success/bteauto.v +++ b/test-suite/success/bteauto.v @@ -8,7 +8,7 @@ Module Backtracking. Qed. Arguments foo A : clear implicits. - + Require Import Program.Tactics. Example find42 : exists n, n = 42. Proof. eexists. @@ -20,9 +20,13 @@ Module Backtracking. Fail reflexivity. Undo 2. (* Without multiple successes it fails *) - Fail all:((once typeclasses eauto) + apply eq_refl). + Set Typeclasses Debug Verbosity 2. + Fail all:((once (typeclasses eauto with typeclass_instances)) + + apply eq_refl). (* Does backtrack if other goals fail *) - all:((typeclasses eauto) + reflexivity). + all:[> typeclasses eauto + reflexivity .. ]. + Undo 1. + all:(typeclasses eauto + reflexivity). (* Note "+" is a focussing combinator *) Show Proof. Qed. |