diff options
| author | barras | 2004-09-03 18:56:25 +0000 |
|---|---|---|
| committer | barras | 2004-09-03 18:56:25 +0000 |
| commit | 900d95913b625f9a7483dfefbf7ea0fbf93bcea2 (patch) | |
| tree | 7eed4150981a479820d35d39a351e5559d39439a /proofs/refiner.ml | |
| parent | 85fb5f33b1cac28e1fe4f00741c66f6f58109f84 (diff) | |
deplacement de clenv vers pretyping
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6058 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/refiner.ml')
| -rw-r--r-- | proofs/refiner.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 248f6b40bc..a0053d8a1d 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -21,7 +21,6 @@ open Type_errors open Proof_trees open Proof_type open Logic -open Printer type transformation_tactic = proof_tree -> (goal list * validation) @@ -952,7 +951,7 @@ let rec print_proof sigma osign pf = ) let pr_change gl = - (str"Change " ++ prterm_env (Global.env()) gl.evar_concl ++ str".") + (str"Change " ++ Printer.prterm_env (Global.env()) gl.evar_concl ++ str".") let rec print_script nochange sigma osign pf = let {evar_hyps=sign; evar_concl=cl} = pf.goal in @@ -969,6 +968,7 @@ let rec print_script nochange sigma osign pf = prlist_with_sep pr_fnl (print_script nochange sigma sign) spfl) +(* printed by Show Script command *) let print_treescript nochange sigma _osign pf = let rec aux top pf = let {evar_hyps=sign; evar_concl=cl} = pf.goal in |