diff options
| author | Matthieu Sozeau | 2016-06-09 23:24:57 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-06-16 18:21:08 +0200 |
| commit | 2194292dbe88674fd9a606bb22f28d332f670f77 (patch) | |
| tree | 21c2e91b13a5de21856554b17f5dfaa61101e253 /test-suite | |
| parent | af7a9a4e44739968b68aeb1cb0a1f70a1aa34e88 (diff) | |
Revise syntax of Hint Cut
As noticed by C. Cohen it was confusingly different from standard
notation.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Hints.v | 4 | ||||
| -rw-r--r-- | test-suite/success/bteauto.v | 9 |
2 files changed, 7 insertions, 6 deletions
diff --git a/test-suite/success/Hints.v b/test-suite/success/Hints.v index f934a5c74a..89b8bd7ac1 100644 --- a/test-suite/success/Hints.v +++ b/test-suite/success/Hints.v @@ -100,8 +100,8 @@ Instance foo f : Proof. Fail Timeout 1 apply _. (* 3.7s *) -Hint Cut [!*; (a_is_b | b_is_c | c_is_d | d_is_e) ; - (a_compose | b_compose | c_compose | d_compose | e_compose)] : typeclass_instances. +Hint Cut [_* (a_is_b | b_is_c | c_is_d | d_is_e) + (a_compose | b_compose | c_compose | d_compose | e_compose)] : typeclass_instances. Timeout 1 Fail apply _. (* 0.06s *) Abort. diff --git a/test-suite/success/bteauto.v b/test-suite/success/bteauto.v index 34238fe13c..4b28da19d2 100644 --- a/test-suite/success/bteauto.v +++ b/test-suite/success/bteauto.v @@ -50,9 +50,10 @@ End Backtracking. Hint Resolve 100 eq_sym eq_trans : core. -Hint Cut [!*; eq_sym; eq_sym] : core. -Hint Cut [!*; eq_trans; eq_trans] : core. -Hint Cut [!*; eq_trans; eq_sym; eq_trans] : core. +Hint Cut [(_)* eq_sym eq_sym] : core. +Hint Cut [_* eq_trans eq_trans] : core. +Hint Cut [_* eq_trans eq_sym eq_trans] : core. + Goal forall x y z : nat, x = y -> z = y -> x = z. Proof. @@ -73,7 +74,7 @@ Module Hierarchies. Fail Timeout 1 Definition makeA' : A := _. - Hint Cut [!*; mkB; aofb] : typeclass_instances. + Hint Cut [_* mkB aofb] : typeclass_instances. Fail Definition makeA' : A := _. Fail Definition makeB' : B := _. End Hierarchies. |