diff options
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 d8dc585f3f..c83040372b 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 875a41cd91..7b07d430cb 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"] *) |