Source file variant.ml

type 'constructor t =
  { name : string
  ; (* the position of the constructor in the type definition, starting from 0 *)
    rank : int
  ; constructor : 'constructor
  }