package mugen

  1. Overview
  2. Docs

Stupid constructors for free.

type ('s, 'v) t = ('s, 'v) free =
  1. | Level of ('s, ('s, 'v) free) endo
  2. | Var of 'v

The free monad ('s, -) t on the endofunctor ('s, -) endo indexed by the type of displacements 's.

val shifted : ('s, 'v) t -> 's -> ('s, 'v) t

shifted l s is Level (Shifted (l, s)).

val top : ('s, 'v) t

top is Level Top.

val var : 'v -> ('s, 'v) t

var v is Var v.

val dump : (Format.formatter -> 's -> unit) -> (Format.formatter -> 'v -> unit) -> Format.formatter -> ('s, 'v) t -> unit

Ugly printer.

OCaml

Innovation. Community. Security.