diff options
| author | barras | 2006-10-16 17:11:44 +0000 |
|---|---|---|
| committer | barras | 2006-10-16 17:11:44 +0000 |
| commit | 744e7f6a319f4d459a3cc2309f575d43041d75aa (patch) | |
| tree | f130166bae5b1c1aa39860e8e5a2e79bfa284296 /contrib/xml/proofTree2Xml.ml4 | |
| parent | 8fe195799d9bf4eb0c84fad3e9a79b78e6e224ec (diff) | |
affichage des ... dans les scripts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9244 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml/proofTree2Xml.ml4')
| -rw-r--r-- | contrib/xml/proofTree2Xml.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/xml/proofTree2Xml.ml4 b/contrib/xml/proofTree2Xml.ml4 index d382ef955c..dbdc79a802 100644 --- a/contrib/xml/proofTree2Xml.ml4 +++ b/contrib/xml/proofTree2Xml.ml4 @@ -141,7 +141,7 @@ Pp.ppnl (Pp.(++) (Pp.str (fun i n -> [< i ; (aux n old_hyps) >]) [<>] nodes) | {PT.goal=goal; - PT.ref=Some(PT.Nested (PT.Tactic tactic_expr,hidden_proof),nodes)} -> + PT.ref=Some(PT.Nested (PT.Tactic(tactic_expr,_),hidden_proof),nodes)} -> (* [hidden_proof] is the proof of the tactic; *) (* [nodes] are the proof of the subgoals generated by the tactic; *) (* [flat_proof] if the proof-tree obtained substituting [nodes] *) |