sig
  type 'a t = 'a lazy_t
  exception Undefined
  external force : 'Lazy.t -> 'a = "%lazy_force"
  val force_val : 'Lazy.t -> 'a
  val from_fun : (unit -> 'a) -> 'Lazy.t
  val from_val : '-> 'Lazy.t
  val is_val : 'Lazy.t -> bool
  val lazy_from_fun : (unit -> 'a) -> 'Lazy.t
  val lazy_from_val : '-> 'Lazy.t
  val lazy_is_val : 'Lazy.t -> bool
end