type 'a t
=
{
pdesc : InferIR.Procdesc.t;
tenv : InferIR.Tenv.t;
extras : 'a;
}
type no_extras
val empty_extras : no_extras
val make : InferIR.Procdesc.t ‑> InferIR.Tenv.t ‑> 'a ‑> 'a t
val make_default : InferIR.Procdesc.t ‑> InferIR.Tenv.t ‑> no_extras t