diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index a67f15e8eb..11e621acf7 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -32,11 +32,11 @@ let prid id = pP [< 'sTR(string_of_id id) >] let prconst (sp,j) = pP [< 'sTR"#"; 'sTR(string_of_path sp); - 'sTR"="; term0 (gLOB nil_sign) j.uj_val >] + 'sTR"="; prterm j.uj_val >] let prvar ((id,a)) = pP [< 'sTR"#" ; 'sTR(string_of_id id) ; 'sTR":" ; - term0 (gLOB nil_sign) a >] + prterm a >] let genprj f j = let (c,t) = Termast.with_casts f j in [< c; 'sTR " : "; t >] @@ -56,7 +56,7 @@ let prglls glls = pP(pr_glls glls) let prctxt ctxt = pP(pr_ctxt ctxt) -let pproof p = pP(print_proof Evd.empty nil_sign p) +let pproof p = pP(print_proof Evd.empty empty_var_context p) let prevd evd = pP(pr_decls evd) |