sig
  val rctxt : OASISContext.t ref
  module BaseSetup = Compat_0_4.BaseSetup
  val adapt_setup_t : BaseSetup.t -> BaseSetup.t
end