Conversion (u.c73734534e52e3c7e3a6ab4ddda12c49.elpi.3.4.5.doc.elpi.runtime.Elpi

type extra_goal = ..

type extra_goal +=

| Unify of term * term
| RawGoal of term

type extra_goals = extra_goal list

type extra_goals_postprocessing =
  extra_goals ->
  State.t ->
  State.t * extra_goals

val extra_goals_postprocessing : extra_goals_postprocessing State.component

type ty_ast =

| TyName of string
| TyApp of string * ty_ast * ty_ast list

val pp_ty_ast : 
  Ppx_deriving_runtime.Format.formatter ->
  ty_ast ->
  Ppx_deriving_runtime.unit

type 'a embedding = depth:int -> State.t -> 'a -> State.t * term * extra_goals

type 'a readback = depth:int -> State.t -> term -> State.t * 'a * extra_goals

type 'a t = {

ty : ty_ast;
pp_doc : Format.formatter -> unit -> unit;
pp : Format.formatter -> 'a -> unit;
embed : 'a embedding;
readback : 'a readback;

}

val pp : 
  'a. (Ppx_deriving_runtime.Format.formatter ->
        'a ->
        Ppx_deriving_runtime.unit) ->
  Ppx_deriving_runtime.Format.formatter ->
  'a t ->
  Ppx_deriving_runtime.unit

val show : 
  'a. (Ppx_deriving_runtime.Format.formatter ->
        'a ->
        Ppx_deriving_runtime.unit) ->
  'a t ->
  Ppx_deriving_runtime.string

exception TypeErr of ty_ast * int * term

type prec_level =

| Arrow
| AppArg

val need_par : prec_level option -> prec_level -> bool

val with_par : prec_level option -> prec_level -> string -> string

val show_ty_ast : ?prec:prec_level -> ty_ast -> string

val term_of_extra_goal : extra_goal -> term