diff options
Diffstat (limited to 'proofs/proof_trees.ml')
-rw-r--r-- | proofs/proof_trees.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/proofs/proof_trees.ml b/proofs/proof_trees.ml index 222b8277a..3003f20c6 100644 --- a/proofs/proof_trees.ml +++ b/proofs/proof_trees.ml @@ -12,6 +12,7 @@ open Closure open Util open Names open Term +open Termops open Sign open Evd open Stamps @@ -20,6 +21,7 @@ open Evarutil open Proof_type open Tacred open Typing +open Nametab let is_bind = function | Bindings _ -> true @@ -364,7 +366,8 @@ let last_of_cvt_flags (_,red) = (function | EvalVarRef id -> nvar id | EvalConstRef sp -> - ast_of_qualid (Global.qualid_of_global (ConstRef sp))) + ast_of_qualid + (qualid_of_global (Global.env()) (ConstRef sp))) lconst in if lqid = [] then [] else if n_unf then [ope("Delta",[]);ope("UnfBut",lqid)] @@ -384,7 +387,7 @@ let ast_of_cvt_redexp = function [match sp with | EvalVarRef id -> nvar id | EvalConstRef sp -> - ast_of_qualid (Global.qualid_of_global (ConstRef sp))] + ast_of_qualid (qualid_of_global (Global.env()) (ConstRef sp))] @(List.map num locc))) l) | Fold l -> ope("Fold",List.map (fun c -> ope ("COMMAND", |