diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-07 10:02:40 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-07 10:02:40 +0000 |
| commit | 78384438637eb9ce2f11f61bafc59f17c5f933da (patch) | |
| tree | f1968f737066e0e736f01b5fd4c8c9c5bccacdfc /contrib/xml | |
| parent | 9c662cf9e8f4065ab354dc9c55c3e819f0db1fbe (diff) | |
Retrait de EvarRef de global_reference; nettoyage autour de ast_of_ref
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1340 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml')
| -rw-r--r-- | contrib/xml/xmlcommand.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml index a653b1c04..815841673 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -726,8 +726,7 @@ let print sp fn = let hyps = string_list_of_named_context_list hyps in sp,Inductive, print_mutual_inductive packs [] hyps env inner_types - | T.ConstructRef _ - | T.EvarRef _ -> + | T.ConstructRef _ -> Util.anomaly ("print: this should not happen") in Xml.pp pp_cmds fn ; |