diff options
| author | msozeau | 2008-04-12 16:01:36 +0000 |
|---|---|---|
| committer | msozeau | 2008-04-12 16:01:36 +0000 |
| commit | 1ea4a8d26516af14670cc677a5a0fce04b90caf7 (patch) | |
| tree | f97ad5097f4a5ef3eb3c71e2affb646f22d3ec51 /toplevel | |
| parent | df77da121b86c64a91ea729f39afc92f10676893 (diff) | |
Adding 'at' to rewrite, as it is already implemented in setoid_rewrite.
Uses setoid_rewrite even if rewriting with leibniz if there are
specified occurences, maybe a combination of pattern and rewrite could
be done instead. Correct spelling of occurrences.
Coq does not compile with this patch, the next one will make it compile
again.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10781 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/auto_ind_decl.ml | 4 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 5 |
2 files changed, 3 insertions, 6 deletions
diff --git a/toplevel/auto_ind_decl.ml b/toplevel/auto_ind_decl.ml index 9feac54111..92ca066471 100644 --- a/toplevel/auto_ind_decl.ml +++ b/toplevel/auto_ind_decl.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id:$ i*) +(*i $Id$ i*) open Tacmach open Util @@ -793,7 +793,7 @@ let compute_dec_tact ind lnamesparrec nparrec = (tclTHENSEQ [apply (mkApp(lbI,Array.map (fun x->mkVar x) xargs)); Auto.default_auto ]); - Pfedit.by (Equality.general_rewrite_bindings_in true + Pfedit.by (Equality.general_rewrite_bindings_in true [] (List.hd !avoid) ((mkVar (List.hd (List.tl !avoid))), Rawterm.NoBindings diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 23f26038e3..726d261319 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -227,9 +227,6 @@ let dump_universes s = with e -> close_out output; raise e -let print_instances c = - ppnl (Prettyp.print_instances (global c)) - (*********************) (* "Locate" commands *) @@ -977,7 +974,7 @@ let vernac_print = function | PrintGraph -> ppnl (Prettyp.print_graph()) | PrintClasses -> ppnl (Prettyp.print_classes()) | PrintTypeClasses -> ppnl (Prettyp.print_typeclasses()) - | PrintInstances c -> print_instances c + | PrintInstances c -> ppnl (Prettyp.print_instances (global c)) | PrintLtac qid -> ppnl (Tacinterp.print_ltac (snd (qualid_of_reference qid))) | PrintCoercions -> ppnl (Prettyp.print_coercions()) | PrintCoercionPaths (cls,clt) -> |