diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-29 18:21:28 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-29 18:21:28 +0000 |
commit | 45025a38c4766a4762a7bcec15ec2d5d7537f963 (patch) | |
tree | 7b62344b1d9867e168b1c603511098d5b8e587ff /proofs | |
parent | 486038351308ab4b018464c20d74fcdf994935dd (diff) |
Export du type de preuve en cours pour xml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5604 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/pfedit.ml | 2 | ||||
-rw-r--r-- | proofs/pfedit.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index d8dc585f3..c83040372 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -188,7 +188,7 @@ let cook_proof () = let {evar_concl=concl} = ts.top_goal and strength = ts.top_strength in let pfterm = extract_pftreestate pfs in - !xml_cook_proof pfs; + !xml_cook_proof (strength,pfs); (ident, ({ const_entry_body = pfterm; const_entry_type = Some concl; diff --git a/proofs/pfedit.mli b/proofs/pfedit.mli index 875a41cd9..7b07d430c 100644 --- a/proofs/pfedit.mli +++ b/proofs/pfedit.mli @@ -99,7 +99,7 @@ val cook_proof : unit -> identifier * (Entries.definition_entry * goal_kind * declaration_hook) (* To export completed proofs to xml *) -val set_xml_cook_proof : (pftreestate -> unit) -> unit +val set_xml_cook_proof : (goal_kind * pftreestate -> unit) -> unit (*s [get_pftreestate ()] returns the current focused pending proof or raises [UserError "no focused proof"] *) |