refl 0.4.1 (latest) · OCaml Package

module T : sig ... end

type (!'a, !'occurrence) item = ('a, 'occurrence) Vector(Item).item =

| None : ('b, [ `Absent ]) item
| Some : 'a0 T.t -> ('a1, 'c) item

type (!'sequence, !'occurrences) t = ('sequence, 'occurrences) Vector(Item).t =

| [] : (unit, unit) t
| :: : ('head, 'occurrence) item * ('tail, 'occurrences0) t -> ('head0 * 'tail0, 'occurrence0 * 'occurrences1) t

val get : 
  ('index, 'sequence, 'value, 'positive, 'occurrences) Refl__.Desc.variable ->
  ('sequence, 'occurrences) t ->
  'value T.t

val make_transfer : 
  ('source, 'sub, 'arg) Refl__.Desc.transfer_arguments ->
  ('sequence, 'source) t ->
  (('sequence, 'arg) t, ('sub, [ `Absent ]) Refl__.Desc.eq) result

type (!'arity, !'rec_group, !'kinds) make =
  ('arity, 'rec_group, 'kinds) Vector(Item).make =
  {

f : 'a 'structure 'ap 'an 'ad 'gadt. ('a, 'structure, 'arity0, 'rec_group0, 'kinds0, 'ap, 'an, 'ad, 'gadt) Refl__.Desc.desc -> ('arity0, 'ad) t -> 'a T.t;

}

val make : 
  ('arity, 'rec_group, 'kinds) make ->
  ('types, 'structures, 'arity, 'rec_group, 'kinds, 'arguments, 'gadt)
    Refl__.Desc.vector ->
  ('positive,
    'negative,
    'direct,
    'subpositive,
    'subnegative,
    'subdirect,
    'arguments)
    Refl__.Desc.transfer_skip ->
  ('arity, 'direct) t ->
  ('types, 'subdirect) t

type !'presence any = 'presence Vector(Item).any =

| None : [ `Absent ] any
| Some : {
1. item : 'a. 'a T.t;
} -> 'b any

val append : 
  'presence any ->
  ('presence, 'directs) Refl__.Desc.presences ->
  ('count, 'directs) Refl__.Desc.length ->
  ('directs, 'direct, 'subdirect) Refl__.Desc.append ->
  ('count, 'types) Refl__.Desc.length ->
  ('types, 'arity, 'subarity) Refl__.Desc.append ->
  ('arity, 'direct) t ->
  ('subarity, 'subdirect) t

val to_sequence : 
  [ `Present ] any ->
  ('sequence, 'occurrences) t ->
  'sequence Refl__.Desc.Sequence(T).t

package refl