From b31b48407a9f5d36cefd6dec3ddf3e0b8391f14c Mon Sep 17 00:00:00 2001 From: letouzey Date: Tue, 29 May 2012 11:08:41 +0000 Subject: Tacexpr as a mli-only, the few functions there are now in Tacops NB: former Tacexpr.no_move is now Tacexpr.MoveLast (when introducing, intro with no move is intro as last) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15373 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/xml/proofTree2Xml.ml4 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'plugins/xml') diff --git a/plugins/xml/proofTree2Xml.ml4 b/plugins/xml/proofTree2Xml.ml4 index 21058a7b9..a45b8cda4 100644 --- a/plugins/xml/proofTree2Xml.ml4 +++ b/plugins/xml/proofTree2Xml.ml4 @@ -96,7 +96,6 @@ let let module PT = Proof_type in let module L = Logic in let module X = Xml in - let module T = Tacexpr in let ids_of_node node = let constr = Proof2aproof.ProofTreeHash.find proof_tree_to_constr node in (* @@ -144,7 +143,7 @@ Pp.ppnl (Pp.(++) (Pp.str Proof2aproof.ProofTreeHash.find proof_tree_to_flattened_proof_tree node in begin match tactic_expr with - | T.TacArg (_,T.Tacexp _) -> + | Tacexpr.TacArg (_,Tacexpr.Tacexp _) -> (* We don't need to keep the level of abstraction introduced at *) (* user-level invocation of tactic... (see Tacinterp.hide_interp)*) aux flat_proof old_hyps -- cgit v1.2.3