diff options
| author | barras | 2004-09-17 20:28:19 +0000 |
|---|---|---|
| committer | barras | 2004-09-17 20:28:19 +0000 |
| commit | ed29c6bbe9a45e7d3996c230a6cc2bf7b11848f1 (patch) | |
| tree | f898c771227a1e111be1bac0431d42d04b0166f6 /tactics | |
| parent | 59c2fa12e257ae6087e0580e0d7abca3552421b8 (diff) | |
restructuration des printers: proofs passe avant parsing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6113 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/inv.ml | 6 | ||||
| -rw-r--r-- | tactics/setoid_replace.ml | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 1e4267421b..22f7009e98 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -46,12 +46,12 @@ let collect_meta_variables c = let check_no_metas clenv ccl = if occur_meta ccl then - let metas = List.map (fun n -> Evd.Metamap.find n clenv.namenv) - (collect_meta_variables ccl) in + let metas = List.filter (fun na -> na<>Anonymous) + (List.map (Evd.meta_name clenv.env) (collect_meta_variables ccl)) in errorlabstrm "inversion" (str ("Cannot find an instantiation for variable"^ (if List.length metas = 1 then " " else "s ")) ++ - prlist_with_sep pr_coma pr_id metas + prlist_with_sep pr_coma pr_name metas (* ajouter "in " ++ prterm ccl mais il faut le bon contexte *)) let var_occurs_in_pf gl id = diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index 7b6ebd7143..67ffb6c21e 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -641,7 +641,7 @@ let new_morphism m signature id hook = (Lazy.force coq_make_compatibility_goal_aux_ref)) ; (* "simpl" *) Pfedit.by Tactics.simpl_in_concl ; - Options.if_verbose msg (Pfedit.pr_open_subgoals ()); + Options.if_verbose msg (Printer.pr_open_subgoals ()); end let add_morphism lemma_infos mor_name (m,args,output) = |