diff options
| author | Matthieu Sozeau | 2014-09-15 21:33:48 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-09-15 21:37:31 +0200 |
| commit | 62a552b508b747b6cdf4bd818233f001ae4ce555 (patch) | |
| tree | 80feb19c8d02935b550c7f6c971ea42fc39020b2 /printing | |
| parent | 1c113305039857ca219f252f5e80f4b179a39082 (diff) | |
Add a "Hint Mode ref (+ | -)*" hint for setting a global mode
of resulution for goals whose head is "ref". + means the argument
is an input and shouldn't contain an evar, otherwise resolution
fails. This generalizes the Typeclasses Strict Resolution option
which prevents resolution to fire on underconstrained typeclass
constraints, now the criterion can be applied to specific parameters.
Also cleanup auto/eauto code, uncovering a potential backwards
compatibility issue: in cases the goal contains existentials, we
never use the discrimination net in auto/eauto. We should try to
set this on once the contribs are stabilized (the stdlib goes through
when the dnet is used in these cases).
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index b7ac274b7f..a075265cc5 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -172,6 +172,9 @@ let pr_hints db h pr_c pr_pat = | HintsTransparency (l, b) -> str (if b then "Transparent " else "Opaque ") ++ prlist_with_sep sep pr_reference l + | HintsMode (m, l) -> + str "Mode " ++ pr_reference m ++ spc() ++ prlist_with_sep spc + (fun b -> if b then str"+" else str"-") l | HintsConstructors c -> str"Constructors" ++ spc() ++ prlist_with_sep spc pr_reference c | HintsExtern (n,c,tac) -> |