diff options
| author | bertot | 2003-01-21 07:56:03 +0000 |
|---|---|---|
| committer | bertot | 2003-01-21 07:56:03 +0000 |
| commit | ee2bfeada565b437a0c5991a4da9b7a121998f38 (patch) | |
| tree | 3c23718af6fb12f5eccf7cd3dbcac12c59ac25a7 /contrib/interface/translate.ml | |
| parent | d32e13549a252fe8ab69550c2452f3987b642638 (diff) | |
Add a few operators in the new version of xlate.ml and make sure
that ast_to_ct is not use anymore in translate_constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3552 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/translate.ml')
| -rw-r--r-- | contrib/interface/translate.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/contrib/interface/translate.ml b/contrib/interface/translate.ml index 9d4d628044..96049aed60 100644 --- a/contrib/interface/translate.ml +++ b/contrib/interface/translate.ml @@ -7,7 +7,6 @@ open Pp;; open Libobject;; open Library;; open Vernacinterp;; -(* dead code: open Proof_trees;; *) open Termast;; open Tacmach;; open Pfedit;; @@ -108,10 +107,8 @@ let rec discard_coercions = | it -> it;; (*translates a formula into a centaur-tree --> FORMULA *) -let translate_constr at_top assumptions c = - let com = ast_of_constr at_top assumptions c in -(* dead code: let rcom = relativize_cci (discard_coercions com) in *) - xlate_formula (Ctast.ast_to_ct com) (* dead code: rcom *);; +let translate_constr at_top env c = + xlate_formula (Constrextern.extern_constr at_top env c);; (*translates a named_context into a centaur-tree --> PREMISES_LIST *) (* this code is inspired from printer.ml (function pr_named_context_of) *) |