functor (A : Typeable) ->
  sig
    type a = A.a ref
    val type_rep : unit -> TypeRep.t
    val has_type : dynamic -> bool
    val cast : dynamic -> a option
    val throwing_cast : dynamic -> a
    val make_dynamic : a -> dynamic
    val mk : a -> dynamic
  end