diff options
| author | msozeau | 2009-10-28 22:51:46 +0000 |
|---|---|---|
| committer | msozeau | 2009-10-28 22:51:46 +0000 |
| commit | 1cd1801ee86d6be178f5bce700633aee2416d236 (patch) | |
| tree | 66020b29fd37f2471afc32ba8624bfa373db64b7 /parsing/printer.ml | |
| parent | d491c4974ad7ec82a5369049c27250dd07de852c (diff) | |
Integrate a few improvements on typeclasses and Program from the equations branch
and remove equations stuff which moves to a separate plugin.
Classes:
- Ability to define classes post-hoc from constants or inductive types.
- Correctly rebuild the hint database associated to local hypotheses when
they are changed by a [Hint Extern] in typeclass resolution.
Tactics and proofs:
- Change [revert] so that it keeps let-ins (but not [generalize]).
- Various improvements to the [generalize_eqs] tactic to make it more robust
and produce the smallest proof terms possible.
Move [specialize_hypothesis] in tactics.ml as it goes hand in hand with
[generalize_eqs].
- A few new general purpose tactics in Program.Tactics like [revert_until]
- Make transitive closure well-foundedness proofs transparent.
- More uniform testing for metas/evars in pretyping/unification.ml
(might introduce a few changes in the contribs).
Program:
- Better sorting of dependencies in obligations.
- Ability to start a Program definition from just a type and no obligations,
automatically adding an obligation for this type.
- In compilation of Program's well-founded definitions, make the functional a
separate definition for easier reasoning.
- Add a hint database for every Program populated by [Hint Unfold]s for
every defined obligation constant.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12440 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index eacad74c4c..d9dced7916 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -540,9 +540,9 @@ let cmap_to_list m = Cmap.fold (fun k v acc -> v :: acc) m [] open Typeclasses -let pr_instance i = - pr_global (ConstRef (instance_impl i)) - +let pr_instance i = + pr_global (instance_impl i) + let pr_instance_gmap insts = prlist_with_sep fnl (fun (gr, insts) -> prlist_with_sep fnl pr_instance (cmap_to_list insts)) |
