diff options
author | 2000-11-06 16:43:51 +0000 | |
---|---|---|
committer | 2000-11-06 16:43:51 +0000 | |
commit | 723c344d3e4cf7fdc2e4854ea7d55d140570424d (patch) | |
tree | 41ae18d8e43aa80007d361e83414d3b043f693ee /contrib/xml | |
parent | 826913ee19c25cfe445f574080524662bdba1597 (diff) |
nouveau discharge fait par le noyau; plus de recettes dans les corps des constantes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@807 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml')
-rw-r--r-- | contrib/xml/xmlcommand.ml | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml index bb8ab6125..edf93963f 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -543,7 +543,8 @@ let print id fn = begin match val0 with None -> print_axiom id typ [] hyps - | Some lcvr -> + | Some c -> print_definition id c typ [] hyps + (*i No more recipes inside constants match !lcvr with D.Cooked c -> print_definition id c typ [] hyps | D.Recipe _ -> @@ -557,8 +558,9 @@ let print id fn = Some {contents= D.Cooked c} -> print_definition id c typ [] hyps | _ -> Util.error "COOKING FAILED" - end - end + end + i*) + end with Not_found -> try @@ -656,10 +658,7 @@ let print_object o id sp dn fv = begin match val0 with None -> print_axiom id typ fv hyps - | Some lcvr -> - match !lcvr with - D.Cooked c -> print_definition id c typ fv hyps - | D.Recipe _ -> Util.anomaly "trying to print a recipe" + | Some c -> print_definition id c typ fv hyps end | "INDUCTIVE" -> (*CSC: QUI CI SONO ANCHE LE VARIABILI, CREDO, CHIAMATE mind_hyps *) |