open Environ
open Evd
open Names
open Term
open Util
open Proof_type
open Coqast
open Pfedit
open Translate
open Term
open Reduction
open Clenv
open Typing
open Inductive
open Vernacinterp
open Declarations
open Showproof_ct
open Proof_trees
open Sign
open Pp
open Printer

val show_proof : string -> int list -> Ascent.ct_TEXT;;